Trang ChínhTrang Chính  CalendarCalendar  Trợ giúpTrợ giúp  Tìm kiếmTìm kiếm  Thành viênThành viên  NhómNhóm  Đăng kýĐăng ký  Đăng NhậpĐăng Nhập  
News & Announcements
  • Top posters
 Mr.Pakapun (256)
 ddtan90 (178)
 tvduong (147)
 dthnam90 (137)
 minhquankq (101)
 arianbo (70)
 DoanhNhan (54)
 chicken (53)
 stormit (52)
 gentle_storm (47)

Share | 
 

 Lấy giá trị của Keycode (VB.Net)

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
gentle_storm
Thành viên tích cực
Thành viên tích cực
avatar

Tổng số bài gửi : 47
Join date : 03/01/2011

Bài gửiTiêu đề: Lấy giá trị của Keycode (VB.Net)   Sat May 07, 2011 12:37 am

Việc này rất hữu ích cho nhiều bạn xây dựng ứng dụng có điều khiển chương trình bằng bàn phím. Mình tạo ra 1 label và một textbox để demo. Khi nhấn phím nào vào texbox thì label sẽ hiện keycode của phím tương ứng
Code:

 Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        Label1.Text = Asc(e.KeyChar)
    End Sub
Dưới đây là một đoạn code trình bày keycode của một số phím thông dụng:
Code:

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case (KeyCode)

Case "8"
MsgBox "Backspace Keyis " & KeyCode

Case "9"
MsgBox "Tap Key is " & KeyCode

Case "12"
MsgBox "Clear Key is " & KeyCode

Case "13"
MsgBox "Enter Key is " & KeyCode

Case "16"
MsgBox "Shift Key is " & KeyCode

Case "17"
MsgBox "Control Key is " & KeyCode

Case "27"
MsgBox "Esc Key is " & KeyCode

Case "32"
MsgBox "SpaceBar Key is " & KeyCode

Case "112"
MsgBox "F1 Key is " & KeyCode

Case "113"
MsgBox "F2 Key is " & KeyCode

Case "114"
MsgBox "F3 Key is " & KeyCode

Case "115"
MsgBox "F4 Key is " & KeyCode

Case "116"
MsgBox "F5 Key is " & KeyCode

Case "117"
MsgBox "F6 Key is " & KeyCode

Case "118"
MsgBox "F7 Key is " & KeyCode

Case "119"
MsgBox "F8 Key is " & KeyCode

Case "120"
MsgBox "F9 Key is " & KeyCode

Case "121"
MsgBox "F10 Key is " & KeyCode

Case "122"
MsgBox "F11 Key is " & KeyCode

Case "123"
MsgBox "F12 Key is " & KeyCode

Case Else
MsgBox "you is press " & KeyCode

End Select

End Sub


Esc: 27, KeyUp -> Key Down: 37 ->40 ...

Chúc học tốt.
Về Đầu Trang Go down
Xem lý lịch thành viên
 
Lấy giá trị của Keycode (VB.Net)
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang

Permissions in this forum:Bạn không có quyền trả lời bài viết
Câu lạc bộ Hỗ Trợ Học Tập :: LẬP TRÌNH :: .::LẬP TRÌNH VB/C#-
Chuyển đến