06-11-16, 04:20 PM
07-11-16, 12:48 AM
السلام عليكم
جرب التالي
جرب التالي
كود :
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بالتوفيق.
07-11-16, 04:48 AM
(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]
07-11-16, 06:16 AM
السلام عليكم
جرب التالي
بالتوفيق اخي .
جرب التالي
كود :
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بالتوفيق اخي .