Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic pb text box

pb text box

16 réponses
Avatar
HeLioZz
bonjour a tous!
voici mon pb: je ne sais pas pourquoi ca ne fonctionne pas
voici mon code :
Private Sub TextBox11_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles TextBox11.Click
If Form2.Button1.Enabled = True Then
TextBox11.Text = "Discothèque"
End If

If Form2.Button2.Enabled = True Then
TextBox11.Text = "Bar Karaoké"
End If

If Form2.Button3.Enabled = True Then
TextBox11.Text = "Bar Ambiance Musicale"
End If

If Form2.Button4.Enabled = True Then
TextBox11.Text = "Bar de nuit"
End If
If Form2.Button5.Enabled = True Then
TextBox11.Text = "Club"
End If
If Form2.Button6.Enabled = True Then
TextBox11.Text = "Cabaret"
End If
If Form2.Button7.Enabled = True Then
TextBox11.Text = "casino"
End If
If Form2.Button8.Enabled = True Then
TextBox11.Text = "booling"
End If

If Form2.Button9.Enabled = True Then
TextBox11.Text = "Immeuble a risques agravants"
End If
et le souci c est qu il m ecrit a chaque fois "immeuble a risque agravant
il ne prend pas en compte les autre phrase a ecrire !

si quelqu un pouvait m aider svp !
merci d avance
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Christian Hugoud
Parce que If Form2.Button9.Enabled = True Then est toujours executé.

Si tu veux sortir de la procédure dès qu'une condition est vraie, alors
ajoute à chaque fois avant le end if : exit sub

Christian

"HeLioZz" a écrit dans le message de
news:
bonjour a tous!
voici mon pb: je ne sais pas pourquoi ca ne fonctionne pas
voici mon code :
Private Sub TextBox11_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles TextBox11.Click
If Form2.Button1.Enabled = True Then
TextBox11.Text = "Discothèque"
End If

If Form2.Button2.Enabled = True Then
TextBox11.Text = "Bar Karaoké"
End If

If Form2.Button3.Enabled = True Then
TextBox11.Text = "Bar Ambiance Musicale"
End If

If Form2.Button4.Enabled = True Then
TextBox11.Text = "Bar de nuit"
End If
If Form2.Button5.Enabled = True Then
TextBox11.Text = "Club"
End If
If Form2.Button6.Enabled = True Then
TextBox11.Text = "Cabaret"
End If
If Form2.Button7.Enabled = True Then
TextBox11.Text = "casino"
End If
If Form2.Button8.Enabled = True Then
TextBox11.Text = "booling"
End If

If Form2.Button9.Enabled = True Then
TextBox11.Text = "Immeuble a risques agravants"
End If
et le souci c est qu il m ecrit a chaque fois "immeuble a risque agravant
il ne prend pas en compte les autre phrase a ecrire !

si quelqu un pouvait m aider svp !
merci d avance


Avatar
X
Bonjour,

Je ne sais pas en quoi tu es, mais quand tu as un tas de if, mieux vaut
si possible mettre un select case (voir ce mot)




"HeLioZz" a écrit dans le message de
news:
| bonjour a tous!
| voici mon pb: je ne sais pas pourquoi ca ne fonctionne pas
| voici mon code :
| Private Sub TextBox11_Click(ByVal sender As Object, ByVal e As
| System.EventArgs) Handles TextBox11.Click
| If Form2.Button1.Enabled = True Then
| TextBox11.Text = "Discothèque"
| End If
|
| If Form2.Button2.Enabled = True Then
| TextBox11.Text = "Bar Karaoké"
| End If
|
| If Form2.Button3.Enabled = True Then
| TextBox11.Text = "Bar Ambiance Musicale"
| End If
|
| If Form2.Button4.Enabled = True Then
| TextBox11.Text = "Bar de nuit"
| End If
| If Form2.Button5.Enabled = True Then
| TextBox11.Text = "Club"
| End If
| If Form2.Button6.Enabled = True Then
| TextBox11.Text = "Cabaret"
| End If
| If Form2.Button7.Enabled = True Then
| TextBox11.Text = "casino"
| End If
| If Form2.Button8.Enabled = True Then
| TextBox11.Text = "booling"
| End If
|
| If Form2.Button9.Enabled = True Then
| TextBox11.Text = "Immeuble a risques agravants"
| End If
| et le souci c est qu il m ecrit a chaque fois "immeuble a risque agravant
| il ne prend pas en compte les autre phrase a ecrire !
|
| si quelqu un pouvait m aider svp !
| merci d avance
Avatar
Picalausa François
Hello,

