|
ｿｽｿｽVBｿｽｿｽｿｽSｿｽﾒ掲ｿｽｿｽｿｽｿｽ(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
|
ｿｽTｿｽｿｽｿｽlｿｽCｿｽｿｽｿｽｿｽｿｽXｿｽgｿｽｿｽﾅ重ｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽ謔､ｿｽﾉ追会ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾉは？
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽｿｽｿｽｿｽ 2006/05/12(ｿｽｿｽ) 00:46:33
ｿｽﾂ具ｿｽｿｽｿｽVisualｿｽ@Studio2003ｿｽ@WindowsXPｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽsｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾆ難ｿｽｿｽｿｽｿｽtｿｽHｿｽｿｽｿｽ_ｿｽﾉゑｿｽｿｽｿｽ鞫懶ｿｽｿｽTｿｽｿｽｿｽlｿｽCｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽcｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄまゑｿｽｿｽB
http://www.atmarkit.co.jp/fdotnet/practprog/index/index.html
ｿｽﾅ紹介さｿｽｿｽﾄゑｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽｿｽｿｽｿｽﾌまま使ｿｽｿｽｿｽﾄまゑｿｽｿｽB
ｿｽﾅ擾ｿｽｿｽAｿｽ{ｿｽ^ｿｽｿｽｿｽｿｽNｿｽｿｽｿｽbｿｽNｿｽｿｽｿｽ驍ｽｿｽﾑにサｿｽｿｽｿｽlｿｽCｿｽｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾉつゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽNｿｽｿｽｿｽbｿｽNｿｽｿｽｿｽ驍ｽｿｽﾑ難ｿｽｿｽｿｽｿｽ鞫懶ｿｽｿｽｿｽﾇ会ｿｽｿｽｿｽｿｽｿｽｿｽﾌゑｿｽ
2ｿｽｿｽﾚゑｿｽｿｽｿｽﾍ難ｿｽｿｽｿｽｿｽ鞫懶ｿｽｿｽｿｽﾇ会ｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽ謔､ｿｽﾉ搾ｿｽうｿｽﾆ思ｿｽｿｽｿｽﾄまゑｿｽｿｽB
DimglobalssAsString()
PrivateSubButton1_Click_1(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
DimiAsInteger
'ｿｽgｿｽｿｽｿｽqｿｽｿｽ.jpgｿｽﾌフｿｽ@ｿｽCｿｽｿｽｿｽｿｽ挙ゑｿｽｿｽｿｽ
ForEachstFilePathAsStringInGetFiles(Application.StartupPath,"*.jpg")
IfIsNothing(globalss).ToString()=FalseThen
Fori=0Toglobalss.Length-1
IfstFilePath=globalss(i)Then
Return
EndIf
Next
DimtestAsImage=Image.FromFile(stFilePath)
ThumbViewer1.Add(test)'ｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽﾌサｿｽｿｽｿｽlｿｽCｿｽｿｽｿｽｿｽｿｽXｿｽgｿｽﾉ画像ｿｽｿｽﾇ会ｿｽ
globalss(globalss.Length-1)=stFilePath
Else
DimtestAsImage=Image.FromFile(stFilePath)
ThumbViewer1.Add(test)
globalss(0)=stFilePathｿｽ@'ｿｽｿｽｿｽｿｽｿｽﾅ暦ｿｽｿｽｿｽｿｽｿｽ
EndIf
NextstFilePath
EndSub
ClickｿｽCｿｽxｿｽｿｽｿｽgｿｽﾌ外ｿｽﾅ配ｿｽｿｽｿｽ骭ｾｿｽｿｽｿｽﾄゑｿｽﾌゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽqｿｽｿｽｿｽgｿｽﾈどゑｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾎ幸ｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
Hongliang 2006/05/12(ｿｽｿｽ) 05:20:43
ｿｽｿｽｿｽｿｽｿｽﾅ暦ｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾄ、ｿｽﾇゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉなゑｿｽﾌゑｿｽｿｽAｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ黷ｽｿｽﾌならそｿｽﾌｿｽｿｽbｿｽZｿｽ[ｿｽWｿｽﾌ詳細ゑｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽﾌゑｿｽArgumentNullExceptionｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽﾇ。
globalssｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽBｿｽｿｽｿｽｿｽｿｽｿｽwｿｽ閧ｵｿｽﾄ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽKｿｽvｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾜゑｿｽｿｽAｿｽzｿｽｿｽﾌ抵ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽﾏ更ｿｽｿｽｿｽｿｽﾉは、ReDimｿｽXｿｽeｿｽ[ｿｽgｿｽｿｽｿｽｿｽｿｽgｿｽｿｽgｿｽｿｽｿｽﾈどゑｿｽｿｽｿｽKｿｽvｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾌようｿｽﾈ場合ｿｽﾍ、ｿｽzｿｽｿｽｿｽｿｽｿｽSystem.Collections.Specialized.StringCollectionｿｽﾈんかゑｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾖ暦ｿｽｿｽﾅゑｿｽｿｽB
ｿｽﾇ会ｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾍ配ｿｽ長ゑｿｽCｿｽﾉゑｿｽｿｽｿｽReDimｿｽｿｽｿｽ驍ｱｿｽﾆゑｿｽﾈゑｿｽAddｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽｿｽﾄび出ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽRｿｽｿｽｿｽNｿｽVｿｽｿｽｿｽｿｽｿｽｿｽﾉ奇ｿｽｿｽﾉ托ｿｽｿｽﾝゑｿｽｿｽﾄゑｿｽｿｽ驍ｩｿｽﾇゑｿｽｿｽｿｽｿｽﾌチｿｽFｿｽbｿｽNｿｽｿｽContainsｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽｿｽgｿｽｿｽｿｽﾎ一発ｿｽﾅゑｿｽｿｽB
ｿｽtｿｽBｿｽ[ｿｽｿｽｿｽhｿｽﾅ宣言ｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾉ難ｿｽｿｽｿｽｿｽﾉ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾎ茨ｿｽXｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽｿｽﾅゑｿｽNullｿｽ`ｿｽFｿｽbｿｽNｿｽｿｽｿｽｿｽｿｽKｿｽvｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
>IfIsNothing(globalss).ToString()=FalseThen
ｿｽｿｽX.ToString()ｿｽｿｽｿｽｿｽﾓ厄ｿｽｿｽﾍ厄ｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
Hongliang 2006/05/12(ｿｽｿｽ) 05:23:05
ｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ArgumentNullExceptionｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽNullReferenceExceptionｿｽﾌほゑｿｽｿｽﾅゑｿｽｿｽﾈ。
ｿｽｿｽｿｽｿｽ 2006/05/12(ｿｽｿｽ) 18:43:37
System.Collections.Specialized.StringCollectionｿｽｿｽgｿｽｿｽｿｽﾄ搾ｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽﾈゑｿｽﾖ暦ｿｽｿｽﾉでゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
DimglobalssAsStringCollection=NewStringCollection
PrivateSubButton1_Click_1(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
DimiAsInteger
DimtestAsImage
'ｿｽgｿｽｿｽｿｽqｿｽｿｽ.jpgｿｽﾌフｿｽ@ｿｽCｿｽｿｽｿｽｿｽ挙ゑｿｽｿｽｿｽ
ForEachstFilePathAsStringInGetFiles(Application.StartupPath,"*.jpg")
Ifglobalss.Count<>0Then
Fori=0Toglobalss.Count-1
Ifglobalss.Contains(stFilePath)Then
Return
EndIf
Nexti
test=Image.FromFile(stFilePath)
ThumbViewer1.Add(test)'ｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽﾌサｿｽｿｽｿｽlｿｽCｿｽｿｽｿｽｿｽｿｽXｿｽgｿｽﾉ画像ｿｽｿｽﾇ会ｿｽ
globalss.Add(stFilePath)
Else
test=Image.FromFile(stFilePath)
ThumbViewer1.Add(test)
globalss.Add(stFilePath)
EndIf
NextstFilePath
EndSub
ｿｽｿｽｿｽｿｽﾅボｿｽ^ｿｽｿｽｿｽ続ゑｿｽｿｽﾄ会ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽ鞫懶ｿｽｿｽｿｽﾇ会ｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾈゑｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
