استفسار عن كود..

لم افهم فعليا فكرة ما تريد فعله.. ما علاقة الارقام بالنص الذي سيظهر؟ عدد الاحرف مثلا يتطابق مع عدد الارقام.. ما علاقة الصفر بالموضوع؟

ماذا لو راجعت قواعد المشاركة التي تنص على اختيار عنوان مناسب للموضوع /index.php?showtopic=29343

هل سيتغير الوضع؟

-9

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If CInt(TextBox1.SelectionStart = 0 And TextBox1.SelectionLength = 3) = 0 Then
            Label1.Text = "سوريا"
        End If
    End Sub

-waf

لو انت عايز تدخل رقم 5555555555555005555555555و عايز البرنامج يحدد مكان الصفر ولما يلاقيه يطلع رساله يبقى ده الحل بتاعه

Dim x As String = txt1.Text

Dim y As Integer = 0

For y = 0 To Val(x.Length) - 1

If x.Chars(y) = "0" Then

MsgBox("the 0 item in position (" & y.ToString & " )", MsgBoxStyle.Information)

Exit Sub

End If

Next

MsgBox("There is NO Zero item in your text", MsgBoxStyle.Information)

End Sub

الكود ده بيعمل لما يلاقى الصفر يطلع الرسالة و يخرج

انت لو فهمت اللى حصل حاول تخله يدور على الصفر و لو لقاه يدور تانى و يطلع رساله بعدد الاصفار و اماكنهم

مشككككككككككككككككككككككككككككور علي ردودكم الحلوة والسريعة وانا قد توفقت عندما طلبت المساعدة من أفراد هذا المنتدي العملاق

مشكور مرة أخري وجاري التجربة