تقييم الموضوع :
  • 1 أصوات - بمعدل 5
  • 1
  • 2
  • 3
  • 4
  • 5
تفعيل caps lock عند فتح فورم معين(((فيجوال بيسك 6))))
#1
sendkeys CAPSLOCK
الرد
تم الشكر بواسطة:
#2
يا ريت أنا أبحث عن كود مثل هذا
الرد
تم الشكر بواسطة:
#3
نحمده ونصلي على رسوله الكريم
حقيقة لا اعرف البسيك 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?

تصفح باقي النتائج....
الرد
تم الشكر بواسطة:
#4
....................
الرد
تم الشكر بواسطة:
#5
كود :
' 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 Sub
الرد
تم الشكر بواسطة:
#6
....................
الرد
تم الشكر بواسطة:
#7
ظهر لي أخطاء في البرنامج أخي 6vb ما السبب ؟؟؟؟؟[attach=config]3878[/attach]


الملفات المرفقة صورة/صور
   
الرد
تم الشكر بواسطة:
#8
كود :
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 Class
الرد
تم الشكر بواسطة:
#9
مشكووووووور :d Smile
الرد
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم