optionButton une seule fonction
Salut,
J'ai quatre optionButton contenus dans une frame, il dirige tous vers la même classe en passant en param leur name.
Peut on faire une seule fonction pour le groupe, ou dois je faire une fonction pour chaque optionButton
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
Private Sub opEnvoi1_Click()
Dim objDTMO As clsServices
Set objDTMO = New clsServices
objDTMO.envoiDTMO (opEnvoi1)
Set objDTMO = Nothing
....
Private Sub opEnvoi2_Click()
Dim objDTMO As clsServices
Set objDTMO = New clsServices
objDTMO.envoiDTMO (opEnvoi2)
Set objDTMO = Nothing
etc
End Sub |
Merci
