AH ! LES MSGBOX RECORRIGÉES ET MODIFIÉES...
Abouda
-
20 févr. 2001 à 22:36
cap0002004 Messages postés 15 Date d'inscription mardi 13 avril 2004 Statut Membre Dernière intervention 6 août 2004 - 8 juin 2004 à 16:45
cap0002004 Messages postés 15 Date d'inscription mardi 13 avril 2004 Statut Membre Dernière intervention 6 août 2004 - 8 juin 2004 à 16:45
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/641-ah-les-msgbox-recorrigees-et-modifiees
https://codes-sources.commentcamarche.net/source/641-ah-les-msgbox-recorrigees-et-modifiees
8 juin 2004 à 16:45
23 mai 2004 à 11:30
Mais je me demandais si c'etait possible de mettre mon propre texte dans les msgbox, par exemple pour:
'Situation : Bouton OUI / NON / ANNULER
si je pouvais avoir"
'Situation : Bouton OUI / NON / MODIFIER
Et si aussi le MsgBox est obligatoirement bloquant pour le reste du code
15 avril 2004 à 17:25
9 mars 2004 à 11:32
27 janv. 2004 à 10:08
27 janv. 2004 à 00:36
--> ZT_année = "" ..c'est pourtant plus simple,non?
26 janv. 2004 à 08:49
pour ton msgbox vbOkCancel normale regarde ton code tu marque que si case vbok tu ne dit rien et vbcancel nonplus tu ferme ton select case et apres tu lui dit nd donc forcement a chaque foi que tu cliquera ok ou cancel comme ton end est apres ton end select il fermera a chaque foi
voila une correction
Private Sub BC_exit_Click()
Dim Msg As String
Dim Reponse As String
Msg = MsgBox("Voulez vous vraiment quitter?", vbOKCancel, "message d'erreur")
Select Case Reponse
Case vbOK
End
'il a cliqué sur OK
Case vbCancel
exit sub
'il a cliqué sur ANNULER
End Select
End
End Sub
Pour ton autre probleme je ne comprend pas tout mais deja un truc sur le meme bouton tu lui dit de mettre le focus sur de chmaps en meme temps comment vetu qu'il comprenne lol
ZT_année.SetFocus
ZT_cap.SetFocus
c'est soit l'un soit l'autre
25 janv. 2004 à 20:07
Je suis nouveausur le site (et nul en vb...)
J'ai une question sur les msgbox..
Admettons que j'ai un programme avec son interface qui fasse une action quelquonque...J'y insere un bouton BC_Quit ,ca donne à peu pres ca:
Private Sub BC_exit_Click()
Dim Msg As String
Dim Reponse As String
Msg = MsgBox("Voulez vous vraiment quitter?", vbOKCancel, "message d'erreur")
Select Case Reponse
Case vbOK
'il a cliqué sur OK
Case vbCancel
'il a cliqué sur ANNULER
End Select
End
End Sub
Le truc c'est que si l'utilisateur clique sur Annuler,le programme stoppe...or je voudrais qu'il puisse s'executer puisque l'utilisateur a changé d'avis....Je ne sais pas si je suis très clair,j'essaye...
J'ai le meme problème avec la commande Réinitialiser,par exple:
Private Sub BC_nouv_Click()
ZT_année.Text = "" '
ZT_cap.Text = ""
ZT_année.SetFocus
ZT_cap.SetFocus
List_année.Clear
List_amort.Clear
List_cap.Clear
End Sub
Losque l'utilisateur clique sur BC_nouv,ca reinitialise,mais on ne peut plus faire une autre action (l'autre bouton Calculer n'est plus griser...)
Je vous remercie d'avance,ca m'oterai vraiment une épine du pied..
18 janv. 2004 à 19:45
merci a toi
27 déc. 2003 à 22:01
exemple pour la question oui ou non au lieu de mettre:
Reponse = MsgBox("Texte", vbYesNo + Apparence + TypeDeBox, "Titre")
Select Case Reponse
Case vbYes
'il a cliqué sur OUI
Case vbNo
'il a cliqué sur NON
End Select
on aurait pu mettre
on_sen_moque = msgbox("titre",vbquestion+vbYesNo,"titre")
if on_sen_moque = vbyes then 'il a cliqué sur OUI end if
if on_sen_moque = vbNo then 'il a cliqué sur NON end if
On peut remplacer "on_sen_moque" par n'importe quoi a condition qu'il est pas d'espace.
J'voudré posez une question aussi. Pourquoi doit on "toujours" préparé les variable. Sa fonctionne très bien en les mettant directement.
11 mai 2003 à 09:50
15 mai 2001 à 10:04
A bientôt
27 mars 2001 à 17:00
Sino, come tjs, n'hésitez jamais à poser des kest° à tt le monde, ki sait vs pourrez y trouver votre compte!!! Allez @ + les prog'!!!
23 févr. 2001 à 21:36
et tout ce qui conserne les périphiriques
20 févr. 2001 à 22:36
A bientot.