+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [تم الحل] سؤل حلول keydown (/showthread.php?tid=4385)
الصفحات:
1
2
[تم الحل] سؤل حلول keydown - ™ like VB ™ - 23-09-12
Raggi Tech كتب :اخي الكود يعمل معي كيف لا يعمل !!
لا اعلم هل ارفقت لى المثل الى انت عاملته؟
وى انا اقصد انى اريد لو الكلمه مكتوبه فى Te xtBo x1 مايكتبش الكلمه تانى و يظهر رساله مكتوب فيه هذه الكلمه مكتوبه اعتقد هذا صعب لاكن الكود يعمل عادى كل اما اضغط على but ton يكتب الكلمه مره كمان
أسف لى عدم التوضيح فى الاول
[تم الحل] سؤل حلول keydown - RaggiTech - 23-09-12
على الرحب و السعة
تفضل اخي هذا ما اقصد
للتحميل : اضغط هنا
[تم الحل] سؤل حلول keydown - RaggiTech - 23-09-12
لو سمحت حضرتك عاوز يمنع التكرار عند الضغط على زر كنترول ام الضغط على زر في البرنامج؟
[تم الحل] سؤل حلول keydown - ™ like VB ™ - 23-09-12
عند الضغط على زر كنترول اسف لى تعبك معايه الله
[تم الحل] سؤل حلول keydown - RaggiTech - 23-09-12
اليك هذا الكود اخي
كود :
Public Class Form1
Private Sub TextBox1_KeyUp(ByVal sender As Object, ByVal e As System.******s.Forms.KeyEventArgs) Handles TextBox1.KeyUp
If e.KeyCode = Keys.ControlKey Then
If InStr(TextBox1.Text, "vb4arb") Then
MsgBox("الكلمة موجودة من قبل .", MsgBoxStyle.OkOnly, "رسالة تنبية")
Else
TextBox1.Text &= "vb4arb"
End If
End If
End Sub
End Class[تم الحل] سؤل حلول keydown - ™ like VB ™ - 23-09-12
Raggi Tech كتب :اليك هذا الكود اخيهذا ما اريده شكرآ اخى
كود :
Public Class Form1
Private Sub TextBox1_KeyUp(ByVal sender As Object, ByVal e As System.******s.Forms.KeyEventArgs) Handles TextBox1.KeyUp
If e.KeyCode = Keys.ControlKey Then
If InStr(TextBox1.Text, "vb4arb") Then
MsgBox("الكلمة موجودة من قبل .", MsgBoxStyle.OkOnly, "رسالة تنبية")
Else
TextBox1.Text &= "vb4arb"
End If
End If
End Sub
End Class
وى جزاك الله خيرا وجعله في ميزان حسناتك
[تم الحل] سؤل حلول keydown - RaggiTech - 23-09-12
بالتوفيق ان شاء الله