Visual Basic

[congqui]

Minh co hai textbox, minh muon khi nhap vao textbox thu nhat
sau do enter de cho con tro nhay den textbox thu hai, mong ban nao biet chi giup minh.

[mimi]

Bạn SetFocus cho Text2 là được.
Ex:

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text2.SetFocus
End If
End Sub

[westlife]

Chào các bạn !!!
Nếu bạn muốn tìm hiểu thêm về VB, xin mời bạn đến với http://coolcode4you.fateback.com
Bạn sẽ tìm thấy nhiều code bổ ích ở đây.
Chúc các bạn thành công !!
Remember : http://coolcode4you.fateback.com luôn chào đón các bạn.

[bitter]

Cach cua mimi "nong dan" qua, toi thiet nghi khong phai congqui muon hoi nhu vay dau. neu tren form co do khoang 100 text box va nhieu control khac text box ma congqui muon cung an Enter de nhay den control tiep theo trong Tab sequence thi sao
Theo toi thi congqui co the su dung hai cách
1.Dung ham sendKey("{TAB}") tren form khi co an Enter. Cach nay thi co nhuoc diem la voi WÌNK chua cai SP2 thi hay bi treo keyboard (loi nay da duoc Microsoft sua trong SP2)
2. Dung API, chi co mot ty ty:
Viet mot ham keytab
nhu sau
khai bao
Const KEYEVENTF_KEYUP = &H2
Public Const VK_TAB = &H9
o dau module
Public Function KeyTab()
On Error GoTo ErrorHandler
keybd_event VK_TAB, 0, 0, 0
keybd_event VK_TAB, 0, KEYEVENTF_KEYUP, 0
Exit Function
ErrorHandler:
'place error handler here
End Function
sau do bat even keypress tren control/form va neu la keycode=vbkeyreturn thi goi ham nay
Cach nay rat tien
Cheer

[bitter]

Cach cua mimi "nong dan" qua, toi thiet nghi khong phai congqui muon hoi nhu vay dau. neu tren form co do khoang 100 text box va nhieu control khac text box ma congqui muon cung an Enter de nhay den control tiep theo trong Tab sequence thi sao
Theo toi thi congqui co the su dung hai cách
1.Dung ham sendKey("{TAB}") tren form khi co an Enter. Cach nay thi co nhuoc diem la voi WÌNK chua cai SP2 thi hay bi treo keyboard (loi nay da duoc Microsoft sua trong SP2)
2. Dung API, chi co mot ty ty:
Viet mot ham keytab
nhu sau
khai bao
Const KEYEVENTF_KEYUP = &H2
Public Const VK_TAB = &H9
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal _
bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
o dau module
Public Function KeyTab()
On Error GoTo ErrorHandler
keybd_event VK_TAB, 0, 0, 0
keybd_event VK_TAB, 0, KEYEVENTF_KEYUP, 0
Exit Function
ErrorHandler:
'place error handler here
End Function
sau do bat even keypress tren control/form va neu la keycode=vbkeyreturn thi goi ham nay
Cach nay rat tien
Cheer

[White_Rose]

dung luon KeyAscii = vbTabKey cho nhanh

[Nicky]

Tại sao không hook key ?
Nếu hook được phím enter thì biến nó thành Tab.
Bác nào có ý kiến gì khôg?