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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  استخدام keyup event لعرض نموذج haitham Muhammed 1 77 10-03-24, 07:43 PM
آخر رد: haitham Muhammed
  [vb6.0] اضافة الصور الى ملف واسترجاعها بدون قاعدة البيانات haitham Muhammed 3 417 24-01-24, 01:51 PM
آخر رد: haitham Muhammed
  عدد مرات استخدام البرنامج اسلام الكبابى 4 682 22-06-23, 10:02 PM
آخر رد: اسلام الكبابى
  تعديل ترتيب أرقام الصفحات تصاعدياً مصمم هاوي 3 845 13-07-22, 03:20 AM
آخر رد: مصمم هاوي
  اهدي اليكم طريقة الاتصال بقاعدة البيانات عن طريقة المشاركه بدون تعديل كود الاتصال ahmed201 1 1,459 25-03-21, 11:35 AM
آخر رد: رضوان الجماعي
Lightbulb [كود] كود لتأجيل تنفيذ الكود بدون Timer! Omar 6.0 1 2,097 19-08-20, 09:39 PM
آخر رد: Gfftfdeuoig c
  المساعدة في ترتيب الاسماء بلا تكرر في الصف الواحد من الجدول gonm64 3 1,457 03-07-20, 06:42 PM
آخر رد: gonm64
  كيف يمكن اعادة ترتيب سجلات MSFlexGrid gonm64 2 1,530 08-06-20, 08:28 AM
آخر رد: gonm64
  هل يمكن استخدام برنامج يعمل بالباركود في تنزيل درجات امتحانات؟ gonm64 11 3,361 03-06-20, 05:16 AM
آخر رد: gonm64
  استخدام Active Report hannileo 5 2,498 23-03-20, 12:09 PM
آخر رد: hannileo

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


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