[غزة العزة]

PHP كود :

Private Sub ListBox1_Click(sender As Object, e As EventArgs) Handles ListBox1.Click
    If ListBox1.SelectedItem IsNot Nothing Then
        Dim selectedUserName As String = ListBox1.SelectedItem.ToString()
        user_name.Text = selectedUserName
        
        ' ابحث عن اسم المستخدم في DataTable
        For Each row As DataRow In dt.Rows
            If row("user_name").ToString() = selectedUserName Then
                user_password.Text = row("user_password").ToString()
                Exit For ' عند العثور على المستخدم المطلوب، لا داعي لمتابعة الحلقة
            End If
        Next
    End If
End Sub 


شرح التعديلات:
التحقق من وجود عنصر محدد: الكود يبدأ بالتحقق من أن هناك عنصرًا محددًا في ListBox1 لتجنب الأخطاء في حالة عدم تحديد أي عنصر.
تعيين اسم المستخدم: تعيين user_name.Text ليكون مساويًا للاسم المحدد في ListBox1.
البحث في DataTable: استخدم حلقة For Each للبحث عن الصف الذي يحتوي على اسم المستخدم المحدد. عند العثور عليه، يتم تعيين كلمة المرور المناسبة إلى user_password.Text.
إيقاف الحلقة: بمجرد العثور على المستخدم، يتم استخدام Exit For لإنهاء الحلقة لتجنب عمليات بحث غير ضرورية.
بهذا الشكل، ستتمكن من عرض كلمة المرور الصحيحة للمستخدم المحدد في ListBox1.