Programmation vb
Fermé
jappa
-
23 janv. 2009 à 14:03
william7007 Messages postés 335 Date d'inscription dimanche 28 décembre 2008 Statut Membre Dernière intervention 23 mars 2010 - 27 janv. 2009 à 01:10
william7007 Messages postés 335 Date d'inscription dimanche 28 décembre 2008 Statut Membre Dernière intervention 23 mars 2010 - 27 janv. 2009 à 01:10
A voir également:
- Programmation vb
- Vb cable - Télécharger - Audio & Musique
- Vb - Télécharger - Langages
- Programmation - Guide
- Application de programmation - Guide
- Programmation logo tortue télécharger - Télécharger - Études & Formations
5 réponses
dna.factory
Messages postés
24957
Date d'inscription
mercredi 18 avril 2007
Statut
Modérateur
Dernière intervention
26 avril 2024
1 609
23 janv. 2009 à 14:11
23 janv. 2009 à 14:11
bah tu fais un simple if assigné au bouton entrée qui vérifie la valeur entrée...
Bonjour
Il faut générer le code par un événement valide;
Command1_Click()
if text1="mot de passe" then
form2.show()
end if
end sub
Il faut générer le code par un événement valide;
Command1_Click()
if text1="mot de passe" then
form2.show()
end if
end sub
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
>
jappa
26 janv. 2009 à 17:39
26 janv. 2009 à 17:39
Bonjour tous
tu a un espace avant le mot du test, comme ça cela ne fonctionnera jamais.
If Text1 = "?greenday" Then
A+
tu a un espace avant le mot du test, comme ça cela ne fonctionnera jamais.
If Text1 = "?greenday" Then
A+
bonjour ,
si c'est possible tu peut m'envoyer le genre d'erreur qui se declanche l'ors de l'execution de ce code.
si c'est possible tu peut m'envoyer le genre d'erreur qui se declanche l'ors de l'execution de ce code.
william7007
Messages postés
335
Date d'inscription
dimanche 28 décembre 2008
Statut
Membre
Dernière intervention
23 mars 2010
46
26 janv. 2009 à 19:19
26 janv. 2009 à 19:19
Bsr
j'espere que je ne viens pas deranger la communauté. ben si je ne sort pas trop du sujet voilà ce que moi je propose de faire
1. ici nous avons 2 feuilles form1 et form2 et deux butons cmdEntrer qui permet d'ouvrir form2 et cmdQuitter qui permet de sortir de m'application.
au debut j'initialise mon bouton entrer à enabled=false soit (cmdEntrer.Enabled=false) pour le desactivé par defaut et là dans l'evenement change de la zone de texte Text1 j'applique ce que tu as dit. ben treve de bavardage voilà ce que j'obtient
lorsque je tappe "william" dans la zone de texte automatiquement le bouton entrer s'active et execute en meme temps le code qui se trouve dans la procedure cmdEntrer_click
je ne sais pas si c'est ce donc vous avez besoin mais c'est ma façon de compredre ce que vous avez dit. faites moi signe si je me trompe.
cdlt.
j'espere que je ne viens pas deranger la communauté. ben si je ne sort pas trop du sujet voilà ce que moi je propose de faire
1. ici nous avons 2 feuilles form1 et form2 et deux butons cmdEntrer qui permet d'ouvrir form2 et cmdQuitter qui permet de sortir de m'application.
au debut j'initialise mon bouton entrer à enabled=false soit (cmdEntrer.Enabled=false) pour le desactivé par defaut et là dans l'evenement change de la zone de texte Text1 j'applique ce que tu as dit. ben treve de bavardage voilà ce que j'obtient
Option Explicit
Dim motPasse As String
Private Sub cmdEntrer_Click()
Form2.Show
End Sub
Private Sub cmdQuitter_Click()
End
End Sub
Private Sub Text1_Change()
motPasse = "william"
If Text1.Text <> motPasse Then
cmdEntrer.Enabled = False
Else
cmdEntrer.Enabled = True
cmdEntrer_Click
End If
End Sub
lorsque je tappe "william" dans la zone de texte automatiquement le bouton entrer s'active et execute en meme temps le code qui se trouve dans la procedure cmdEntrer_click
je ne sais pas si c'est ce donc vous avez besoin mais c'est ma façon de compredre ce que vous avez dit. faites moi signe si je me trompe.
cdlt.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
william7007
Messages postés
335
Date d'inscription
dimanche 28 décembre 2008
Statut
Membre
Dernière intervention
23 mars 2010
46
27 janv. 2009 à 01:10
27 janv. 2009 à 01:10
Attend tu utilise VB6.0?
et t'as donner les meme noms que moi ? à tes commandes ? il faut le verifier
car le code foctionne tres bien chez moi.
et t'as donner les meme noms que moi ? à tes commandes ? il faut le verifier
car le code foctionne tres bien chez moi.
23 janv. 2009 à 14:18
voilà le code que j'ai introduit et ça pas marché:
Private Sub Text1_Change()
If Text1 = " greenday" Then
Command1_Click()
Form2.Show
End Sub
Private Sub Command2_Click()
End
End Sub
avec command11 est entrer et command2 et quitter.
Merci de m'aider svp!