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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ترتيب تاريخ المنحة حافظ حافظ 8 154 13-10-17, 12:45 AM
آخر رد: حافظ حافظ
  إيجاد ترتيب الطالب فى الفصل الدراسى hsab 11 236 23-09-17, 04:02 PM
آخر رد: hsab
  سؤال فى الاداة داتا جريد والأداة داتا ريبورت المبرمج العتيق 4 149 29-08-17, 06:48 PM
آخر رد: المبرمج العتيق
  سؤال فى الاداة داتا جريد المبرمج العتيق 2 90 25-08-17, 02:18 AM
آخر رد: المبرمج العتيق
  سؤال فى الاداة داتا جريد المبرمج العتيق 2 96 23-08-17, 04:28 AM
آخر رد: المبرمج العتيق
  [vb6.0] سؤال فى الاداة داتا ريبورت و تحزيم البرنامج المبرمج العتيق 3 140 03-08-17, 05:01 PM
آخر رد: المبرمج العتيق
  سؤال حول الاداة image dr.mostashar 1 116 17-07-17, 01:22 AM
آخر رد: Amir_alzubidy
  استخدام DoEvents dr.mostashar 1 103 08-07-17, 10:56 PM
آخر رد: 5271
Question [سؤال] كيفية استخدام أداة WebBrowser ahmed101 5 2,202 17-06-17, 08:04 AM
آخر رد: lval6402@gmail.com
  [سؤال] كود اضافة سجلات لجدول موجود في قاعدة بيانات باستخدام الاداة adox أبوسعود 2 186 04-05-17, 03:28 AM
آخر رد: أبوسعود

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


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