30-01-14, 01:45 PM
سؤال بربط تاكست بعدة تاكسات
لدينا 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
المثال فى المرفقات
لدينا 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
المثال فى المرفقات