31-10-25, 02:33 PM
(30-10-25, 06:39 AM)justforit كتب :(30-10-25, 02:39 AM)Zuhare كتب : تعديل
كود :
Public Class Form1
Dim lst1 As New List(Of String) From {"1", "2", "3", "4"}
Dim lst2 As New List(Of String) From {"1", "2", "3"}
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim i As Integer
For i = 0 To lst1.Count - 1
Dim itm1 As String = lst1(i)
Dim itm2 As String = ""
If i < lst2.Count Then itm2 = lst2(i)
ListBox1.Items.Add(itm1)
ListBox2.Items.Add(itm2)
Next
End Sub
End Class
شكر الله لك
لم اجربها بعد لاني هجرتها حاليا
لكن الا تعتبر نفس المؤدى؟
الكود ممتاز
بارك الله فيك
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير