|
ｿｽｿｽVBｿｽfｿｽｿｽｿｽｿｽ(VB2-VB6)
|
[VB6.0]ｿｽｿｽｿｽｿｽtｿｽRｿｽｿｽｿｽpｿｽCｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉつゑｿｽｿｽｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽｿｽｿｽｿｽ 2010/05/24(ｿｽｿｽ) 14:52:26
VB6.0SP6
WinXP
ｿｽvｿｽｿｽｿｽWｿｽFｿｽNｿｽgｿｽvｿｽｿｽｿｽpｿｽeｿｽB-ｿｽｿｽｿｽsｿｽﾂ能ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾌ作成ｿｽ^ｿｽuｿｽｿｽﾉゑｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽtｿｽRｿｽｿｽｿｽpｿｽCｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉ、DEBUG_TEST=1ｿｽﾆ設定しｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽWｿｽｿｽｿｽｿｽｿｽWｿｽｿｽｿｽ[ｿｽｿｽｿｽﾉは、A.basｿｽAB.basｿｽｿｽ2ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽA
A.basｿｽﾉゑｿｽ
#ifDEBUG_TEST=1then
publicsubaaa()
ｿｽ@ｿｽEｿｽEｿｽEｿｽｿｽｿｽｿｽ
endsub
#endif
B.basｿｽﾉゑｿｽ
#ifDEBUG_TEST=0then
publicsubaaa()
ｿｽ@ｿｽEｿｽEｿｽEｿｽｿｽｿｽｿｽ
endsub
#endif
ｿｽﾆゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽSｿｽRｿｽｿｽｿｽpｿｽCｿｽｿｽｿｽｿｽﾉ開ｿｽnｿｽｿｽｿｽｿｽsｿｽｿｽｿｽｿｽﾆ、
ｿｽRｿｽｿｽｿｽpｿｽCｿｽｿｽｿｽGｿｽｿｽｿｽ[
ｿｽｿｽｿｽOｿｽｿｽｿｽKｿｽﾘではゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽGaaa
ｿｽﾆ表ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽRｿｽｿｽｿｽpｿｽCｿｽｿｽｿｽIｿｽvｿｽVｿｽｿｽｿｽｿｽｿｽﾅ、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾄゑｿｽ
ｿｽｿｽｿｽｿｽｿｽﾖ撰ｿｽｿｽｿｽｿｽﾌ関撰ｿｽｿｽｿｽ2ｿｽﾂ用ｿｽﾓでゑｿｽｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士 2010/05/24(ｿｽｿｽ) 16:36:17
ｿｽｿｽｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽﾅは再鯉ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽBｿｽﾇゑｿｽｿｽｿｽｿｽﾅ鯉ｿｽｿｽﾘミｿｽXｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽ?
ｿｽEｿｽXｿｽyｿｽｿｽｿｽ‾ｿｽX(DEBUG_TEXTｿｽﾆ擾ｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽ)ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽﾟ、ｿｽｿｽｿｽｿｽｿｽﾆゑｿｽRｿｽｿｽｿｽpｿｽCｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ
ｿｽEｿｽｿｽｿｽｿｽC.basｿｽﾉゑｿｽSubaaa()ｿｽｿｽｿｽｿｽｿｽﾝゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽB
ｿｽu#IfDEBUG_TEST=0ThenｿｽvｿｽuPublicSubaaa()ｿｽvｿｽﾅはなゑｿｽ
ｿｽu#ifDEBUG_TEST=0thenｿｽvｿｽupublicsubaaa()ｿｽvｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ、
ｿｽｿｽｿｽﾛのコｿｽ[ｿｽhｿｽﾅはなゑｿｽｿｽAｿｽfｿｽｿｽｿｽﾂ擾ｿｽﾅ擾ｿｽｿｽｿｽｿｽｿｽｿｽCｿｽｿｽｿｽ[ｿｽWｿｽRｿｽ[ｿｽhｿｽﾌようｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽﾅは、ｿｽｿｽｿｽLｿｽﾌコｿｽ[ｿｽhｿｽﾅ鯉ｿｽｿｽﾘゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽ@ｿｽｿｽｿｽｿｽtｿｽｿｽｿｽRｿｽｿｽｿｽpｿｽCｿｽｿｽｿｽ關費ｿｽｿｽｿｽｿｽｿｽFModuel2.aaaｿｽｿｽｿｽﾄび出ｿｽｿｽｿｽ黷ｽｿｽB
ｿｽ@ｿｽuDEBUG_TEST=0ｿｽvｿｽFModuel2.aaaｿｽｿｽｿｽﾄび出ｿｽｿｽｿｽ黷ｽｿｽB
ｿｽ@ｿｽuDEBUG_TEST=1ｿｽvｿｽFModuel1.aaaｿｽｿｽｿｽﾄび出ｿｽｿｽｿｽ黷ｽｿｽB
ｿｽ@ｿｽuDEBUG_TEST=2ｿｽvｿｽFｿｽｿｽｿｽRｿｽｿｽｿｽpｿｽCｿｽｿｽｿｽGｿｽｿｽｿｽ[:SubｿｽﾜゑｿｽｿｽｿｽFunctionｿｽｿｽｿｽｿｽ`ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽB
'--------------------
'Form1(Form1.frm)
OptionExplicit
PrivateSubForm_Load()
aaa'ｿｽｿｽ
EndSub
'--------------------
'Module1(a.bas)
OptionExplicit
#IfDEBUG_TEST=1Then
PublicSubaaa()
MsgBox"Module1"
EndSub
#EndIf
'--------------------
'Module2(b.bas)
OptionExplicit
#IfDEBUG_TEST=0Then
PublicSubaaa()
MsgBox"Module2"
EndSub
#EndIf
'--------------------
ｿｽｿｽｿｽｿｽ 2010/05/24(ｿｽｿｽ) 17:25:52
ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士ｿｽl
ｿｽ答ゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽwｿｽEｿｽﾌ通ゑｿｽAｿｽXｿｽyｿｽｿｽｿｽ‾ｿｽXｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽ黷ｩｿｽｿｽﾍ気ｿｽｿｽﾂゑｿｽｿｽﾜゑｿｽｿｽB
