منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] اظهار بيانات Combo1 في Text - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [سؤال] اظهار بيانات Combo1 في Text (/showthread.php?tid=17930)

اظهار بيانات Combo1 في Text - iisys - 06-11-16

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

RE: اظهار بيانات Combo1 في Text - AL_BRNS - 07-11-16

السلام عليكم

جرب التالي

كود :
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

بالتوفيق.


RE: اظهار بيانات Combo1 في Text - iisys - 07-11-16

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

RE: اظهار بيانات Combo1 في Text - AL_BRNS - 07-11-16

السلام عليكم

جرب التالي


كود :
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


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