[iisys]

(07-11-16, 12:48 AM)AL_BRNS كتب : السلام عليكم

جرب التالي

كود :

Private Sub Combo1_Click()
Dim x() As String
x = Split(Combo1.Text, " ")
Text1.Text = x(1) & x(2)
Text2.Text = x(0)
Text3.Text = x(4)
End Sub

بالتوفيق.

---

بارك الله فيك اخي الكريم AL_BRNS  وجزاك الله الف خير

---

عزيزي [b]AL_BRNS التعديل تمام ( فقط ) بالنسبة للنص الوقع بين الارقام والحروف يأتي متشابك ؟[/b]