[™ like VB ™]

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

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

[RaggiTech]

على الرحب و السعة
تفضل اخي هذا ما اقصد
للتحميل : اضغط هنا

[RaggiTech]

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

[™ like VB ™]

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

[RaggiTech]

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

كود :

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

[™ like VB ™]

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

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

[RaggiTech]

بالتوفيق ان شاء الله