Cách chuyển listview sang trạng thái được chọn ? (1 người xem)

[dtExcell]

Mấy bạn cho hỏi, mình có 1 Form trong đó có 2 textbox và 1 listview.
Chỉ giúp mình làm sao khi đang chọn textbox 1 hoặc 2 mà nhấn phím mũi tên đi xuống thì tự động listview sẽ được chọn (Mình thấy bài quản lý kho của anh Duyệt làm được mà không cần code gì cả).
Mấy bạn chỉ giúp.
Cảm ơn.

 

[sealand]

Bạn lưu ý đoạn mã này của Form nhé:

[COLOR=blue]Private Sub TxtMa_Change()
Dim it As ListItem
Dim btim
Dim bindex
On Error Resume Next
btim = frmChonMa.TxtMa.text
Set it = frmChonMa.LVMa.FindItem(btim, lvwText, , lvwPartial)
bindex = it.Index
frmChonMa.LVMa.ListItems.Item(bindex).Selected = True
frmChonMa.LVMa.ListItems.Item(bindex).EnsureVisible
Set it = Nothing
End Sub[/COLOR]
[COLOR=blue][COLOR=black]

Khi bạn nhập ký tự mã thì nó sẽ tìm đến dòng tương ứng trong Listview[/COLOR]

[/COLOR]

 

[dtExcell]

Bạn lưu ý đoạn mã này của Form nhé:

Private Sub TxtMa_Change()
Dim it As ListItem
Dim btim
Dim bindex
On Error Resume Next
btim = frmChonMa.TxtMa.text
Set it = frmChonMa.LVMa.FindItem(btim, lvwText, , lvwPartial)
bindex = it.Index
frmChonMa.LVMa.ListItems.Item(bindex).Selected = True
frmChonMa.LVMa.ListItems.Item(bindex).EnsureVisible
Set it = Nothing
End Sub
Khi bạn nhập ký tự mã thì nó sẽ tìm đến dòng tương ứng trong Listview

Bạn hiểu nhầm ý mình rồi.
Mình hỏi là đang ở textbox1 và "bấm phím mũi tên đi xuống" thì sẽ nhảy xuống danh sách listview. Mình có gởi file kèm theo, bạn coi dùm.

 

[sealand]

Mình mách bạn mẹo để biết KeyCode của phím nhấn. Khi đã biết KeyCode thì chắc bạn làm được. Bạn gài vào sự kiện của ô TextBox như sau:
Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

MsgBox KeyCode

End Sub
Khi con trỏ ở ô thứ 2 nhấn mũi tên xuống nó cho KeyCode=40.

 

[dtExcell]

Mình mách bạn mẹo để biết KeyCode của phím nhấn. Khi đã biết KeyCode thì chắc bạn làm được. Bạn gài vào sự kiện của ô TextBox như sau:
Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

MsgBox KeyCode

End Sub
Khi con trỏ ở ô thứ 2 nhấn mũi tên xuống nó cho KeyCode=40.

Hì. cảm ơn bạn.
Dùng code thì mình biết rồi.
Nhưng mình thấy file quản lý kho của anh Duyệt (ở form lọc mã hiệu) có hai textbox:
1 là textbox mã hiệu , 2 là textbox mô tả không dùng code gì cả khi nhấn phím mũi tên thì nó nhảy xuống listview. Ai biết làm thế nào không ? Chỉ mình với.

 

[sealand]

Bạn dùng doạn mã này được mà (Mình cũng đã sử dụng bài của anh Duyệt)

Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 40 Then Me.ListView1.SetFocus
End Sub

Form của bạn Listview chưa có Item nào cả thì nhận Focus vào đâu. Khi bạn nạp Items thì mới thấy.