تقييم الموضوع :
  • 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 ك ب / التحميلات : 40)
الرد }}}}
تم الشكر بواسطة:
#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]
اللهم ارحم فقيدنا ابا ليث
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال عن القوائم السريعة كنونو 3 91 20-04-17, 11:25 PM
آخر رد: السيد الغالي
  سؤال حول الأداة datacombo المبرمج العتيق 2 84 03-04-17, 01:23 AM
آخر رد: المبرمج العتيق
  سؤال حول الأداة datareport فى برنامج مرفق المبرمج العتيق 4 118 26-03-17, 04:16 PM
آخر رد: Ahmed_Mansoor
  [vb6.0] سؤال فى داتا ريبورت عن كيفية طباعة سجل واحد فقط المبرمج العتيق 5 389 24-03-17, 06:06 PM
آخر رد: المبرمج العتيق
  سؤال بخصوص الحلقات التكرارية / اضافة درجة بشروط haiderkh 13 281 02-03-17, 05:58 PM
آخر رد: السيد الغالي
  سؤال فى التقارير اداة داتا ريبورت محمودالصياد محمود 1 83 25-02-17, 11:39 PM
آخر رد: السيد الغالي
  سؤال عن قاعدة البيانات اكسس مبرمج جديد 5 198 17-02-17, 01:27 PM
آخر رد: مبرمج جديد
  [vb6.0] سؤال في تنسيق الفورم basset87 4 317 02-01-17, 11:43 AM
آخر رد: basset87
  سؤال حول درس في الفيجوال tighrmte 11 751 20-12-16, 04:36 PM
آخر رد: tighrmte
Thumbs Down سؤال عن توليد خمس خانات من رقمين؟؟؟؟ KamelArab 7 360 09-12-16, 07:06 PM
آخر رد: KamelArab

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


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