La déclaration de l'événément me fait penser qu'il s'agit de VB.Net ou
vb2005...il est donc conseillé d'utiliser le newsgroup approprié:
microsoft.public.fr.dotnet.vb

Sinon, pour éviter le exit sub, le "elseIf (clause) then" est sans doutes
plus approprié!

--
Picalausa François

"Christian Hugoud" a écrit dans le message de news:
ecx3%
Parce que If Form2.Button9.Enabled = True Then est toujours executé.

Si tu veux sortir de la procédure dès qu'une condition est vraie, alors
ajoute à chaque fois avant le end if : exit sub

Christian

"HeLioZz" a écrit dans le message de
news:
bonjour a tous!
voici mon pb: je ne sais pas pourquoi ca ne fonctionne pas
voici mon code :
Private Sub TextBox11_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles TextBox11.Click
[...]
et le souci c est qu il m ecrit a chaque fois "immeuble a risque agravant
il ne prend pas en compte les autre phrase a ecrire !

si quelqu un pouvait m aider svp !
merci d avance






Avatar
Fred
Dans : news:ecx3%,
Christian Hugoud disait :
Parce que If Form2.Button9.Enabled = True Then est toujours executé.

Si tu veux sortir de la procédure dès qu'une condition est vraie,
alors ajoute à chaque fois avant le end if : exit sub



Bonjour,

Je crois comprendre que HeLioZz veut concaténer les différentes phrases.
Si c'est bien le cas, sa structure de programme est correcte mais il
doit ecrire à chaque fois :

TextBox11.Text &= vbCrLf & "Ce qu'il faut ajouter"

Sauf pour la première qui reste :
TextBox11.Text = "Discothèque"

Si les retours à la ligne ne sont pas souhaités, enlever : vbCrLf &


--
Fred
http://www.cerbermail.com/?3kA6ftaCvT
Avatar
Driss HANIB
j'ai une petite question concernant les boutons que tu utilises
1. comment rends tu 'enabled' ou 'disabled' un bouton?
2. y-a-t'il un seul bouton disponible à la fois?
3. pourquoi ne pas utiliser plutot des optionbutons ?
4. pourquoi gérer le remplissage du textbox en cliqant dessus et pas au
moment ou tu gères la dispnibilité d'un de tes boutons ?

Driss
"HeLioZz" a écrit dans le message de
news:
bonjour a tous!
voici mon pb: je ne sais pas pourquoi ca ne fonctionne pas
voici mon code :
Private Sub TextBox11_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles TextBox11.Click
If Form2.Button1.Enabled = True Then
TextBox11.Text = "Discothèque"
End If

If Form2.Button2.Enabled = True Then
TextBox11.Text = "Bar Karaoké"
End If

If Form2.Button3.Enabled = True Then
TextBox11.Text = "Bar Ambiance Musicale"
End If

If Form2.Button4.Enabled = True Then
TextBox11.Text = "Bar de nuit"
End If
If Form2.Button5.Enabled = True Then
TextBox11.Text = "Club"
End If
If Form2.Button6.Enabled = True Then
TextBox11.Text = "Cabaret"
End If
If Form2.Button7.Enabled = True Then
TextBox11.Text = "casino"
End If
If Form2.Button8.Enabled = True Then
TextBox11.Text = "booling"
End If

