[baha]

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


تعبئة الكومبو
 

كود :

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

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