[iisys]

اظهار بيانات Combo1 في Text

[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

بالتوفيق.

[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]

[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

 بالتوفيق اخي .