å¯ä»¥å°å®å
¨ç¸åç对象åéçææå¼ç¨ç对象ãå¯ä»¥è®¾ç½®æè¿å对象çå±æ§æè
使ç¨å®ææçæ¹æ³ã
å建对象åéï¼
声æ对象åéã
æå®å¯¹è±¡åéå°æä¸å¯¹è±¡ã
声æä¸ä¸ªå¯¹è±¡åé
ä½¿ç¨ Dim è¯å¥æå
¶å®ç声æè¯å¥ä¹ä¸ï¼PublicãPrivateãæ Staticï¼å»å£°æ对象åéãä¸å¼ç¨å¯¹è±¡çåéå¿
é¡»æ¯ VariantãObjectï¼ææ¯ä¸ä¸ªå¯¹è±¡çæå®ç±»åãä¾å¦ï¼ä¸å声ææ¯ææçï¼
'声æ MyObject 为 Variant æ°æ®ç±»åã
Dim MyObject
'声æ MyObject 为 Object æ°æ®ç±»åã
Dim MyObject As Object
'声æ MyObject 为 Font ç±»åã
Dim MyObject As Font
注æ å¦æ使ç¨å¯¹è±¡åéå没æ声æå®ï¼å对象åé缺ççæ°æ®ç±»åæ¯ Variant ç±»åã
å½éçå°è¿ç¨è¿è¡æç¥éæå®ç对象类åæ¶ï¼å¯ä»¥å©ç¨ Object æ°æ®ç±»åæ¥å£°æãä½¿ç¨ Object æ°æ®ç±»åæ¥å建对任ä½å¯¹è±¡çä¸è¬çå¼ç¨ã
å¦æç¥éæå®ç对象类åï¼å¿
é¡»å°å¯¹è±¡åé声æææç¥éç对象类åãä¾å¦ï¼å¦æåºç¨ç¨åºå
å« Sample 对象类åï¼åå¯ä»¥ç¨ä¸åçè¯å¥æ¥å£°æä¸ä¸ªå¯¹è±¡åé为 Sample 对象类åï¼
Dim MyObject As Object '声æ为ä¸è¬ç对象ã
Dim MyObject As Sample 'åªå£°æ为 Sample 对象ã
声ææå®ç对象类åæä¾èªå¨çç±»åæ£æ¥ï¼æ´å¿«ç代ç ï¼å¹¶å¢å å¯è¯»æ§ã
èµå¼å¯¹è±¡åéç»å¯¹è±¡
ä½¿ç¨ Set è¯å¥å¯ä»¥èµå¼ä¸ä¸ªå¯¹è±¡ç»å¯¹è±¡åéãå¯ä»¥èµå¼å¯¹è±¡è¡¨è¾¾å¼ææ¯ Nothing ãä¾å¦ï¼ä¸åç对象åéèµå¼æ¯ææçï¼
Set MyObject = YourObject ' èµå¼å¯¹è±¡å¼ç¨ã
Set MyObject = Nothing ' ä¸æå
³èã
å¯ä»¥åæ¶ä½¿ç¨ New å
³é®åå Set è¯å¥æ¥å£°æ对象åéï¼å¹¶èµå¼ä¸å¯¹è±¡ç»å®ãä¾å¦ï¼
Set MyObject = New Object ' å建åèµå¼
设置ä¸ä¸ªå¯¹è±¡åéçäº Nothingï¼ä¼ä¸ææ¤å¯¹è±¡åéä¸ä»»ä½ç¹å®å¯¹è±¡çå
³èï¼å¦æ¤å¯é¢é²å æå¤çæ¹ååéèæ´æ¹å¯¹è±¡ãå¨å
³éå
³è对象åï¼å¯¹è±¡åéæ»æ¯è®¾ç½®ä¸º Nothingï¼æ以å¯ä»¥æ£æµå¯¹è±¡åéæ¯å¦æå°ææç对象ãä¾å¦ï¼
If Not MyObject Is Nothing Then
' åéå¼ç¨ææç对象ã
. . .
End If
å½ç¶ï¼è¯¥æ£æµä¸è½ç»å¯¹çå³å®ç¨æ·æ¯å¦å·²å
³éå
å«å¯¹è±¡åéæå¼ç¨å¯¹è±¡çåºç¨ç¨åºã
å¼ç¨å¯¹è±¡çå½åå®ä¾
Me å
³é®åå¯ç¨æ¥å¼ç¨å¯¹è±¡çå½åå®ä¾ï¼èæ¤ä¸ºä»£ç æ£å¨æ§è¡ç对象ãææä¸å½å对象å
³èçè¿ç¨é½å¯ä»¥éè¿ Me æ¥å¼ç¨ãä½¿ç¨ Me æ¥ä¼ éå
³äºå¯¹è±¡çå½åå®ä¾ä¿¡æ¯å°å
¶å®æ¨¡åä¸çè¿ç¨æ¾å¾ç¹å«æç¨ãä¾å¦ï¼å设å¨æ¨¡åä¸æ以ä¸è¿äºè¿ç¨ï¼
Sub ChangeObjectColor(MyObjectName As Object)
MyObjectName.BackColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256)
End Sub
使ç¨ä»¥ä¸è¯å¥ï¼å¯ä»¥è°ç¨è¿ç¨å¹¶å°å¯¹è±¡çå½åçå®ä¾å½ååæ°æ¥ä¼ éï¼
ChangeObjectColor Me
温馨提示:答案为网友推荐,仅供参考