تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ترتيب بدون استخدام الاداة ado
#1
كود :
Private Sub Command1_Click()

z = Len(Text1.Text)
For i = 1 To z
s(i) = Text1.Text
Print s(i)
Next i
For i = 1 To z
Print s(i)
Next i
z1 = Len(Text2.Text)
For i = 1 To z1
a(i) = Text2.Text
Print a(i)
Next i
For i = 1 To z1
Print a(i)
Next i


End Sub

Private Sub Command2_Click()

If s(4) >= a(4) Then
Print "ok"
Else: Print "not ok"
End If

End Sub

Private Sub Text1_Change()

z = Len(Text1.Text)
For i = 1 To z
s(i) = Text1.Text
Next i

End Sub

Private Sub Text2_Change()

z1 = Len(Text2.Text)
For i = 1 To z1
a(i) = Text2.Text
Next i

End Sub
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  لو سمحتم اريد كود ترتيب ليست تصاعديا samira20 6 160 14-09-16, 06:02 PM
آخر رد: samira20
  الفرق بين تاريخين بدون احتساب ايام الجمعه والسبت mohammed.atallah 3 195 17-08-16, 09:54 AM
آخر رد: mohammed.atallah
  [مثال] ترتيب DATAFIELD في الاكتيف ريبورت Abdellah 3 151 04-06-16, 01:31 AM
آخر رد: Ahmed_Mansoor
  [vb6.0] استفسار .. بخصوص استخدام المتغيرات كعداد MutazMurshed 3 175 25-02-16, 03:44 PM
آخر رد: Omar 6.0
  [سؤال] طريق استخدام المصفوفات نانا 1 261 21-02-16, 12:31 AM
آخر رد: Ahmed_Mansoor
Lightbulb [كود] كود لتأجيل تنفيذ الكود بدون Timer! Omar 6.0 0 148 20-02-16, 11:08 AM
آخر رد: Omar 6.0
  ما هو افضل اداة لتجميل الفورم بدون مشاكل عند التستيب mhareek 0 189 03-02-16, 10:17 AM
آخر رد: mhareek
  سوال حول ترتيب list superwoofer 3 287 19-12-15, 05:37 PM
آخر رد: superwoofer
  [vb6.0] هدية بسيطة طباعة تقرير من جدولين بدون Primary Key ahmedabdelaliem 3 901 12-12-15, 02:48 AM
آخر رد: awidan76
Question [vb6.0] هل يمكن إدارج البيانات على الفورم بشكل جدولي بدون اداه وذلك من خلال البرمجة ؟ Microformt 8 927 21-09-15, 09:05 PM
آخر رد: Microformt

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


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