[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

[asmarsou]

(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

[ali_ahmed12]

(25-11-22, 11:27 PM)asmarsou كتب :

(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.