史萊姆論壇

返回   史萊姆論壇 > 專業主討論區 > 程式語言討論區
忘記密碼?
論壇說明

歡迎您來到『史萊姆論壇』 ^___^

您目前正以訪客的身份瀏覽本論壇,訪客所擁有的權限將受到限制,您可以瀏覽本論壇大部份的版區與文章,但您將無法參與任何討論或是使用私人訊息與其他會員交流。若您希望擁有完整的使用權限,請註冊成為我們的一份子,註冊的程序十分簡單、快速,而且最重要的是--註冊是完全免費的!

請點擊這裡:『註冊成為我們的一份子!』

Google 提供的廣告


 
 
主題工具 顯示模式
舊 2005-06-24, 02:30 PM   #1
劍痞憶秋年
長老會員
 
劍痞憶秋年 的頭像
榮譽勳章
UID - 15
在線等級: 級別:31 | 在線時長:1096小時 | 升級還需:56小時級別:31 | 在線時長:1096小時 | 升級還需:56小時級別:31 | 在線時長:1096小時 | 升級還需:56小時級別:31 | 在線時長:1096小時 | 升級還需:56小時級別:31 | 在線時長:1096小時 | 升級還需:56小時級別:31 | 在線時長:1096小時 | 升級還需:56小時
註冊日期: 2002-12-06
住址: 步雲崖
文章: 280
精華: 0
現金: 15847 金幣
資產: 20867 金幣
預設 突發奇想的問題

像 表單
在表單的事件(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, 收花文章: 33 篇, 收花: 130 次
回覆時引用此帖
 



發表規則
不可以發文
不可以回覆主題
不可以上傳附加檔案
不可以編輯您的文章

論壇啟用 BB 語法
論壇啟用 表情符號
論壇啟用 [IMG] 語法
論壇禁用 HTML 語法
Trackbacks are 禁用
Pingbacks are 禁用
Refbacks are 禁用


所有時間均為台北時間。現在的時間是 01:24 PM


Powered by vBulletin® 版本 3.6.8
版權所有 ©2000 - 2025, Jelsoft Enterprises Ltd.


SEO by vBSEO 3.6.1