If Form2.Button9.Enabled = True Then
TextBox11.Text = "Immeuble a risques agravants"
End If
et le souci c est qu il m ecrit a chaque fois "immeuble a risque agravant
il ne prend pas en compte les autre phrase a ecrire !

si quelqu un pouvait m aider svp !
merci d avance


Avatar
Vincent Guichard
X a écrit :
Bonjour,

Je ne sais pas en quoi tu es, mais quand tu as un tas de if, mieux vaut
si possible mettre un select case (voir ce mot)




Sauf qu'on ne peut pas faire de select sur des conditions portant sur
des variables differentes, comme c'est le cas ici.

Vincent Guichard
Avatar
HeLioZz
j ai pensé a ceci :(qui ne fontionne toujours pas !)

If Form2.Button1.Enabled = True Then
TextBox11.Text = "Discothèque"

ElseIf Form2.Button2.Enabled = True Then
TextBox11.Text = "Bar Karaoké"

ElseIf Form2.Button3.Enabled = True Then
TextBox11.Text = "Bar Ambiance Musicale"

ElseIf Form2.Button4.Enabled = True Then
TextBox11.Text = "Bar de nuit"

ElseIf Form2.Button5.Enabled = True Then
TextBox11.Text = "Club"

ElseIf Form2.Button6.Enabled = True Then
TextBox11.Text = "Cabaret"

ElseIf Form2.Button7.Enabled = True Then
TextBox11.Text = "casino"

ElseIf Form2.Button8.Enabled = True Then
TextBox11.Text = "booling"

ElseIf Form2.Button9.Enabled = True Then
TextBox11.Text = "Immeuble a risques agravants"

End If

je ne vois vraiment pas pourquoi ca ne fonctionne pas !

help me please !




"Christian Hugoud" a écrit :

Parce que If Form2.Button9.Enabled = True Then est toujours executé.

Si tu veux sortir de la procédure dès qu'une condition est vraie, alors
ajoute à chaque fois avant le end if : exit sub

Christian

"HeLioZz" a écrit dans le message de
news:
> bonjour a tous!
> voici mon pb: je ne sais pas pourquoi ca ne fonctionne pas
> voici mon code :
> Private Sub TextBox11_Click(ByVal sender As Object, ByVal e As
> System.EventArgs) Handles TextBox11.Click
> If Form2.Button1.Enabled = True Then
> TextBox11.Text = "Discothèque"
> End If
>
> If Form2.Button2.Enabled = True Then
> TextBox11.Text = "Bar Karaoké"
> End If
>
> If Form2.Button3.Enabled = True Then
> TextBox11.Text = "Bar Ambiance Musicale"
> End If
>
> If Form2.Button4.Enabled = True Then
> TextBox11.Text = "Bar de nuit"
> End If
> If Form2.Button5.Enabled = True Then
> TextBox11.Text = "Club"
> End If
> If Form2.Button6.Enabled = True Then
> TextBox11.Text = "Cabaret"
> End If
> If Form2.Button7.Enabled = True Then
> TextBox11.Text = "casino"
> End If
> If Form2.Button8.Enabled = True Then
> TextBox11.Text = "booling"
> End If
>
> If Form2.Button9.Enabled = True Then
> TextBox11.Text = "Immeuble a risques agravants"
> End If
> et le souci c est qu il m ecrit a chaque fois "immeuble a risque agravant
> il ne prend pas en compte les autre phrase a ecrire !
>
> si quelqu un pouvait m aider svp !
> merci d avance





Avatar
Jean-Marc
Hello,

si tu commençais par dire quel est le résultat que tu attends?
N'étant pas magiciens, il est difficile de dire si le résultat
correspond
à ce que TU veux ou pas :-)

Peux tu décrire:
- Ce que tu attends
- Ce qui se produit

La nature de "l'erreur", si erreur il y a:
- Le programme plante ?
Si oui, quelle ligne et quel message d'erreur?

