منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

Raggi Tech كتب :اخي الكود يعمل معي كيف لا يعمل !!

لا اعلم هل ارفقت لى المثل الى انت عاملته؟
وى انا اقصد انى اريد لو الكلمه مكتوبه فى Te xtBo x1 مايكتبش الكلمه تانى و يظهر رساله مكتوب فيه هذه الكلمه مكتوبه اعتقد هذا صعب لاكن الكود يعمل عادى كل اما اضغط على but ton يكتب الكلمه مره كمان
أسف لى عدم التوضيح فى الاول

عند الضغط على زر كنترول اسف لى تعبك معايه الله

اليك هذا الكود اخي

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

هذا ما اريده شكرآ اخى
وى جزاك الله خيرا وجعله في ميزان حسناتك