Bonjour,
Je suis en train de m'envoyer un bouquin ("Practical Standards for Microsoft Visual Basic" ). Il parle à un moment de ne faire qu'un seul point de sortie, comme ça :
Code :
- Public Function IsFormLoaded(strFormName As String) As Boolean
- On Error GoTo PROC_ERR
- Dim intCounter As Integer
- For intCounter = 0 To Forms.Count - 1
- If Forms(intCounter).Name = strFormName Then
- IsFormLoaded = True
- GoTo PROC_EXIT
- End If
- Next intCounter
-
- IsFormLoaded = False
- PROC_EXIT:
- Exit Function
- PROC_ERR:
- MsgBox "basMain | IsFormLoaded" & vbCrLf & "Error: " & _
- Err.Number & vbCrLf & Err.Description
- Resume Next
- End Function
|
Je me dis que s'il le met ça doit être utile, mais en essayant de réfléchir à pourquoi je vois pas.
Peut-être placer un point d'arrêt à la sortie de la sub ?