Initialisation de toutes les zones d'un écran

Commenter

Contenu du snippet

Cette routine permet de mettre à blanc toutes les zones textbox, maskedit, combobox, grids et listes d'un écran.

Une seule contrainte (si on peut dire) : les noms des différents contrôles doivent avoir une certaine syntaxe. Les trois premières lettres doivent êtres pareilles

Les maskedit = MSK , les textbox = TXT , les combobox = CMB , les grids = GRI , les listes = LST.

Si L 'écran s'appelle FRMForme, appeler SreenMab FRMForme

Source / Exemple : 


Public Sub ScreenMab(Forme As Form)
Dim i As Integer
Dim nbre As Integer
Dim InterCont As String
nbre = Forme.Count
For i = 0 To nbre - 1
    
        If UCase(Mid$(Forme.Controls(i).Name, 1, 3)) = "MSK" Then
            InterCont = Forme.Controls(i).Mask
            Forme.Controls(i).Mask = ""
            Forme.Controls(i).Text = ""
            Forme.Controls(i).Mask = InterCont
          
        End If
    
        If UCase(Mid$(Forme.Controls(i).Name, 1, 3)) = "TXT" Then
            If Forme.Controls(i).Locked = False Then
            Forme.Controls(i).Text = ""
            Else
            Forme.Controls(i).Locked = False
            Forme.Controls(i).Text = ""
            Forme.Controls(i).Locked = True
            End If
        End If
    
        If UCase(Mid$(Forme.Controls(i).Name, 1, 3)) = "CMB" Then
            If Forme.Controls(i).Locked = False Then
            If Forme.Controls(i).Style = 2 Then
                Forme.Controls(i).ListIndex = -1
                Else
                Forme.Controls(i).ListIndex = -1
                Forme.Controls(i).Text = ""
            End If
            End If
        End If
    
        If UCase(Mid$(Forme.Controls(i).Name, 1, 3)) = "GRI" Then
            Forme.Controls(i).Clear
        End If
        
        If UCase(Mid$(Forme.Controls(i).Name, 1, 3)) = "LST" Then
            Forme.Controls(i).Clear
        End If
Next i

End Sub

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.