منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

برفقه مثال يتكون من :

1- COMBO1
2- Text

combo1 يتكون من ارقام وحروف

المطلوب : عند الاختيار من Combo1 يتم نقل الارقام الي Text1
ونقل الحروف الي Text2

ارجو المساعدة

تحياتي للجميع

[attachment=11783]المرفق

السلام عليكم

اخي الكريم الملف المرفق غير كامل

ارفق المثال كامل لكي يتم التعامل معه

يعطيك العافية

مرفق المثال

شوفو حيلتي Smile

PHP كود :
Private Sub Combo1_Click()
Text1.Text = ""
Text2.Text = ""
For Each h In Split(Combo1.Text, " ")
If IsNumeric(h) Then
Text2.Text = h
Else
Text1.Text = Text1.Text & " " & h
End If
Next
End Sub 

طريقتي ماتضبط الا اذا فيه فراغ Sad

(25-09-16, 08:51 PM)Amir_alzubidy كتب : [ -> ]انبسط لما اشوف عنصر مهم من عناصر الدوت نت تتجول بقسمنا
عاشت الايادي اخوي سعود
ربي يحفظك

الصراحة الاصدار هذا يهدي الاعصاب يعمل بسرعة واقصد عند فتح البرنامج ....لكن لا ادري لماذا عند غلقه تظهر رسالة خطا من ميكروسوفت يعني يبحث عن حل Sad

المشكلة ويندوز 10 على مااظن
حتى نسخة sp6 لم تكمل تحديث الاصدار

[صورة مرفقة: vb60.png]

تسلم يمينك اخوي سعود

مع الشكر والتقديري اخي امير بارك الله فيك

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

iisys

abulayth

iisys

سعود

سعود

سعود

iisys

iisys