تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
سؤال بربط تاكست بعدة تاكسات
#1
سؤال بربط تاكست بعدة تاكسات

لدينا 5 text و command

بحيث text 1 فيه قيمة 166 00 45 123

المطلوب

عند الضغط على زر command تطلع النتيجة على الشكل :

text2 =123
text3 = 45
text4 = 00
text2 =166

انا استعملت هذه الدالة لكنها بتطلع فى msgbox وليس داخل التاكست

On Error Resume Next
Dim a() As String
a() = Split(Text1.Text, " ")
For i = 0 To Val(a(Index))
MsgBox a(i)
Next


اريد الغاء عمل msgbox

المثال فى المرفقات


الملفات المرفقة
.rar   1.rar (الحجم : 1.42 ك ب / التحميلات : 75)
الرد
تم الشكر بواسطة:
#2
تفضل اخي هذا الكود يفي بالغرض
Text2.Text = Split(Text1, " ")(0
Text3.Text = Split(Text1, " ")(1
Text4.Text = Split(Text1, " ")(2
Text5.Text = Split(Text1, " ")(3
مع مراعاة وضع الاقواس هكذا يصبح (0) و (1) و (2) و (3)
لاني اجد مشكلة بكتابة الكود بصورة كاملة
تحياتي...[/align][/font][/php][/code]
   تحيــــــــــــــــــــــــــــاتي لكـــــــــــــــــــم    
الرد
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم