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
Le TabControl bloqué sur une Tab :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
pas très élégant mais diablement efficace.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Partager