Giúp F5 để chạy chương trình, F6 cho Stop

[hcuong0284]

Mình đang làm một tool để seach dữ liệu, với đoạn mã:

Code: [Select all] [Expand/Collapse]

1. Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
2. Private Sub cmdStart_click()
3. Timer1.Enabled = True
4. End Sub
5. Private Sub Timer1_Timer()
6. SendKeys ("^{END}")
7. Sleep 2000
8. SendKeys "Y"
9. End Sub
10. Private Sub cmdStop_click()
11. Timer1.Enabled = False
12. End Sub

GeSHi © Codebox Plus Extension

Mình muốn ấn phím F5 để chạy chương trình thay cho việc phải ấn vào "Start" ngược lại ấn phím F6 cho "Stop" thì cần thêm câu lệnh nào mong các bạn chỉ giáo. Cảm ơn các bạn !

[OKMimo]

Bạn đặt dòng này trong sự kiện Form_KeyUp():

Code: [Select all] [Expand/Collapse]

1. If KeyCode = 117 Then
2.     Unload Me
3. End If

GeSHi © Codebox Plus Extension

[hcuong0284]

Cảm ơn bạn nhưng mình muốn nó chỉ dừng lại thôi chứ không thoát hẳn chương trình.
Mình đã sửa trong sự kiện Form_keyup()
1. If Keycode = 117 Then
2. Timer1.Enabled = False
3. End If
Nhưng với đoạn code trên thì nó chỉ chạy khi VB ở cửa sổ chính, chuyển sang cửa sổ khác thì các phím trên không có tác dụng.
Mình muốn khi chuyển sang của sổ khác thì chương trình trên vẫn chạy và các phím tắt vẫn có tác dụng Pro nào giải quyết hộ mình với. Mình xin cảm ơn !

[HaiVB6]

Cảm ơn bạn nhưng mình muốn nó chỉ dừng lại thôi chứ không thoát hẳn chương trình.
Mình đã sửa trong sự kiện Form_keyup()
1. If Keycode = 117 Then
2. Timer1.Enabled = False
3. End If
Nhưng với đoạn code trên thì nó chỉ chạy khi VB ở cửa sổ chính, chuyển sang cửa sổ khác thì các phím trên không có tác dụng.
Mình muốn khi chuyển sang của sổ khác thì chương trình trên vẫn chạy và các phím tắt vẫn có tác dụng Pro nào giải quyết hộ mình với. Mình xin cảm ơn !

Thì chuyển các code đấy sang Form khác là được rồi!

[hcuong0284]

Mình ko hiểu ý bạn. Khi mình chạy code trên rồi chuyển qua ctrinh khác để nó chạy, nhưng khi mình muốn dừng lại thì ấn phím dừng nó ko có tác dụng, phải hiện cửa sổ chạy code trên mới dùng phím dừng đc :(

[gtdcomputer]

Chạy được ở mọi nơi, thì bạn phải hook hotkey
Cách làm ở đây: viewtopic.php?f=7&t=13026&hilit=hotkey
Ở phần code trong form dùng hàm SetHotkey bạn thay phím Insert bằng F5
Ở phần code trong module, bạn sửa dòng code 58 thành đóng và mở form là được