[المهنا]

(10-07-14, 07:29 AM)vbnet كتب : .....

محاولة (قد يكون لها عيوب)

ضع Button وإثنان TextBox وواحد Label بنفس التريب الذي موضوعك

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim t1, t2, t3 As Char

    Dim s() As String = Me.TextBox2.Text.Split
    t1 = If(s(s.Length - 1).StartsWith("ال"), s(s.Length - 1)(2), s(s.Length - 1)(0))
    t2 = If(Me.TextBox2.Text.StartsWith("ال"), Me.TextBox2.Text(2), Me.TextBox2.Text(0))
    t3 = If(Me.TextBox1.Text.StartsWith("ال"), Me.TextBox1.Text(2), Me.TextBox1.Text(0))

    Me.Label1.Text = t1 & " " & t2 & " " & t3
End Sub

.....

عيوووووب مين قال لا عيب جربتها رائعة
اظن إذا طال الاسم يطلع خطأ ؟صح هذا ما تقصده

جاري اكتشاف الاخطأء وعرض كل الاحتمالات التي من الممكن أن تحصل

ولك خالص الشكر والدعاء

وش العيوب اللى تتوقعها تصير