السلام عليكم
عندما اضغط علي عنصر محدد في ليست بوكس يظهر اسم المستخدم
لكن كلمة المرور تظل كلمه اخيره
اريده تظهر كلمة المرور لكل مستخدم اضغط عليه
هدا كود
كود :
Private Sub ListBox1_Click(sender As Object, e As EventArgs) Handles ListBox1.Click
user_name.Text = ListBox1.SelectedItem.ToString
For i = 0 To dt.Rows.Count - 1
user_password.Text = dt.Rows(i).Item("user_password")
Next
End Sub
(25-11-22, 08:41 PM)ali_ahmed12 كتب : [ -> ]السلام عليكم
عندما اضغط علي عنصر محدد في ليست بوكس يظهر اسم المستخدم
لكن كلمة المرور تظل كلمه اخيره
اريده تظهر كلمة المرور لكل مستخدم اضغط عليه
هدا كود
كود :
Private Sub ListBox1_Click(sender As Object, e As EventArgs) Handles ListBox1.Click
user_name.Text = ListBox1.SelectedItem.ToString
For i = 0 To dt.Rows.Count - 1
user_password.Text = dt.Rows(i).Item("user_password")
Next
End Sub
و عليكم السلام و رحمة الله و بركاته
راجع الموضوع التالي فربما تجد حل لمشكلتك
http://vb4arb.com/vb/thread-31025.html
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.