تقييم الموضوع :
  • 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]
Smile تحياتي لكم Smile
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] سؤال بخصوص mdi form و child الخاصة بها engabuhema 2 68 29-11-16, 12:52 AM
آخر رد: engabuhema
  بحث واحد بعدة كمبو وعرض الناتج في الجدول كنونو 5 166 24-11-16, 02:26 AM
آخر رد: Ahmed_Mansoor
  [سؤال] سؤال في الـ Decompile M@GED 0 48 05-11-16, 05:27 AM
آخر رد: M@GED
  سؤال في مثال كنونو 1 72 23-10-16, 02:16 AM
آخر رد: Ahmed_Mansoor
  [vb6.0] سؤال فى داتا ريبورت عن كيفية طباعة سجل واحد فقط المبرمج العتيق 4 163 02-10-16, 12:53 AM
آخر رد: Ahmed_Mansoor
  [سؤال] سؤال حول التقارير باسط الحسن 13 369 09-09-16, 10:25 PM
آخر رد: باسط الحسن
  [سؤال] سؤال عن كيفية عمل فلتر للجمع في الداتا غريد فاضل الحمود 8 347 13-07-16, 10:05 PM
آخر رد: princeofislam
  [split]سؤال عن كيفية نقل سجل من جدول الى جدول آخر عبدالله الحائط 1 159 30-06-16, 11:33 AM
آخر رد: abulayth
Information سؤال حول انشاء قاعدة بيانات برمجيا haiderkh 2 213 15-06-16, 10:12 PM
آخر رد: haiderkh
  [سؤال] سؤال مبتدي في موضوع الريجستري array-31 2 163 12-06-16, 01:33 PM
آخر رد: array-31

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


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