انا لو فاتح برنامج الباور بوينت وبكتب فيه مثلا وبعدين فتحت الرنامج بتاعي لو ضغطت على اي حرف مش هيكتب في الباور بوينت لا هيكون الكلام الي بيتكتب في برنامجي انا انا عايز مهما ضغطت على الفورم او الزراير الي فيه او ... اقدر اكتب في الباور بوينت من غير ما اضغط عليه تاني عشان اكتب فيه
ولو عندي زرار وتيكست بوكس وضغطت على التيكست بوكس وكتبت فيه وبعدين ضغطت على الزر وبعدين جيت أكتب مش هيكتب الا لما أضغط على التيكست بوكس تاني انا عايز لو فضلت ضاغط على البوتون لمدة سنة اتحديد ميروحش من أي مكان للكتابة زر التيكست بوكس والوورد والنوت باد .....
أرجوا الرسالة تكون وصلت
up up up up up up up up up up up up up up up up up up up up up up up up up up up up up up up up up up up up up up up up up up up up up up up up up up up up up up up
uuuuuuuuuuuuuuuppppppppppppppppppppppppppp
ياليت توضح المطلوب لاني مافهمت .. معلش اعذرني
[COLOR="#800000"]
اولآ غير الخاصية KeyPreview الى true
ثم ضع الكود[/COLOR]
كود :
[align=left][color=#0000FF]Private Sub [/color][color=#000000]Form1_KeyPress([/color][color=#0000FF]ByVal [/color][color=#000000]sender [/color][color=#0000FF]As Object[/color][color=#000000], [/color][color=#0000FF]ByVal [/color][color=#000000]e [/color][color=#0000FF]As [/color][color=#000000]System.Windows.Forms.KeyPressEventArgs) [/color][color=#0000FF]Handles Me[/color][COLOR="#000000"].KeyPress
[/COLOR][color=#0000FF]If Not [/color][color=#000000]TextBox1.Focused [/color][COLOR="#0000FF"]Then
[/COLOR][COLOR="#000000"]TextBox1.Text &= e.KeyChar.ToString
[/COLOR][COLOR="#0000FF"]End If
End S[/COLOR][/align]
[COLOR="#800000"]
التركيز اذا كان على أي اداة راح يكتب عادي
مشكلة الكود انك ماتستطيع الرجوع عن حرف كتبته[/COLOR]
أخي انا اريد عمل كيبورد يكتب في التيكست بوكس وفي اي برنامج آخر
البرنامج مرفق
انا عامل 6 ازرار كل واحد بيكتب حرف a,b,c,d,e,f بس لما أضغط على التيكست بوكس ويقوم يتحدد التيكست بوكس وبعدين أضغط على الزرار يقوم التحديد يروح من التيكست بوكس
أنا حطيت الاكواد في الحدث Mouse Move وأريد وضعه في حدث الضغط على الزر
لو فتحت برنامج النوت باد وبعدين وضعط الماوس على اي زر هيكتب في النوت باد بس من غير ما تضغط عليه
أنا عايزه ميكتبش الا أما أضغط على الزرار وعايز البرنامج يبقى أول نافذة حتى لو فتحنا برنامج تاني مينزلش تحت دي خاصية في الفورم بس انا مش فاكرها
أرجوا الفكرة تكون وصلت
بالتوفيق ....
[COLOR="#A52A2A"]
اخي بدون الحدث Mouse Move طريقة افضل
بما انك وضعت في كل زر يكتب حرف معين يعني[/COLOR]
كود :
[align=left][color=#0000FF]Private Sub [/color][color=#000000]Button1_Click([/color][color=#0000FF]ByVal [/color][color=#000000]sender [/color][color=#0000FF]As [/color][color=#000000]System.Object, [/color][color=#0000FF]ByVal [/color][color=#000000]e [/color][color=#0000FF]As [/color][color=#000000]System.EventArgs) [/color][color=#0000FF]Handles [/color][COLOR="#000000"]Button1.Click
TextBox1.Text &= [/COLOR][COLOR="#A31515"]"a"
[/COLOR][COLOR="#0000FF"]End Sub
Private Sub [/COLOR][color=#000000]Button2_Click([/color][color=#0000FF]ByVal [/color][color=#000000]sender [/color][color=#0000FF]As [/color][color=#000000]System.Object, [/color][color=#0000FF]ByVal [/color][color=#000000]e [/color][color=#0000FF]As [/color][color=#000000]System.EventArgs) [/color][color=#0000FF]Handles [/color][COLOR="#000000"]Button2.Click
TextBox1.Text &= [/COLOR][COLOR="#A31515"]"b"
[/COLOR][color=#0000FF]End S[/color][/align]
تستطيع بالحدث TextBox1_TextChanged ان تقوم بالواجب
كود :
[align=left][color=#0000FF]Private Sub [/color][color=#000000]TextBox1_TextChanged([/color][color=#0000FF]ByVal [/color][color=#000000]sender [/color][color=#0000FF]As [/color][color=#000000]System.Object, [/color][color=#0000FF]ByVal [/color][color=#000000]e [/color][color=#0000FF]As [/color][color=#000000]System.EventArgs) [/color][color=#0000FF]Handles [/color][COLOR="#000000"]TextBox1.TextChanged
[/COLOR][color=#0000FF]Dim [/color][color=#000000]W [/color][color=#0000FF]As [/color][color=#000000]IO.StreamWriter = IO.File.CreateText([/color][color=#A31515]"مسار النص"[/color][COLOR="#000000"])
W.Write(TextBox1.Text)
W.Close()
[/COLOR][color=#0000FF]End S[/color][/align]
اريد عمل on screen keyboard مثل الي بيأتي مع الويندوز
ممكن تشيل التيكست بوكس ده اصلا انا الي يهمني انها تكتب في اي حتة