FAQ VB.NETConsultez toutes les FAQ

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Imports System 
Imports System.Data 
Imports System.Data.SqlClient 
Imports System.Windows.Forms 
  
' ... 
Dim con As SqlConnection = Nothing 
Dim command As SqlCommand = Nothing 
Dim cs As String = " la chaine de connexion SQL" 
Dim dr As SqlDataReader = Nothing 
  
Try 
    con = New SqlConnection(cs) 
    command = New SqlCommand("SELECT champ FROM Table",con) 
  
    ' Ouvrir la connexion 
    con.Open() 
    dr = command.ExecuteReader() 
  
    ' Vider le ComboBox 
    ComboBox1.Items.Clear() 
  
    If dr.HasRows Then 
        ' Tant que le DataReader a une ligne d'enregistrements 
        While dr.Read 
        ' Ajouter la donnée au ComboBox 
        ComboBox1.Items.Add(dr.GetValue(0)) 
        End While 
        Else 
        MessageBox.Show("No result for your Data", "Infos", 
        MessageBoxButtons.OK, MessageBoxIcon.Information) 
    End If 
Catch ex As Exception 
    MessageBox.Show(ex.Message) 
Finally 
    If Not (dr Is Nothing) Then dr.Close() 
    If Not (con Is Nothing) Then con.Close() 
End Try 
  
' ...

1
2
3
4
5
6
7
8
Private Sub ComboBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.TextChanged 
    If Me.ComboBox1.FindString(Me.ComboBox1.Text) > 0 Then 
        Dim Pos As Int32 = Me.ComboBox1.Text.Length 
        Me.ComboBox1.SelectedIndex = Me.ComboBox1.FindString(Me.ComboBox1.Text) 
        Me.ComboBox1.SelectionStart = Pos 
        Me.ComboBox1.SelectionLength = Me.ComboBox1.Text.Length - Pos 
    End If 
End Sub

1
2
3
4
5
6
7
8
9
Private Sub ComboBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ComboBox1.KeyDown 
    If e.KeyCode = Keys.Delete Then 
        If ComboBox1.Items.Contains(Me.ComboBox1.Text) Then 
            Me.ComboBox1.Items.Remove(Me.ComboBox1.Text) 
        End If 
    ElseIf e.KeyCode = Keys.Enter AndAlso Not ComboBox1.Items.Contains(Me.ComboBox1.Text) Then 
        Me.ComboBox1.Items.Add(Me.ComboBox1.Text) 
    End If 
End Sub

1
2
3
4
5
6
7
8
9
10
11
Private Sub ComboBox1_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.DropDown 
    Dim MonEnum As IEnumerator = Me.ComboBox1.Items.GetEnumerator 
    Dim g As Drawing.Graphics = Me.ComboBox1.CreateGraphics 
    Dim Taille, MaxTaille As Single 
    While MonEnum.MoveNext 
        Taille = g.MeasureString(CType(MonEnum.Current, String), Me.ComboBox1.Font).Width 
        If MaxTaille < Taille Then MaxTaille = Taille 
    End While 
    g.Dispose() 
    Me.ComboBox1.DropDownWidth = CInt(MaxTaille) + 20 
End Sub