|
ｿｽｿｽVBｿｽｿｽｿｽSｿｽﾒ掲ｿｽｿｽｿｽｿｽ(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
|
OpenFileDialogｿｽﾅ、ｿｽtｿｽHｿｽｿｽｿｽ_ｿｽｿｽIｿｽｿｽﾂ能ｿｽﾉゑｿｽｿｽｿｽｿｽｿｽ
ｿｽ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/09/02(ｿｽy) 14:03:41
ｿｽｿｽｿｽｿｽﾉゑｿｽｿｽｿｽBｿｽﾜるおｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽﾂゑｿｽAｿｽｿｽｿｽｿｽｿｽbｿｽﾉなゑｿｽｿｽｿｽﾏなゑｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽﾈのでゑｿｽｿｽｿｽｿｽAOpenFileDialogｿｽﾅ、ｿｽtｿｽHｿｽｿｽｿｽ_ｿｽｿｽIｿｽｿｽﾂ能ｿｽﾉゑｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽﾌようｿｽﾈゑｿｽｿｽﾆは、ｿｽﾂ能ｿｽﾈのでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽJｿｽｿｽｿｽﾂ具ｿｽｿｽﾍ、VB.NETｿｽQｿｽOｿｽOｿｽTｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽﾗゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾛゑｿｽｿｽﾆ思ｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽZｿｽｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽﾆ思ｿｽｿｽｿｽAｿｽｿｽｿｽkｿｽｿｽｿｽｿｽｿｽﾄゑｿｽ轤｢ｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽﾇなゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽmｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾎ幸ｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
K.J.K. 2006/09/02(ｿｽy) 19:54:14
ｿｽtｿｽbｿｽNｿｽｿｽｿｽﾄ、CDN_FILEOKｿｽﾅのハｿｽｿｽｿｽhｿｽｿｽｿｽｿｽｿｽOｿｽｿｽJｿｽXｿｽ^ｿｽ}ｿｽCｿｽYｿｽｿｽｿｽｿｽﾆゑｿｽ
ｿｽfｿｽBｿｽｿｽｿｽNｿｽgｿｽｿｽｿｽｿｽIｿｽｿｽｿｽｿｽ驍ｽｿｽﾟのボｿｽ^ｿｽｿｽｿｽEｿｽ@ｿｽ¥ｿｽｿｽﾇ会ｿｽｿｽｿｽｿｽﾄみては。
ｿｽﾜゑｿｽｿｽAｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾌ選ｿｽｿｽﾆフｿｽHｿｽｿｽｿｽ_ｿｽﾌ選ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌは、
ｿｽmｿｽｿｽｿｽﾉ面倒ｿｽﾅゑｿｽｿｽｿｽｿｽｿｽﾋ。
ｿｽﾜるお 2006/09/03(ｿｽｿｽ) 00:48:42
K.J.KｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽしｿｽﾄみようｿｽﾆ思ｿｽｿｽｿｽﾄ、ｿｽｿｽｿｽﾗてみゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽﾇゑｿｽｿｽかｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽﾌ箇擾ｿｽｿｽﾅ、ｿｽGｿｽｿｽｿｽ[ｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽﾄ趣ｿｽｿｽsｿｽｿｽｿｽ驍ｱｿｽﾆゑｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽu'Integer'ｿｽﾍ、ｿｽfｿｽｿｽｿｽQｿｽ[ｿｽgｿｽ^ｿｽﾅなゑｿｽｿｽｿｽｿｽﾟ、'AddressOf'ｿｽｿｽｿｽｿｽ'Integer'ｿｽﾉ変奇ｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽv
adressOfｿｽﾅ関撰ｿｽｿｽﾌポｿｽCｿｽｿｽｿｽ^ｿｽｿｽnｿｽｿｽｿｽﾎ出ｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽﾈゑｿｽｿｽoｿｽｿｽｿｽﾈゑｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽｿｽ[ｿｽｿｽBｿｽBｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ擾ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
PrivateSubCommand1_Click(ByValeventSenderAsSystem.Object,ByValeventArgsAsSystem.EventArgs)HandlesCommand1.Click
DimaAsObject
DimrcAsObject
DimDialoghWndAsObject
DimlpofnAsOPENFILENAME
Withlpofn
.flags=OFN_PATHMUSTEXISTOrOFN_HIDEREADONLYOrOFN_EXPLOREROrOFN_ENABLEHOOK
.lStructSize=Len(lpofn)
.lpstrFileTitle=NewString(Chr(0),256)
.nMaxFileTitle=256
.lpstrFile=NewString(Chr(0),256)
.nMaxFile=256
.lpstrTitle="ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽJｿｽｿｽ"
.lpfnHook=AddressOfhookproc'ｿｽｿｽ
.lpstrFilter="HTMLFile(*.html)"&Chr(0)&"*.html"&Chr(0)&"TextFile(*.txt)"&Chr(0)&"*.txt"&Chr(0)&"AllFile(*.*)"&Chr(0)&"*.*"
.lpstrInitialDir=My.Application.Info.DirectoryPath
.nFilterIndex=2
rc=GetOpenFileName(lpofn)
Ifrc>0Then
a=InStr(.lpstrFile,Chr(0))
MsgBox(Mid(.lpstrFile,1,a-1))
EndIf
EndWith
EndSub
ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士 2006/09/03(ｿｽｿｽ) 16:56:13
Integerｿｽ^ｿｽﾉゑｿｽｿｽﾄゑｿｽｿｽｿｽ骭ｾｿｽｿｽﾏ更ｿｽｿｽｿｽﾄ、AddressOfｿｽﾅ渡ｿｽｿｽｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽdｿｽlｿｽﾉゑｿｽｿｽせｿｽｿｽｿｽfｿｽｿｽｿｽQｿｽ[ｿｽgｿｽ^ｿｽﾉゑｿｽｿｽﾄみゑｿｽﾆゑｿｽｿｽB
ｿｽﾜるお 2006/09/10(ｿｽｿｽ) 15:08:17
ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士ｿｽｿｽｿｽｿｽﾌ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉ、ｿｽFｿｽXｿｽｿｽｿｽﾗてみゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
ｿｽﾇゑｿｽｿｽかｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽLｿｽﾌｿｽｿｽﾌ箇擾ｿｽｿｽﾅ、ｿｽGｿｽｿｽｿｽ[ｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽu'AddressOf'ｿｽIｿｽyｿｽｿｽｿｽｿｽｿｽhｿｽﾍｿｽｿｽ¥ｿｽbｿｽhｿｽﾌ厄ｿｽｿｽOｿｽﾅなゑｿｽｿｽｿｽﾎなゑｿｽﾜゑｿｽｿｽｿｽBｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾍ不ｿｽvｿｽﾅゑｿｽｿｽBｿｽv
ｿｽﾇゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽﾇなゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
----
PublicClassForm1
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
DimlpofnAsOPENFILENAME
DimhookFunctionAsDelegateFuncHook=AddressOfModule1.OFNHookProc
Withlpofn
.flags=OFN_PATHMUSTEXISTOrOFN_HIDEREADONLY
.lStructSize=System.Runtime.InteropServices.Marshal.SizeOf(lpofn)
.hwndOwner=Me.Handle.ToInt32
.lpstrFileTitle=NewString(Chr(0),256)
.nMaxFileTitle=256
.lpstrFile=NewString(Chr(0),256)
.nMaxFile=256
.lpstrTitle="ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾜゑｿｽｿｽﾍ、ｿｽtｿｽHｿｽｿｽｿｽ_ｿｽﾌ選ｿｽｿｽ"
.lpstrFilter="HTMLFile(*.html)"&Chr(0)&"*.html"&Chr(0)&"TextFile(*.txt)"&Chr(0)&"*.txt"&Chr(0)&"AllFile(*.*)"&Chr(0)&"*.*"
.lpstrInitialDir=My.Application.Info.DirectoryPath
.nFilterIndex=2
.lpfnHook=AddressOfhookFunction'ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅエｿｽｿｽｿｽ[ｿｽｿｽｿｽoｿｽｿｽB
DimrcAsObject
rc=GetOpenFileName(lpofn)
Ifrc>0Then
DimaAsObject
a=InStr(.lpstrFile,Chr(0))
MsgBox(Mid(.lpstrFile,1,a-1))
EndIf
EndWith
EndSub
EndClass
----
----
ModuleModule1
'*******************************************
'ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽIｿｽｿｽ_ｿｽCｿｽAｿｽｿｽｿｽOｿｽ{ｿｽbｿｽNｿｽXｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽ
'*******************************************
DelegateFunctionDelegateFuncHook(ByValhdlgAsInteger,ByValmsgAsInteger,ByValwParamAsInteger,ByVallParamAsInteger)AsInteger
PublicDeclareFunctionGetOpenFileNameLib"comdlg32.dll"Alias"GetOpenFileNameA"(ByReflpofnAsOPENFILENAME)AsInteger
PublicStructureOPENFILENAME
DimlStructSizeAsInteger'ｿｽ¥ｿｽｿｽｿｽﾌのサｿｽCｿｽY
DimhwndOwnerAsInteger'ｿｽ_ｿｽCｿｽAｿｽｿｽｿｽOｿｽ{ｿｽbｿｽNｿｽXｿｽﾌ親ｿｽEｿｽBｿｽｿｽｿｽhｿｽEｿｽnｿｽｿｽｿｽhｿｽｿｽ
DimhInstanceAsInteger'ｿｽeｿｽｿｽｿｽvｿｽｿｽｿｽ[ｿｽgｿｽｿｽｿｽ¥ｿｽ[ｿｽXｿｽｿｽｿｽｿｽﾂｿｽｿｽWｿｽｿｽｿｽ[ｿｽｿｽｿｽﾌイｿｽｿｽｿｽXｿｽ^ｿｽｿｽｿｽXｿｽnｿｽｿｽｿｽhｿｽｿｽ(ｿｽsｿｽpｿｽﾌとゑｿｽ0)
'flagsｿｽｿｽOFN_ENABLETEMPLATEｿｽｿｽﾝ定しｿｽﾄゑｿｽｿｽｿｽﾆゑｿｽｿｽﾌみ有ｿｽｿｽ)
DimlpstrFilterAsString'ｿｽtｿｽBｿｽｿｽｿｽ^(VisualBasicｿｽﾌフｿｽ@ｿｽCｿｽｿｽｿｽpｿｽ^ｿｽ[ｿｽｿｽｿｽﾌゑｿｽｿｽｿｽ)
DimlpstrCustomFilterAsString'ｿｽJｿｽXｿｽ^ｿｽｿｽｿｽtｿｽBｿｽｿｽｿｽ^
DimnMaxCustomFilterAsInteger'ｿｽｿｽｿｽAｿｽoｿｽCｿｽgｿｽｿｽ
DimnFilterIndexAsInteger'ｿｽ_ｿｽCｿｽAｿｽｿｽｿｽOｿｽﾉ優ｿｽｿｽIｿｽﾉ表ｿｽｿｽｿｽｿｽｿｽｿｽtｿｽBｿｽｿｽｿｽ^ｿｽﾌイｿｽｿｽｿｽfｿｽbｿｽNｿｽX
'lpstrFilterｿｽﾅ指ｿｽ閧ｵｿｽｿｽｿｽﾅ擾ｿｽｿｽﾌフｿｽBｿｽｿｽｿｽ^ｿｽﾌイｿｽｿｽｿｽfｿｽbｿｽNｿｽXｿｽｿｽ1
'ｿｽｿｽｿｽﾌｿｽｿｽｿｽｿｽoｿｽｿｽ0ｿｽﾉ設定すｿｽｿｽﾆ、ｿｽJｿｽXｿｽ^ｿｽｿｽｿｽtｿｽBｿｽｿｽｿｽ^ｿｽｿｽｿｽgｿｽpｿｽｿｽｿｽｿｽｿｽ
'lpstrCustomFilterｿｽｿｽｿｽﾝ定さｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽﾆゑｿｽ
'lpstrFilterｿｽﾌ最擾ｿｽｿｽﾌフｿｽBｿｽｿｽｿｽ^ｿｽｿｽgｿｽpｿｽｿｽｿｽｿｽ
DimlpstrFileAsString'(ｿｽﾟゑｿｽl)ｿｽtｿｽｿｽｿｽpｿｽXｿｽｿｽｿｽｿｽけ趣ｿｽｿｽoｿｽbｿｽtｿｽ@
DimnMaxFileAsInteger'ｿｽｿｽｿｽAｿｽoｿｽCｿｽgｿｽｿｽ
DimlpstrFileTitleAsString'(ｿｽﾟゑｿｽl)ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽｿｽけ趣ｿｽｿｽoｿｽbｿｽtｿｽ@
DimnMaxFileTitleAsInteger'ｿｽｿｽｿｽAｿｽoｿｽCｿｽgｿｽｿｽ
DimlpstrInitialDirAsString'ｿｽｿｽｿｽｿｽｿｽﾌデｿｽBｿｽｿｽｿｽNｿｽgｿｽｿｽｿｽｿｽ
DimlpstrTitleAsString'ｿｽ_ｿｽCｿｽAｿｽｿｽｿｽOｿｽﾌキｿｽｿｽｿｽvｿｽVｿｽｿｽｿｽｿｽ
DimflagsAsInteger'ｿｽｿｽｿｽｿｽｿｽwｿｽｿｽ
DimnFileOffsetAsShort'ｿｽtｿｽｿｽｿｽpｿｽXｿｽｿｽｿｽﾌフｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽﾜでのオｿｽtｿｽZｿｽbｿｽg
DimnFileExtensionAsShort'ｿｽｿｽｿｽAｿｽgｿｽｿｽｿｽqｿｽﾜでのオｿｽtｿｽZｿｽbｿｽg
DimlpstrdefextAsString'ｿｽfｿｽtｿｽHｿｽｿｽｿｽgｿｽﾌ拡ｿｽｿｽｿｽq
DimlCustDataAsInteger'ｿｽtｿｽbｿｽNｿｽvｿｽｿｽｿｽVｿｽ[ｿｽWｿｽｿｽｿｽﾉ渡ｿｽｿｽｿｽfｿｽ[ｿｽ^
DimlpfnHookAsInteger'ｿｽtｿｽbｿｽNｿｽvｿｽｿｽｿｽVｿｽ[ｿｽWｿｽｿｽｿｽﾖのポｿｽCｿｽｿｽｿｽ^
DimlpTemplateNameAsString'ｿｽeｿｽｿｽｿｽvｿｽｿｽｿｽ[ｿｽgｿｽｿｽｿｽ¥ｿｽ[ｿｽXｿｽｿｽ
EndStructure
'uFlagsｿｽﾌ定数
PublicConstOFN_ALLOWMULTISELECTAsShort=&H200S'ｿｽｿｽｿｽｿｽｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽIｿｽｿｽﾂ能ｿｽﾉゑｿｽｿｽｿｽ
PublicConstOFN_CREATEPROMPTAsShort=&H2000S'ｿｽwｿｽｿｽﾌフｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾆゑｿｽｿｽAｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽ成ｿｽｿｽｿｽ驍ｩｿｽﾇゑｿｽｿｽｿｽｿｽｿｽ竄｢ｿｽｿｽｿｽせｿｽｿｽ_ｿｽCｿｽAｿｽｿｽｿｽOｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽ
PublicConstOFN_HIDEREADONLYAsShort=&H4S'ｿｽ繽托ｿｽｿｽｿｽﾖ止ｿｽ`ｿｽFｿｽbｿｽNｿｽ{ｿｽbｿｽNｿｽXｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽﾈゑｿｽ
PublicConstOFN_NODEREFERENCELINKSAsInteger=&H100000'ｿｽVｿｽｿｽｿｽ[ｿｽgｿｽJｿｽbｿｽgｿｽｿｽｿｽｿｽｿｽNｿｽi.lnkｿｽjｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌまま返ゑｿｽｿｽiｿｽｿｽｿｽﾌフｿｽｿｽｿｽbｿｽOｿｽｿｽwｿｽ閧ｵｿｽﾈゑｿｽｿｽﾆゑｿｽｿｽAｿｽｿｽｿｽｿｽｿｽNｿｽｿｽﾌフｿｽｿｽｿｽpｿｽXｿｽｿｽｿｽﾟゑｿｽj
PublicConstOFN_NOREADONLYRETURNAsShort=&H8000S'ｿｽﾇみ趣ｿｽｿｽｿｽpｿｽｿｽｿｽｿｽｿｽﾌフｿｽ@ｿｽCｿｽｿｽｿｽﾆ擾ｿｽｿｽｿｽｿｽﾝ禁止ｿｽfｿｽBｿｽｿｽｿｽNｿｽgｿｽｿｽｿｽｿｽIｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽAｿｽｿｽｿｽbｿｽZｿｽ[ｿｽWｿｽ{ｿｽbｿｽNｿｽXｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽ
PublicConstOFN_READONLYAsShort=&H1S'ｿｽ繽托ｿｽｿｽｿｽﾖ止ｿｽ`ｿｽFｿｽbｿｽNｿｽ{ｿｽbｿｽNｿｽXｿｽｿｽ`ｿｽFｿｽbｿｽNｿｽｿｽｿｽｿｽ
PublicConstOFN_OVERWRITEPROMPTAsShort=&H2S'ｿｽｿｽｿｽｿｽｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽｿｽwｿｽ閧ｵｿｽｿｽｿｽﾆゑｿｽｿｽAｿｽｿｽｿｽbｿｽZｿｽ[ｿｽWｿｽ{ｿｽbｿｽNｿｽXｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽ
PublicConstOFN_EXTENSIONDIFFERENTAsShort=&H400S'lpstrDefExtｿｽﾆ異なゑｿｽgｿｽｿｽｿｽqｿｽﾌ難ｿｽｿｽﾍゑｿｽｿｽｿｽﾂゑｿｽｿｽｿｽiｿｽｿｽｿｽﾌフｿｽｿｽｿｽbｿｽOｿｽｿｽlpstrDefExtｿｽｿｽvbNullStringｿｽﾌとゑｿｽｿｽｿｽｿｽｿｽｿｽj
PublicConstOFN_FILEMUSTEXISTAsShort=&H1000S'ｿｽwｿｽｿｽﾌフｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾝゑｿｽｿｽﾈゑｿｽｿｽﾆゑｿｽｿｽAｿｽｿｽｿｽbｿｽZｿｽ[ｿｽWｿｽ{ｿｽbｿｽNｿｽXｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽ
PublicConstOFN_NOTESTFILECREATEAsInteger=&H10000'ｿｽ_ｿｽCｿｽAｿｽｿｽｿｽOｿｽIｿｽｿｽｿｽOｿｽﾉ、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾝ禁止ｿｽｿｽｿｽｿｽｿｽﾈどのチｿｽFｿｽbｿｽNｿｽﾌゑｿｽｿｽﾟのテｿｽXｿｽgｿｽpｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽ成ｿｽｿｽｿｽﾈゑｿｽ
PublicConstOFN_NOVALIDATEAsShort=&H100S'ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽﾌ有ｿｽｿｽｿｽｿｽｿｽｿｽ`ｿｽFｿｽbｿｽNｿｽｿｽｿｽﾈゑｿｽｿｽiｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽｿｽｿｽsｿｽｿｽｿｽﾈ場合ｿｽAｿｽｿｽｿｽbｿｽZｿｽ[ｿｽWｿｽﾍ表ｿｽｿｽｿｽｿｽｿｽｿｽｿｽj
PublicConstOFN_PATHMUSTEXISTAsShort=&H800S'ｿｽLｿｽｿｽｿｽﾈパｿｽXｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽtｿｽｿｽｿｽｿｽiｿｽsｿｽｿｽｿｽﾈフｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾍゑｿｽｿｽ黷ｽｿｽﾆゑｿｽｿｽAｿｽｿｽｿｽbｿｽZｿｽ[ｿｽWｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽBｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽ黷ｪｿｽfｿｽtｿｽHｿｽｿｽｿｽgｿｽﾌ設抵ｿｽﾅゑｿｽｿｽｿｽﾌで、ｿｽｿｽｿｽﾌフｿｽｿｽｿｽbｿｽOｿｽｿｽwｿｽ閧ｷｿｽｿｽKｿｽvｿｽﾍなゑｿｽｿｽj
PublicConstOFN_SHOWHELPAsShort=&H10S'ｿｽwｿｽｿｽｿｽvｿｽ{ｿｽ^ｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽ
PublicConstOFN_ENABLEHOOKAsShort=&H20S'lpfnHookｿｽｿｽｿｽｿｽｿｽoｿｽｿｽLｿｽｿｽｿｽﾉゑｿｽｿｽｿｽ
PublicConstOFN_ENABLESIZINGAsShort=0'
PublicConstOFN_ENABLETEMPLATEAsShort=&H40S'ｿｽeｿｽｿｽｿｽvｿｽｿｽｿｽ[ｿｽgｿｽｿｽgｿｽｿｽ
PublicConstOFN_ENABLETEMPLATEHANDLEAsShort=&H80S'hInstanceｿｽﾍテｿｽｿｽｿｽvｿｽｿｽｿｽ[ｿｽgｿｽﾖのポｿｽCｿｽｿｽｿｽ^ｿｽｿｽwｿｽｿｽ
PublicConstOFN_EXPLORERAsInteger=&H80000'ｿｽGｿｽNｿｽXｿｽvｿｽｿｽｿｽ[ｿｽｿｽｿｽ^ｿｽ_ｿｽCｿｽAｿｽｿｽｿｽOｿｽﾆゑｿｽｿｽﾄ表ｿｽｿｽ
PublicConstOFN_LONGNAMESAsInteger=&H200000'ｿｽｿｽｿｽXｿｽ^ｿｽCｿｽｿｽｿｽﾌダｿｽCｿｽAｿｽｿｽｿｽOｿｽﾌとゑｿｽｿｽAｿｽｿｽｿｽｿｽｿｽOｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽｿｽgｿｽpｿｽﾂ能ｿｽﾉゑｿｽｿｽｿｽiｿｽGｿｽNｿｽXｿｽvｿｽｿｽｿｽ[ｿｽｿｽｿｽ^ｿｽﾌとゑｿｽｿｽﾍ擾ｿｽﾉｿｽｿｽｿｽｿｽOｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽｿｽｿｽgｿｽｿｽｿｽｿｽj
PublicConstOFN_NOCHANGEDIRAsShort=&H8S'ｿｽ_ｿｽCｿｽAｿｽｿｽｿｽOｿｽIｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾌデｿｽBｿｽｿｽｿｽNｿｽgｿｽｿｽｿｽﾉ戻ゑｿｽ
PublicConstOFN_NOLONGNAMESAsInteger=&H40000'ｿｽｿｽｿｽXｿｽ^ｿｽCｿｽｿｽｿｽﾌダｿｽCｿｽAｿｽｿｽｿｽOｿｽﾌとゑｿｽｿｽAｿｽVｿｽｿｽｿｽ[ｿｽgｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽｿｽgｿｽpｿｽﾂ能ｿｽﾉゑｿｽｿｽｿｽiｿｽGｿｽNｿｽXｿｽvｿｽｿｽｿｽ[ｿｽｿｽｿｽ^ｿｽﾌとゑｿｽｿｽﾍ擾ｿｽﾉｿｽｿｽｿｽｿｽOｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽｿｽｿｽgｿｽｿｽｿｽｿｽj
PublicConstOFN_NONETWORKBUTTONAsInteger=&H20000'ｿｽlｿｽbｿｽgｿｽｿｽｿｽ[ｿｽNｿｽ{ｿｽ^ｿｽｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽEｿｽｿｽｿｽｿｽｿｽﾉゑｿｽｿｽｿｽ
PublicConstOFN_SHAREAWAREAsShort=&H4000S'ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽJｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾉネｿｽbｿｽgｿｽｿｽｿｽ[ｿｽNｿｽｿｽｿｽLｿｽ癆ｽｿｽﾌゑｿｽｿｽﾟエｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽGｿｽｿｽｿｽ[ｿｽ無趣ｿｽｿｽｿｽｿｽｿｽ
'ｿｽEｿｽCｿｽｿｽｿｽhｿｽEｿｽｿｽｿｽbｿｽZｿｽ[ｿｽW
PublicConstWM_INITDIALOGAsShort=&H110S'ｿｽ_ｿｽCｿｽAｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽbｿｽZｿｽ[ｿｽW
PublicConstWM_COMMANDAsShort=&H111S'ｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽbｿｽZｿｽ[ｿｽW
PublicConstWM_NOTIFYAsShort=&H4ES'ｿｽWｿｽｿｽｿｽeｿｽメｿｽbｿｽZｿｽ[ｿｽW
'------------------------------------
'ｿｽRｿｽｿｽｿｽｿｽｿｽ_ｿｽCｿｽAｿｽｿｽｿｽOｿｽtｿｽbｿｽNｿｽvｿｽｿｽｿｽVｿｽ[ｿｽWｿｽｿｽ
'------------------------------------
PublicFunctionOFNHookProc(ByValhdlgAsInteger,ByValmsgAsInteger,ByValwParamAsInteger,ByVallParamAsInteger)AsInteger
SelectCasemsg
CaseWM_INITDIALOG
'ｿｽ_ｿｽCｿｽAｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽ
'OFNHookProc=Form1.fncOFNProc_INITDIALOG(hdlg)
CaseWM_NOTIFY
'ｿｽ_ｿｽCｿｽAｿｽｿｽｿｽOｿｽeｿｽメｿｽbｿｽZｿｽ[ｿｽW
'OFNHookProc=Form1.fncOFNProc_NOTIFY(hdlg,wParam,lParam)
CaseWM_COMMAND
'ｿｽ_ｿｽCｿｽAｿｽｿｽｿｽOｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽbｿｽZｿｽ[ｿｽW
'ｿｽ{ｿｽTｿｽｿｽｿｽvｿｽｿｽｿｽﾅは使ｿｽpｿｽｿｽｿｽﾜゑｿｽｿｽが、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
OFNHookProc=True
CaseElse
OFNHookProc=False
EndSelect
EndFunction
EndModule
----
ｿｽ范ｴｿｽ@ｿｽｿｽｿｽｿｽ 2006/09/11(ｿｽｿｽ) 11:55:49
>.lpfnHook=AddressOfhookFunction'ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅエｿｽｿｽｿｽ[ｿｽｿｽｿｽoｿｽｿｽB
DimlpfnHookAsInteger->DimlpfnHookAsDelegateFuncHook
.lpfnHook=AddressOfhookFunction->.lpfnHook=hookFunction
ｿｽﾜゑｿｽｿｽFｿｽXｿｽﾆエｿｽｿｽｿｽ[ｿｽｿｽｿｽLｿｽ閧ｻｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽﾆりあｿｽｿｽｿｽｿｽｿｽB
