السلام عليكم
لدي استفسار صغير لو سمحتم
لدي برنامج لعرض الاحرف والارقام
حيث عندم اضغط لاستعرض الجدولين
لا يتم عرضهم بترتيب
يعني يتم تجاوز جميع السطور
وانا اريد ان يتم عرض السطور بتدرج على كلا الجدولين
وبرك الله فيكم
مساعدة في عرض السطور بتدرج
السلام عليكم
تم ايجد الحل
اقتباسPrivate Sub Command1_Click()
Dim i, j As Integer
i = List1.ListIndex
j = List2.ListIndex
If i < List1.ListCount - 1 Then
End If
If j < List2.ListCount - 1 Then
i = i + 1
j = j + 1
List1.ListIndex = i
List2.ListIndex = j
Label1 = List1.List(i)
End If
End Sub
متاسف على الازعاج
للغلق