Petit trucs TabControls et ComboBox
Bonjour a tous et bonne année.
je vient à vous pour proposer deux petites astuces sur des problèmes récurent sur deux controls communs.
Le ComboBox en lecture seule : (avec le comboBox en mode DropDownList
Code:
1 2 3 4 5 6 7 8 9
|
Dim Cbo_ReadOnly As Boolean = True
Private Sub Cbo_Civilite_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Cbo_Civilite.Enter
If Cbo_ReadOnly = True Then
Me.Cbo_Civilite.Enabled = False
Me.Cbo_Civilite.Enabled = True
End If
End Sub |
Le TabControl bloqué sur une Tab :
Code:
1 2 3 4 5 6 7
|
Dim BloquerTabCtrl As Boolean = False
Dim NomTabBloqué As TabPage
Private Sub TabControl1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TabControl1.SelectedIndexChanged
If BloquerTabCtrl = True Then Me.TabControl1.SelectedTab = NomTabBloqué
End Sub |
pas très élégant mais diablement efficace.