Protected Overrides Function ProcessCmdKey(ByRef msg As Message, keyData As Keys) As Boolean
If keyData = (Keys.Enter) Then
btnadd.PerformClick()
Return True
ElseIf keyData = (Keys.Delete) Then
btndel.PerformClick()
Return True
ElseIf keyData = (Keys.F1) Then
btnprint.PerformClick()
Return True
ElseIf keyData = (Keys.Escape) Then
Me.Close()
End If
Return MyBase.ProcessCmdKey(msg, keyData)
End Function
Date :
2012-09-05 08:32:04
By :
mr.win
No. 2
Guest
ขอโค้ดคีย์ลัด กด Ctrl + P แล้วสามารถดึง Form ที่ต้องการขึ้นมาได้หน่อยคับ ผมใช้ vb 6 อยู่คับ