انظر و حاول معي ان تطور فكرة Caps Lock

مرحباً أخي الكريم,

لست بحاجة إلى استخدام أي من الـ( API(s) ) يمكنك عمل ماتحاول عمله بشيء من هذا القبيل :

 

[color= #000000; font-weight: bold;]Public [color= #000000; font-weight: bold;]Class Form1

    [color= #000000; font-weight: bold;]Private WithEvents TextBox1 [color= #b1b100;]As [color= #000000; font-weight: bold;]New [color= #990000;]System[color= #339933;].Windows[color= #339933;].Forms[color= #339933;].TextBox

    [color= #000000; font-weight: bold;]Private WithEvents ToolTip1 [color= #b1b100;]As [color= #000000; font-weight: bold;]New [color= #990000;]System[color= #339933;].Windows[color= #339933;].Forms[color= #339933;].ToolTip

 

    [color= #000000; font-weight: bold;]Private Sub TextBox1_GotFocus[color= #009900;](ByVal sender [color= #b1b100;]As Object[color= #339933;], [color= #990000;]_

    ByVal e [color= #b1b100;]As [color= #990000;]System[color= #339933;].EventArgs[color= #009900;]) Handles TextBox1[color= #339933;].GotFocus[color= #339933;], [color= #990000;]_

    TextBox1[color= #339933;].TextChanged

        [color= #b1b100;]If My[color= #339933;].Computer[color= #339933;].Keyboard[color= #339933;].CapsLock Then

            ToolTip1[color= #339933;].Show[color= #009900;]([color= #0000ff;]"CapsLock is pressed."[color= #339933;], TextBox1[color= #009900;])

        [color= #990000;]End [color= #b1b100;]If

    [color= #990000;]End Sub

 

[color= #990000;]End [color= #000000; font-weight: bold;]Class

بالتوفيق

السلام عليكــم ورحمـة الله وبركاتــه ،،

اخي الفاضل لحاجة في نفس يعقوب قضاها , ليس هذا ما اريده

الذي اريده هو انه عندما اعمل فوكس للتكست بوكس لوحده يشغل كبسة الكابس لوك دون ان يكبسها اليوزر

ليس المقصود الكود الذي كتبته انت , و لا الكود الذي كتبته انا سابق.

انما المقصود التحكم بالكيبورد و اشعال الكابس لوك لوحدها بالكود.

السلام عليكــم ورحمـة الله وبركاتــه ،،

	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 Short = &H14S
	Private Const KEYEVENTF_EXTENDEDKEY As Short = &H1S
	Private Const KEYEVENTF_KEYUP As Short = &H2S

	Public Sub ToggleCapsLock()
		'Simulate Key Press
		keybd_event(VK_CAPITAL, &H45S, KEYEVENTF_EXTENDEDKEY Or 0, 0)
		'Simulate Key Release
		keybd_event(VK_CAPITAL, &H45S, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0)
		'	End If
		'End If
	End Sub

:cry: اخي جزاك الله كل الخير هذا الكود اثلجت صدري لانني بحثت عن مثل هذا الكود كثيرا و لم اجد إلا القليل و لكن مخلوط مع كود كثير لم اعرف فلترته و تطويعه كما اردت

مرة اخرى شكرا لك اخي :clapping:

قمة الإبداع اشكركم يا اساتذة كنت اتساءل عن نفس الموضوع و دخلت ع المنتدى للسؤال فوجدت الحل بين يدي

السلام عليكــم ورحمـة الله وبركاتــه ،،

أخواني فيه سؤال بسيط في نفس الموضوع

كيف أخلي الجهاز أولا يفحص إذا كان capslock شغال بعدين يشغله لأن صارت عندي مشكلة و ذلك في حالة إذا شغال من قبل فإن الكود يكون عكسي

و لكم جزيل الشكر

أنظر إلى أول مشاركة فى الموضوع :happy: