![]() |
|
論壇說明 |
歡迎您來到『史萊姆論壇』 ^___^ 您目前正以訪客的身份瀏覽本論壇,訪客所擁有的權限將受到限制,您可以瀏覽本論壇大部份的版區與文章,但您將無法參與任何討論或是使用私人訊息與其他會員交流。若您希望擁有完整的使用權限,請註冊成為我們的一份子,註冊的程序十分簡單、快速,而且最重要的是--註冊是完全免費的! 請點擊這裡:『註冊成為我們的一份子!』 |
|
主題工具 | 顯示模式 |
![]() |
#1 |
長老會員
|
![]() 像 表單
在表單的事件(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 |
__________________ 一切有為法 如夢幻泡影 如露亦如電 應作如是觀 |
|
![]() |
送花文章: 150,
![]() |