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

複製代碼

ui123

感謝   前輩提供~看過受益良多!!!

dechiuan999

回復 12# GBKEE


    謝謝版主大大。
小弟對物件類別總是不得
其門而入，對自已提問的問題
也常有不知所云。請版主大大見諒。
小弟仍有不了解之處是
已將textbox增設了物件類別
Public WithEvents mTxt As MSForms.TextBox
Public Property Set Tb(setTb As MSForms.TextBox)
    Set mTxt = setTb
End Property
此用途又為何呢？

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

複製代碼

物件類別模組

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

複製代碼