ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ­n«ç»ò¶Ç»¼ClassÅÜ¼Æ­È¨ì ¼Ò²Õ¨Ï¥Î

[µo°Ý] ­n«ç»ò¶Ç»¼ClassÅÜ¼Æ­È¨ì ¼Ò²Õ¨Ï¥Î

¥»©«³Ì«á¥Ñ blue2263 ©ó 2023-3-28 12:13 ½s¿è

½Ð±Ð¦p¦ó¦bModule1Ū¨ú¨ìClass1ªºÅܼƭÈ

¬¡­¶Ã¯.rar (10.61 KB)

¥»©«³Ì«á¥Ñ Andy2483 ©ó 2023-3-28 13:52 ½s¿è

¦^´_ 1# blue2263


    ÁÂÁ«e½úµoªí¦¹¥DÃD»P½d¨Ò
½Ð«e½ú¥ý°Ñ¦Ò½d¨ÒÀÉ:
http://forum.twbts.com/thread-22560-1-5.html
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¥»©«³Ì«á¥Ñ singo1232001 ©ó 2023-3-29 03:01 ½s¿è

¦^´_ 1# blue2263


Dim FAPI As New Class1

Sub °Ê§@1()  '°õ¦æª«¥óÃþ§O¼Ò²Õ class1¤ºªºinitµ{§Ç
FAPI.Init
End Sub
'°õ¦æ§¹²¦«á class1 ¤ºªº¦@¥ÎÅܼÆstrMsg ´N·|¦³33 ¨Ã¤£·|®ø·À

Sub °Ê§@2()  '±Nclass1(FAPI)¤º ªºÅܼÆstrMsg ´£¨ú¥X¨Ó
MsgBox FAPI.strMsg
End Sub

TOP

¦^´_ 3# singo1232001
·PÁ¦^ÂÐ,¤F¸Ñ¤F

TOP

¦^´_ 2# Andy2483
·PÁ¸ê®Æ´£¨Ñ,¦¬¤U¬ã¨s,ÁÂÁÂ

TOP

¥»©«³Ì«á¥Ñ Andy2483 ©ó 2023-3-29 08:58 ½s¿è

¦^´_ 3# singo1232001


    ÁÂÁ«e½ú«ü¾É
ª«¥óÃþ§O¼Ò²Õ«Ü¤Ö½d¨Ò,¤£ª¾¹D¥Î³~¬O¤°»ò,ªì¨Bª¾¹D¦p¦ó¶Ç»¼ÅܼÆ
¥H¤U¤ß±oµù¸Ñ,½Ð«e½ú¦A«ü¾É

'ª«¥óÃþ§O¼Ò²Õ/Class1
Public strMsg As Long
'¡ô«Å§i strMsg¬Oªø¾ã¼Æ(¥þ°ì¦@¥ÎÅܼÆ)
Sub Init()
strMsg = 33
'¡ô¥OstrMsg³oªø¾ã¼Æ¬O 33
End Sub
===============================

'¼Ò²Õ/Module1
Dim FAPI As New Class1
'¡ô«Å§iFAPI¬O Class1ª«¥óÃþ§O¼Ò²Õ¸Ìªº·sÅܼÆ
Sub TEST()
FAPI.Init
'¡ô°õ¦æFAPIÅܼƸ̪º Initµ{§Ç
MsgBox FAPI.strMsg
'¡ô¸õ¥X´£¥Üµ¡,Åã¥Ü°õ¦æFAPIÅܼƸ̪ºInitµ{§Ç«áªºstrMsg¥þ°ì¦@¥ÎÅܼƪø¾ã¼Æ­È
Set FAPI = Nothing
'¡ôÄÀ©ñª«¥óÅܼÆ
End Sub
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

        ÀR«ä¦Û¦b : «H¤ß¡B¼Ý¤O¡B«i®ð¤TªÌ¨ã³Æ¡A«h¤Ñ¤U¨S¦³°µ¤£¦¨ªº¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD