[劍痞憶秋年]

像 表單
在表單的事件(EVENT) 中
可以用 ME 可以代表

那 控制項 有沒有類似的 關鍵字 來代替(至少在它自己的事件可以用)

只是突然想到的，因為不然每個都要 傳控制項 有點小累!!
==========================================
實例：
chkOther、 chkUCASE 都是 checkBox 控制項 (事實上還有很多個)
JetTemp_OnlyFortSume( 是 自訂 Function)

Private Function JetTemp_OnlyFortSume(JetControl_CheckBox As CheckBox, ByVal JetTemp$) As String
If JetControl_CheckBox.Value = 1 Then
..
..
Else
...
...
End If
End Function


Private Sub chkOther_Click()

Dim JetTemp$

' 數字
JetTemp = "O"

tSum.Text = JetTemp_OnlyFortSume(chkOther, JetTemp)

End Sub



Private Sub chkUCASE_Click()

Dim JetTemp$

' 數字
JetTemp = "U"

tSum.Text = JetTemp_OnlyFortSume(chkUCASE, JetTemp)

End Sub