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 41 42 43 44 45 46 47
| Option Explicit
Private Sub Command1_Click()
subClearControls Me
End Sub
'---------------------------------------------------------------------------------------
' Procedure : subClearControls
' Purpose : permet de vider le contenu des propriétés TEXT et CAPTION de façon générique
' Parameter : objForm_E formulaire à traiter
' Return :
' Update :
'---------------------------------------------------------------------------------------
'
Public Sub subClearControls(objForm_E As Form)
On Error GoTo subClearControls_Error
Dim objCtrl As Object 'contrôle en cours de traitement
Dim lngCtrlIndex As Long 'index du contrôle
Dim strCtrlType As String 'type de contrôle
'--- pour tous les contrôles du formulaire ---
For lngCtrlIndex = 0 To (objForm_E.Controls.Count - 1)
'instanciation de l'objet contrôle
Set objCtrl = objForm_E.Controls(lngCtrlIndex)
'récupération du type (TextBox, Label, CommandButton, etc.)
strCtrlType = TypeName(objCtrl)
'--- traitement en fonction du type de contrôle ---
Select Case strCtrlType
'cas avec la propriété "TEXT"
Case "ComboBox", "TextBox"
objCtrl.Text = ""
'cas avec la propriété "CAPTION"
Case "Label", "CommandButton", "CheckBox", "Frame", "OptionButton"
objCtrl.Caption = ""
End Select
Next lngCtrlIndex
'gestion des erreurs
subClearControls_Error:
If Err Then
MsgBox CStr(Err.Number) & vbCrLf & Err.Description
End If
End Sub |
Partager