Etc. Plus tu donneras d'informations, plus tu recevras d'aide.

--
Jean-marc
Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
"There are only 10 kind of people
those who understand binary and those who don't."
mailto: remove '_no_spam_' ;

"HeLioZz" a écrit dans le message de
news:
j ai pensé a ceci :(qui ne fontionne toujours pas !)

If Form2.Button1.Enabled = True Then
TextBox11.Text = "Discothèque"

ElseIf Form2.Button2.Enabled = True Then
TextBox11.Text = "Bar Karaoké"

ElseIf Form2.Button3.Enabled = True Then
TextBox11.Text = "Bar Ambiance Musicale"

ElseIf Form2.Button4.Enabled = True Then
TextBox11.Text = "Bar de nuit"

ElseIf Form2.Button5.Enabled = True Then
TextBox11.Text = "Club"

ElseIf Form2.Button6.Enabled = True Then
TextBox11.Text = "Cabaret"

ElseIf Form2.Button7.Enabled = True Then
TextBox11.Text = "casino"

ElseIf Form2.Button8.Enabled = True Then
TextBox11.Text = "booling"

ElseIf Form2.Button9.Enabled = True Then
TextBox11.Text = "Immeuble a risques agravants"

End If

je ne vois vraiment pas pourquoi ca ne fonctionne pas !

help me please !




"Christian Hugoud" a écrit :

> Parce que If Form2.Button9.Enabled = True Then est toujours


executé.
>
> Si tu veux sortir de la procédure dès qu'une condition est vraie,


alors
> ajoute à chaque fois avant le end if : exit sub
>
> Christian
>
> "HeLioZz" a écrit dans le


message de
> news:
> > bonjour a tous!
> > voici mon pb: je ne sais pas pourquoi ca ne fonctionne pas
> > voici mon code :
> > Private Sub TextBox11_Click(ByVal sender As Object, ByVal e As
> > System.EventArgs) Handles TextBox11.Click
> > If Form2.Button1.Enabled = True Then
> > TextBox11.Text = "Discothèque"
> > End If
> >
> > If Form2.Button2.Enabled = True Then
> > TextBox11.Text = "Bar Karaoké"
> > End If
> >
> > If Form2.Button3.Enabled = True Then
> > TextBox11.Text = "Bar Ambiance Musicale"
> > End If
> >
> > If Form2.Button4.Enabled = True Then
> > TextBox11.Text = "Bar de nuit"
> > End If
> > If Form2.Button5.Enabled = True Then
> > TextBox11.Text = "Club"
> > End If
> > If Form2.Button6.Enabled = True Then
> > TextBox11.Text = "Cabaret"
> > End If
> > If Form2.Button7.Enabled = True Then
> > TextBox11.Text = "casino"
> > End If
> > If Form2.Button8.Enabled = True Then
> > TextBox11.Text = "booling"
> > End If
> >
> > If Form2.Button9.Enabled = True Then
> > TextBox11.Text = "Immeuble a risques agravants"
> > End If
> > et le souci c est qu il m ecrit a chaque fois "immeuble a risque


agravant
> > il ne prend pas en compte les autre phrase a ecrire !
> >
> > si quelqu un pouvait m aider svp !
> > merci d avance
>
>
>


Avatar
Jean-Marc
Je crois avoir compris.....

Tes boutons sont des option Button ?

Si oui, tu ne testes pas la bonne propriété.
Ce n'est pas enabled mais value, qui vaut
True si le bouton est coché
False si il n'est pas coché.

C'est ça ??


--
Jean-marc
Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
"There are only 10 kind of people
those who understand binary and those who don't."
mailto: remove '_no_spam_' ;

"Jean-Marc" a écrit dans le message de
news:43ba9726$0$31252$
Hello,

si tu commençais par dire quel est le résultat que tu attends?
N'étant pas magiciens, il est difficile de dire si le résultat
correspond
à ce que TU veux ou pas :-)

