突發奇想的問題

[mini]

不太懂耶 ^^||
是指
各控制項使用同一個 自訂Function 時
不想傳遞(填) 控制項名稱 這個參數嗎?

那就要寫一個藉 滑鼠游標位置獲得控制項 的涵式
以此涵式傳回值為
自訂Function之參數

如此就可變成
Private Sub chkOther_Click()
...
tSum.Text = JetTemp_OnlyFortSume(IsCtrlItem_Object, JetTemp)
End Sub

Private Sub chkUCASE_Click()
...
tSum.Text = JetTemp_OnlyFortSume(IsCtrlItem_Object, JetTemp)
End Sub

至於 IsCtrlItem_Object 這個涵式的實作...
看看有沒有能人可以實作
(可能要用到幾個 WinAPI 比如 SendMessage ...)

[劍痞憶秋年]

作者: mini

不太懂耶 ^^||
是指
各控制項使用同一個 自訂Function 時
不想傳遞(填) 控制項名稱 這個參數嗎?

差不多是這個意思了！！
確實是不想傳遞 這個參數，但在 自訂 Function 裡面又必須有 一個xx 來代表 目前控制項 才行!!

像 Form 的話，就可以寫成 Me 就可代表 Form
(先假設 VB 中　目前控制項 可以用 HE 來取代
那麼
(1)
If JetControl_CheckBox.Value = 1 Then
就可以改寫成
改成 If HE.Value = 1 Then
(2)目的：
(1)不用傳 控制項 參數
(2)自訂 Function 又可以達到取得 目前所在控制項 的資訊，以完成作業！

換句話說就是想知道 VB 有沒有提供這樣的東西可以用!!
就像 Me 也是 VB 提供的，
(自己實做是比較難累了點)

作者: 魔術王子

VB的控制項可利用類似陣列的方式處理
譬如說您可以放一個按鈕
然後將它複製,在貼上(可以一直貼上),這時系統就會問您是否要見一個陣列
若您回答是,那這群按鈕就會只用一的事件,您會看到傳入值多一個Item

感謝！！只不過小弟實在是不太習慣用 index 的方式
因為都是 同樣的控制項名稱，小弟就很難一下子知道它的用途是什麼了！
那麼 偶 還要記住說 Index = 0 是代表 什麼 、 Index = 1 又是代表 什麼用途!!!
偶習慣看到物件的命名 完全依實際上的用途 這樣 比較不會 ，不要打偶喔！！

真奇怪，為什麼目前的表單 有簡寫，目前的 Control 確沒有 相對的簡寫咧！！真好奇！！
◎◎(小弟 想到了，有試過 Screen.ActiveControl 啦，差不多 符合偶的需求，只不過它的流程好像更遠了，也不是很確定會不會有問題)

感謝 版主　及　魔術王子 的回覆，
拍寫啦，小弟就是懶 才會有這樣的想法的！！提出來互相研究研究囉！！