منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
حول شاشة تسجيل الدخول ! - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : حول شاشة تسجيل الدخول ! (/showthread.php?tid=31530)

حول شاشة تسجيل الدخول ! - Atyafalk - 27-09-19

Angel Angel 
السلام عليكم اخوتي الكرام
أنا حاليا متلخبطة بين كثر كودات وكثير كثير حيرانه فطلبه مساعدتكم من بعد اذنكم
انا عامله جدول في قاعدة بيانات جدول خاص بالموظفين اسممه Tabla_Users
المهم في الفورم الاول فيه كومبوبوكس خاص باسم مستخدم وتكست خاص بالباسورد
وعامله كود يطلعلي كل اسماء الموظفين 
فعايزه عند ادخل الباسورد يكون ده الباسورد خاص بالموظف ولو فيه خطأ يطلع خطأ في بيانات

RE: vb.net - baha - 27-09-19

وعليكم السلام ورحمة الله وبركاته


تعبئة الكومبو
 
كود :
dt = New DataTable
       da = New OleDbDataAdapter("select user_name as a,pass as b from Table_user", con)  
       da.Fill(dt)  
       If dt.Rows.Count > 0 Then  
           ComboBox1.DataSource = dt    
           ComboBox1.DisplayMember = "a"    
       End If  
كود عند الكتابة داخل التكست بوكس
كود :
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
       If TextBox1.Text.Trim = ComboBox1.SelectedItem(1) Then
           TextBox1.BackColor = Color.Green            
       ElseIf TextBox1.Text.Trim <> "" Then        
           TextBox1.BackColor = Color.Red            
       End If        
   End Sub

كود عند الاختيار من الكومبو بوكس
كود :
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
       TextBox1.BackColor = Color.White
       TextBox1.Clear()        
   End Sub

تمنياتي لك وللجميع التوفيق