GBKEE

¦^´_ 10# dechiuan999

1. Private Sub mPage_Change()
   
2.     Select Case mPage.Value
   
3.     Case 0
   
4.          EmailForm1.TextBox2.SetFocus
   
5.     Case 1
   
6.         EmailForm1.TextBox4.SetFocus
   
7.     End Select
   
8. End Sub

½Æ»s¥N½X

ui123

·PÁ   «e½ú´£¨Ñ~¬Ý¹L¨ü¯q¨}¦h!!!

dechiuan999

¦^´_ 12# GBKEE


    ÁÂÁª©¥D¤j¤j¡C
¤p§Ì¹ïª«¥óÃþ§OÁ`¬O¤£±o
¨äªù¦Ó¤J¡A¹ï¦Û¤w´£°Ýªº°ÝÃD
¤]±`¦³¤£ª¾©Ò¤ª¡C½Ðª©¥D¤j¤j¨£½Ì¡C
¤p§Ì¤´¦³¤£¤F¸Ñ¤§³B¬O
¤w±Ntextbox¼W³]¤Fª«¥óÃþ§O
Public WithEvents mTxt As MSForms.TextBox
Public Property Set Tb(setTb As MSForms.TextBox)
    Set mTxt = setTb
End Property
¦¹¥Î³~¤S¬°¦ó©O¡H

GBKEE

¦^´_ 14# dechiuan999
¤@¯ë¼Ò²Õ

1. Option Explicit
   
2. Dim A As New Class1
   
3. Sub Ex()
   
4.     ActiveSheet.[A1] = "THE TEST"
   
5.     With A
   
6.         Set .sPage = ActiveSheet
   
7.         MsgBox .XX.[A1].Text
   
8.     End With
   
9. End Sub

½Æ»s¥N½X

ª«¥óÃþ§O¼Ò²Õ

1. Option Explicit
   
2. Public XX As Object
   
3. Public Property Set sPage(setPage As Object)
   
4.     Set XX = setPage
   
5.     MsgBox XX.Name
   
6. End Property

½Æ»s¥N½X