Sử dụng VB.NET, làm cách nào để chuyển đổi trạng thái của Caps Lock?Làm cách nào để chuyển đổi Caps Lock trong VB.NET?
5
A
Trả lời
5
Từ: http://www.vbforums.com/showthread.php?referrerid=61394&t=537891
Imports System.Runtime.InteropServices
Public Class Form2
Private Declare Sub keybd_event Lib "user32" (_
ByVal bVk As Byte, _
ByVal bScan As Byte, _
ByVal dwFlags As Integer, _
ByVal dwExtraInfo As Integer _
)
Private Const VK_CAPITAL As Integer = &H14
Private Const KEYEVENTF_EXTENDEDKEY As Integer = &H1
Private Const KEYEVENTF_KEYUP As Integer = &H2
Private Sub Button1_Click(_
ByVal sender As System.Object, _
ByVal e As System.EventArgs _
) Handles Button1.Click
' Toggle CapsLock
' Simulate the Key Press
keybd_event(VK_CAPITAL, &H45, KEYEVENTF_EXTENDEDKEY Or 0, 0)
' Simulate the Key Release
keybd_event(VK_CAPITAL, &H45, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0)
End Sub
End Class
7
Hãy thử this:
Public Class Form1
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer)
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call keybd_event(System.Windows.Forms.Keys.CapsLock, &H14, 1, 0)
Call keybd_event(System.Windows.Forms.Keys.CapsLock, &H14, 3, 0)
End Sub
End Class
0
tôi sử dụng này
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer)
Private Const KEYEVENTF_EXTENDEDKEY As Integer = &H1
Private Const KEYEVENTF_KEYUP As Integer = &H2
'put this where you want to turn caps lock on or off
keybd_event(VK_NUMLOCK, &H45, KEYEVENTF_EXTENDEDKEY Or 0, 0)
keybd_event(VK_NUMLOCK, &H45, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0)
Các vấn đề liên quan
- 1. Làm cách nào để nhận trạng thái hiện tại của Caps Lock trong VB.NET?
- 2. Tắt caps lock theo cách lập trình
- 3. Làm cách nào để bật lại phím Caps Lock để Điều khiển trong OS X 10.8?
- 4. WPF PasswordBox: Làm cách nào để cảnh báo người dùng rằng Caps Lock được bật?
- 5. Làm cách nào để tắt cảnh báo Caps Lock bằng điều khiển mật khẩu?
- 6. Làm cách nào để theo dõi người dùng Caps Lock bằng Google Analytics?
- 7. Làm cách nào để ngăn người dùng viết bằng caps lock?
- 8. Có cách nào để phát hiện tính năng "Caps Lock bật" của IE10 không?
- 9. Hiển thị trạng thái của các phím caps lock, num lock và shift trong Emacs
- 10. Bàn phím ảo của Android bật caps lock
- 11. Làm thế nào để ánh xạ Caps Lock thành Esc cho Vim trong Mountain Lion khi keyremap4macbook không hoạt động?
- 12. Qt - Trường mật khẩu, cảnh báo về Caps-Lock
- 13. Có đáng để hoán đổi Ctrl và Caps Lock cho người dùng windows không sử dụng Emacs
- 14. VB.NET: Làm thế nào để chuyển đổi chuỗi thành Ngày?
- 15. Làm thế nào để cảnh báo người dùng của CAPS LOCK được kích hoạt trong Flex/AIR?
- 16. Làm cách nào để thiết lập vim tự động thay đổi màu nền của tôi tùy thuộc vào việc CAPS LOCK có bật hay không?
- 17. Làm cách nào để chuyển đổi hex sang thập phân bằng VB.NET?
- 18. Làm thế nào để chuyển đổi ISO 8601 Thời gian để TimeSpan trong VB.Net?
- 19. Làm thế nào để chuyển đổi Array sang ArrayList trong VB.Net
- 20. Chuyển đổi mô-đun VB6 sang VB.NET
- 21. Làm cách nào để chuyển đổi một danh sách (của T) thành một ObservableCollection (Of T) trong VB.NET?
- 22. Làm thế nào để chuyển đổi giao diện VB.net với enum thành C#
- 23. Làm thế nào để chuyển đổi toàn bộ dự án C# sang vb.net?
- 24. Làm cách nào để nhập nhị phân chữ trong VB.NET?
- 25. Làm cách nào để chuyển đổi danh sách thành ObservableCollection?
- 26. Làm cách nào để bạn sửa đổi giao diện của nút bị tắt trong vb.net?
- 27. Vấn đề Triển khai StructureMap trong VB.Net Chuyển đổi SharpArchitecture
- 28. Làm cách nào để chuyển đổi giữa midi sang wav/mp3 trong C#?
- 29. Tách bởi Caps trong Javascript
- 30. Tự động chuyển đổi đầu vào Hộp văn bản WPF thành Tất cả các Caps?
Wow! 3 dòng mã thay vì một trang ... Tôi ước tôi có thể bỏ phiếu +5. –