Problème Evènement click [Fermé]

Signaler
Messages postés
7
Date d'inscription
mercredi 22 mai 2013
Statut
Membre
Dernière intervention
28 mai 2013
-
lermite222
Messages postés
8715
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
-
Bonjour, j'ai un problème en ce qui concerne mon projet en vb, je n'arrive pas à faire la liaison entre les objets et le code afin de créer un évènement sur mon formulaire
1er problème:
Lorsque j'appui sur le bouton Send de mon formulaire, il est sencé me faire remarquer si le champ tbNom est vide.

Private Sub Send_Click()

If tbNom = "" Then
MsgBox "Veuillez remplir tous les champs svp", vbCritical, "Champs manquant"
Exit Sub
End If

End Sub

/////////////////////////////////////////////

2e problème:
J'ai inclus une image dans mon formulaire qui est sencée me redirigé vers un lien web mais sans succès

Private Sub Image22_Click()

System.Diagnostics.Process.Start ("adresseDuSite")

End Sub

Je suis un peu perdu :s si quelqu'un pourrait me venir en aide ce serait gentil :)

6 réponses

Messages postés
7
Date d'inscription
mercredi 22 mai 2013
Statut
Membre
Dernière intervention
28 mai 2013

Pour l'image avec l'hypertexte c'est réglé, j'ai inséré un lien directement en cliquant sur l'image plutôt qu'en faisant une fonction dédiée à ça. Mais pour le reste je bloque :s need help plz
Messages postés
7
Date d'inscription
mercredi 22 mai 2013
Statut
Membre
Dernière intervention
28 mai 2013

ça marche si je met tbNom.SetFocus avant le if enfaite mais le pb c'est que je veux mettre plusieurs conditions: if tbNom="" Or tbPrenom="" etc et dans ce cas là cette méthode ne marche pas
Messages postés
121
Date d'inscription
dimanche 30 octobre 2011
Statut
Membre
Dernière intervention
4 août 2015
2
Bonjour,

Utilise OrElse et pas Or tout simplement.
Messages postés
7
Date d'inscription
mercredi 22 mai 2013
Statut
Membre
Dernière intervention
28 mai 2013

If tbPrenom.Text = "" OrElse tbNom.Text = "" Then
ne marche pas il me met la ligne en rouge :s

edit: Personne ? :'(
Messages postés
121
Date d'inscription
dimanche 30 octobre 2011
Statut
Membre
Dernière intervention
4 août 2015
2
Re,

Essaye comme cela :

If tbprenom.text = "" then
retourne:
// ton code

elseif tbNom.text = "" then
goto retourne
end if

Messages postés
8715
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 077
Bonjour,
Apparemment tu est en VB.Net ??
Si oui, pour avoir l'événement clic tu double clic sur le bouton et tu aura la procédure exacte.
    Private Sub Send_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Send.Click

    End Sub

Et le code que tu à mis fonctionnera.
Pour les deux conditions ce sera.
    Private Sub Send_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Send.Click
    If tbPrenom.Text = "" Or tbNom.Text = "" Then 
        MsgBox "Veuillez remplir tous les champs svp", vbCritical, "Champs manquant" 
        Exit Sub 
    End if
    'La traitement
    End Sub
A+

Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
Note: Je ne répond pas aux MP pour les questions techniques. Et ma boule de cristal est cassée .