Peux tu décrire:
- Ce que tu attends
- Ce qui se produit

La nature de "l'erreur", si erreur il y a:
- Le programme plante ?
Si oui, quelle ligne et quel message d'erreur?

Etc. Plus tu donneras d'informations, plus tu recevras d'aide.

--
Jean-marc
Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
"There are only 10 kind of people
those who understand binary and those who don't."
mailto: remove '_no_spam_' ;

"HeLioZz" a écrit dans le message


de
news:
> j ai pensé a ceci :(qui ne fontionne toujours pas !)
>
> If Form2.Button1.Enabled = True Then
> TextBox11.Text = "Discothèque"
>
> ElseIf Form2.Button2.Enabled = True Then
> TextBox11.Text = "Bar Karaoké"
>
> ElseIf Form2.Button3.Enabled = True Then
> TextBox11.Text = "Bar Ambiance Musicale"
>
> ElseIf Form2.Button4.Enabled = True Then
> TextBox11.Text = "Bar de nuit"
>
> ElseIf Form2.Button5.Enabled = True Then
> TextBox11.Text = "Club"
>
> ElseIf Form2.Button6.Enabled = True Then
> TextBox11.Text = "Cabaret"
>
> ElseIf Form2.Button7.Enabled = True Then
> TextBox11.Text = "casino"
>
> ElseIf Form2.Button8.Enabled = True Then
> TextBox11.Text = "booling"
>
> ElseIf Form2.Button9.Enabled = True Then
> TextBox11.Text = "Immeuble a risques agravants"
>
> End If
>
> je ne vois vraiment pas pourquoi ca ne fonctionne pas !
>
> help me please !
>
>
>
>
> "Christian Hugoud" a écrit :
>
> > Parce que If Form2.Button9.Enabled = True Then est toujours
executé.
> >
> > Si tu veux sortir de la procédure dès qu'une condition est vraie,
alors
> > ajoute à chaque fois avant le end if : exit sub
> >
> > Christian
> >
> > "HeLioZz" a écrit dans le
message de
> > news:
> > > bonjour a tous!
> > > voici mon pb: je ne sais pas pourquoi ca ne fonctionne pas
> > > voici mon code :
> > > Private Sub TextBox11_Click(ByVal sender As Object, ByVal e As
> > > System.EventArgs) Handles TextBox11.Click
> > > If Form2.Button1.Enabled = True Then
> > > TextBox11.Text = "Discothèque"
> > > End If
> > >
> > > If Form2.Button2.Enabled = True Then
> > > TextBox11.Text = "Bar Karaoké"
> > > End If
> > >
> > > If Form2.Button3.Enabled = True Then
> > > TextBox11.Text = "Bar Ambiance Musicale"
> > > End If
> > >
> > > If Form2.Button4.Enabled = True Then
> > > TextBox11.Text = "Bar de nuit"
> > > End If
> > > If Form2.Button5.Enabled = True Then
> > > TextBox11.Text = "Club"
> > > End If
> > > If Form2.Button6.Enabled = True Then
> > > TextBox11.Text = "Cabaret"
> > > End If
> > > If Form2.Button7.Enabled = True Then
> > > TextBox11.Text = "casino"
> > > End If
> > > If Form2.Button8.Enabled = True Then
> > > TextBox11.Text = "booling"
> > > End If
> > >
> > > If Form2.Button9.Enabled = True Then
> > > TextBox11.Text = "Immeuble a risques agravants"
> > > End If
> > > et le souci c est qu il m ecrit a chaque fois "immeuble a risque
agravant
> > > il ne prend pas en compte les autre phrase a ecrire !
> > >
> > > si quelqu un pouvait m aider svp !
> > > merci d avance
> >
> >
> >



Avatar
HeLioZz
le souci est que a chaque fois que je clique sur un bouton(n importe lequel)
il m ecrit dans la textbox "immeuble a risque agravant" si je ne met pas les
"else if"
si je le met il me met que "discotheque"

