تقييم الموضوع :
  • 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
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] تحميل ملف من رابط معين على الانترنت Vb6 abulayth 5 1,027 02-03-16, 10:16 PM
آخر رد: abulayth
  احترف قواعد البيانات فى فيجوال بيسك 6 derbaliammar 0 1,393 21-07-13, 06:16 AM
آخر رد: derbaliammar
  حصر الماوس داخل نطاق معين RaggiTech 0 510 17-10-12, 02:50 PM
آخر رد: RaggiTech
  هام جداً للمبتدئين - مجموعة من الأكواد الأساسية في فيجوال بيسك RaggiTech 0 1,275 17-10-12, 01:16 AM
آخر رد: RaggiTech
  معرفة عدد الكلمات ضمن نص معين RaggiTech 0 486 17-10-12, 01:08 AM
آخر رد: RaggiTech
  معرفة عدد الأسطر ضمن نص معين RaggiTech 0 323 17-10-12, 01:07 AM
آخر رد: RaggiTech
  معرفة سيريال Drive معين RaggiTech 0 327 17-10-12, 01:07 AM
آخر رد: RaggiTech
  معرفة إذا ما كان زر ال Caps Look يعمل أم لا RaggiTech 0 321 17-10-12, 01:04 AM
آخر رد: RaggiTech
  لعمل فورم شفاف باستخدام فيجوال بيسك RaggiTech 0 617 17-10-12, 12:58 AM
آخر رد: RaggiTech
  كيفية اغلاق أي برنامج من خلال الفيجوال بيسك RaggiTech 0 1,004 17-10-12, 12:51 AM
آخر رد: RaggiTech

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


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