سعود كتب :طيب ارفع مثالك اللي تشتغل عليه ممكن فيه اشكال لم تذكره.

Abu Ehab كتب :

PHP كود :

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        If TextBox1.Text.Length < 6 Then
            TextBox1.Text = "vb4arb"
        End If
    End Sub 


محمد كتب :تفضل اريض اضافت كلمت name

kslawy كتب :

PHP كود :

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged        
Dim Word As String = "vb4arb"        
If TextBox1.Text.Length < 6 OrElse Not TextBox1.Text.StartsWith(Word) Then     
TextBox1.Text = Word
End If
End Sub 


بهذه الطريقة لا يستطيع المستخدم كتابة أي شيء قبل الكلمة المطلوبة

سعود كتب :انا اقول لك ارفع مثالك ارفع المشروع ...على كل حال ان شالله انك عرفت الحل ونا متاكد انك عرفت.