منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
تفعيل caps lock عند فتح فورم معين(((فيجوال بيسك 6)))) - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (https://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (https://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : مكتبة أكواد المنتدى (https://vb4arb.com/vb/forumdisplay.php?fid=111)
+---- قسم : مكتبة أكواد الفيجوال بيسك 6 (https://vb4arb.com/vb/forumdisplay.php?fid=116)
+---- الموضوع : تفعيل caps lock عند فتح فورم معين(((فيجوال بيسك 6)))) (/showthread.php?tid=4294)

تفعيل caps lock عند فتح فورم معين(((فيجوال بيسك 6)))) - سانسيفا - 21-09-12

sendkeys CAPSLOCK

تفعيل caps lock عند فتح فورم معين(((فيجوال بيسك 6)))) - مهند إلكترو - 08-08-13

يا ريت أنا أبحث عن كود مثل هذا

تفعيل caps lock عند فتح فورم معين(((فيجوال بيسك 6)))) - ربيع - 09-08-13

نحمده ونصلي على رسوله الكريم
حقيقة لا اعرف البسيك 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?

تصفح باقي النتائج....

تفعيل caps lock عند فتح فورم معين(((فيجوال بيسك 6)))) - VB6DAO - 09-08-13

....................

تفعيل caps lock عند فتح فورم معين(((فيجوال بيسك 6)))) - VB6DAO - 09-08-13

كود :
' 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


تفعيل caps lock عند فتح فورم معين(((فيجوال بيسك 6)))) - مهند إلكترو - 24-08-13

....................

تفعيل caps lock عند فتح فورم معين(((فيجوال بيسك 6)))) - مهند إلكترو - 24-08-13

ظهر لي أخطاء في البرنامج أخي 6vb ما السبب ؟؟؟؟؟[attach=config]3878[/attach]

تفعيل caps lock عند فتح فورم معين(((فيجوال بيسك 6)))) - VB6DAO - 24-08-13

كود :
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


تفعيل caps lock عند فتح فورم معين(((فيجوال بيسك 6)))) - مهند إلكترو - 26-08-13

مشكووووووور :d Smile