21-09-12, 03:12 PM
08-08-13, 06:15 PM
يا ريت أنا أبحث عن كود مثل هذا
09-08-13, 01:34 AM
نحمده ونصلي على رسوله الكريم
حقيقة لا اعرف البسيك 6، ولكن قمت بعمل بحث ووجدت التالي:
How To Toggle the NUM LOCK, CAPS LOCK, and SCROLL LOCK Keys
How to turn on or off the Caps Lock key in VB6?
تصفح باقي النتائج....
حقيقة لا اعرف البسيك 6، ولكن قمت بعمل بحث ووجدت التالي:
How To Toggle the NUM LOCK, CAPS LOCK, and SCROLL LOCK Keys
How to turn on or off the Caps Lock key in VB6?
تصفح باقي النتائج....
09-08-13, 02:04 AM
....................
09-08-13, 02:20 AM
كود :
' CapsLock
Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Private Const VK_CAPITAL = &H14
Private Const KEYEVENTF_KEYUP = &H2
Public Sub CapsLock(TurnOn As Boolean)
Dim CapsLockState As Integer
CapsLockState = GetKeyState(vbKeyCapital)
CapsLockState = (CapsLockState = 1 Or CapsLockState = -127)
If TurnOn = Not CapsLockState Then
keybd_event VK_CAPITAL, 0, 0, 0
keybd_event VK_CAPITAL, 0, KEYEVENTF_KEYUP, 0
End If
End Sub
' TurnOn
Private Sub Command1_Click()
CapsLock True
End Sub
' TurnOff
Private Sub Command2_Click()
CapsLock False
End Sub24-08-13, 04:57 PM
....................
24-08-13, 05:01 PM
ظهر لي أخطاء في البرنامج أخي 6vb ما السبب ؟؟؟؟؟[attach=config]3878[/attach]
24-08-13, 06:58 PM
كود :
Public Class Form1
' CapsLock
Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Private Const VK_CAPITAL = &H14
Private Const KEYEVENTF_KEYUP = &H2
Public Sub CapsLock(ByVal TurnOn As Boolean)
Dim CapsLockState As Integer
CapsLockState = GetKeyState(VK_CAPITAL)
CapsLockState = (CapsLockState = 1 Or CapsLockState = -127)
If TurnOn = Not CapsLockState Then
keybd_event(VK_CAPITAL, 0, 0, 0)
keybd_event(VK_CAPITAL, 0, KEYEVENTF_KEYUP, 0)
End If
End Sub
' TurnOn
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
CapsLock(True)
End Sub
' TurnOff
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
CapsLock(False)
End Sub
End Class26-08-13, 05:06 PM
مشكووووووور :d 