Sub FocusMove(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtAddress1.KeyPress, txtAddress2.KeyPress, txtAddress3.KeyPress, txtAddress4.KeyPress
'在此判斷出是哪一個控件激發了此事伯
End Sub
謝了!
...全文
1595打赏收藏
能判斷出是在哪一個控件按了鍵嗎?
Sub FocusMove(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtAddress1.KeyPress, txtAddress2.KeyPress, txtAddress3.KeyPress, txtAddress4.KeyPress '在此判斷出是哪一個控件激發了此事伯 End Sub 謝了!
讲的都太拐弯抹角了
Sub FocusMove(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtAddress1.KeyPress, txtAddress2.KeyPress, txtAddress3.KeyPress, txtAddress4.KeyPress
'在此判斷出是哪一個控件激發了此事伯
Select case ctype(sender, textbox).name
case txtAddress1.Name : ...
case txtAddress2.Name : ...
case txtAddress3.Name : ...
case txtAddress4.Name : ...
case else '....
End Select