不太懂耶 ^^||
是指
各控制項使用同一個 自訂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 ...)
|