"Jean-Marc" a écrit :

Hello,

si tu commençais par dire quel est le résultat que tu attends?
N'étant pas magiciens, il est difficile de dire si le résultat
correspond
à ce que TU veux ou pas :-)

Peux tu décrire:
- Ce que tu attends
- Ce qui se produit

La nature de "l'erreur", si erreur il y a:
- Le programme plante ?
Si oui, quelle ligne et quel message d'erreur?

Etc. Plus tu donneras d'informations, plus tu recevras d'aide.

--
Jean-marc
Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
"There are only 10 kind of people
those who understand binary and those who don't."
mailto: remove '_no_spam_' ;

"HeLioZz" a écrit dans le message de
news:
> j ai pensé a ceci :(qui ne fontionne toujours pas !)
>
> If Form2.Button1.Enabled = True Then
> TextBox11.Text = "Discothèque"
>
> ElseIf Form2.Button2.Enabled = True Then
> TextBox11.Text = "Bar Karaoké"
>
> ElseIf Form2.Button3.Enabled = True Then
> TextBox11.Text = "Bar Ambiance Musicale"
>
> ElseIf Form2.Button4.Enabled = True Then
> TextBox11.Text = "Bar de nuit"
>
> ElseIf Form2.Button5.Enabled = True Then
> TextBox11.Text = "Club"
>
> ElseIf Form2.Button6.Enabled = True Then
> TextBox11.Text = "Cabaret"
>
> ElseIf Form2.Button7.Enabled = True Then
> TextBox11.Text = "casino"
>
> ElseIf Form2.Button8.Enabled = True Then
> TextBox11.Text = "booling"
>
> ElseIf Form2.Button9.Enabled = True Then
> TextBox11.Text = "Immeuble a risques agravants"
>
> End If
>
> je ne vois vraiment pas pourquoi ca ne fonctionne pas !
>
> help me please !
>
>
>
>
> "Christian Hugoud" a écrit :
>
> > Parce que If Form2.Button9.Enabled = True Then est toujours
executé.
> >
> > Si tu veux sortir de la procédure dès qu'une condition est vraie,
alors
> > ajoute à chaque fois avant le end if : exit sub
> >
> > Christian
> >
> > "HeLioZz" a écrit dans le
message de
> > news:
> > > bonjour a tous!
> > > voici mon pb: je ne sais pas pourquoi ca ne fonctionne pas
> > > voici mon code :
> > > Private Sub TextBox11_Click(ByVal sender As Object, ByVal e As
> > > System.EventArgs) Handles TextBox11.Click
> > > If Form2.Button1.Enabled = True Then
> > > TextBox11.Text = "Discothèque"
> > > End If
> > >
> > > If Form2.Button2.Enabled = True Then
> > > TextBox11.Text = "Bar Karaoké"
> > > End If
> > >
> > > If Form2.Button3.Enabled = True Then
> > > TextBox11.Text = "Bar Ambiance Musicale"
> > > End If
> > >
> > > If Form2.Button4.Enabled = True Then
> > > TextBox11.Text = "Bar de nuit"
> > > End If
> > > If Form2.Button5.Enabled = True Then
> > > TextBox11.Text = "Club"
> > > End If
> > > If Form2.Button6.Enabled = True Then
> > > TextBox11.Text = "Cabaret"
> > > End If
> > > If Form2.Button7.Enabled = True Then
> > > TextBox11.Text = "casino"
> > > End If
> > > If Form2.Button8.Enabled = True Then
> > > TextBox11.Text = "booling"
> > > End If
> > >
> > > If Form2.Button9.Enabled = True Then
> > > TextBox11.Text = "Immeuble a risques agravants"
> > > End If
> > > et le souci c est qu il m ecrit a chaque fois "immeuble a risque
agravant
> > > il ne prend pas en compte les autre phrase a ecrire !
> > >
> > > si quelqu un pouvait m aider svp !
> > > merci d avance
> >
> >
> >




1 2