Discussion :

[adil54]

Bonjour ,
voila je souhaite votre aide svp
j ai 2 forms diffirents qui ont les memes champs de saisie ctadire les noms des controles textbox ont les meme noms dans les 2 forms
j ai TextBox1 ,TextBox2 dans form1 et form2
et j ai une méthode de controle de saisie (contre vide) dans un modele
je veux utilisé cette méthode dans form1 et form2
mais le pb je sais pas quoi ca marche pas je sais pas pourquoi?
si vous avez une idée svp je vous remercie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Module mon module
Public TextBox1 AS TextBox
Public TextBox2 AS TextBox
   Public Sub MethodeControleVide
     If TextBox1.Text = "" Then
            MsgBox("Veuillez Saisir ...",MsgBoxStyle.Exclamation)
     ElseIf  TextBox2.Text = "" Then
            MsgBox("Veuillez Saisir ...",MsgBoxStyle.Exclamation)
     ElseIf TextBox2.Text <> &quot;&quot; Then
           'fais un tric            
     End If
     End Sub
End Module

je vous remercie

[Danyel]

Deja n'utilise pas un module, mais une classe.
Tu peux faire comme cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub MethodeControleVide(ByVal LeTextbox As Control)
 
        if LeTextbox.value = "" then
                  MsgBox("Veuillez Saisir ...",MsgBoxStyle.Exclamation)
        else
                  'fais un tric
        end if
 
End Sub

et tu envois ton controle à la classe.

[adil54]

je te remercie je vais essayer mais je vois tu as mets letextbox.value="" alors moi je veux la proprieté du letextbox
tt facon je vais voir qu est ce que ca donne
merci

[Danyel]

je te remercie je vais essayer mais je vois tu as mets letextbox.value="" alors moi je veux la proprieté du letextbox

Oui j'ai pas bien fais attention car j'ai tape le code à la volee, mais tu remplaces value par text et ca doit le faire.

[adil54]

je te remercie ce que j ai fait et ca marche merci