Reponse automatique MsgBox [Résolu]
eccsup
Membre Dernière intervention
2 août 2018
- - Dernière réponse :
4u4me4us
Membre Dernière intervention
30 octobre 2013
- 19 avril 2011 à 17:22
- Messages postés
- 76
- Date d'inscription
- jeudi 14 mai 2009
- Statut
- Messages postés
- 781
- Date d'inscription
- lundi 22 janvier 2007
- Statut
A voir également:
- Reponse automatique msgbox
- Réponse inputbox & msgbox! - Codes sources - Visual Basic / VB.NET (Message Box)
- Creation automatique de msgbox - Codes sources - Visual Basic / VB.NET (Message Box)
- Désactiver (ou répondre automatiquement...) à un msgbox ✓ - Forum - Visual Basic 6
- Envoyer une réponse ACK vers un automate ✓ - Forum - Visual Basic 6
- Info pour réponse d'un email automatique ✓ - Forum - C# / .NET
5 réponses
Meilleure réponse
- Messages postés
- 781
- Date d'inscription
- lundi 22 janvier 2007
- Statut
Tu dis "faire un copier/coller". Dans ce cas non. Mais addapter ta fonction de test pour qu'elle puisse teter les paramètre l'un après l'autre (comme tu le fais actuellement) et qu'elle fasse tout les test d'un coup.
Tjs avec l'exemple que je t envoyé sa donnerait.
public sub TESTES_PARA(byte v_num_test, ptional boolen v_all)
string v_message;
if v_num_test =1 or v_all = true
if not teste_param1 then v_message = v_message & "error parametre1_"
end if
if v_num_test =2 or v_all = true
if not teste_param2 then v_message = v_message & "error parametre2_"
end if
if v_num_test =3 or v_all = true
if not teste_param3 then v_message = v_message & "error parametre3_"
end if
etc....
if v_message "" then v_message "ok"
msgbox "Les testes paramètres retournent", v_message
end sub
Comme ça c pas beau, mais cela illustre ma pensée.
Tjs avec l'exemple que je t envoyé sa donnerait.
public sub TESTES_PARA(byte v_num_test, ptional boolen v_all)
string v_message;
if v_num_test =1 or v_all = true
if not teste_param1 then v_message = v_message & "error parametre1_"
end if
if v_num_test =2 or v_all = true
if not teste_param2 then v_message = v_message & "error parametre2_"
end if
if v_num_test =3 or v_all = true
if not teste_param3 then v_message = v_message & "error parametre3_"
end if
etc....
if v_message "" then v_message "ok"
msgbox "Les testes paramètres retournent", v_message
end sub
Comme ça c pas beau, mais cela illustre ma pensée.
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
125 internautes nous ont dit merci ce mois-ci
- Messages postés
- 781
- Date d'inscription
- lundi 22 janvier 2007
- Statut
Je te propose de faire une sub teste qui regroupe tout tes parametres et qui affiche le msg à la fin. Une sub du still.
public sub TESTES_PARA()
string v_message;
if not teste_param1 then v_message = v_message & "error parametre1_"
if not teste_param2 then v_message = v_message & "error parametre2_"
if not teste_param3 then v_message = v_message & "error parametre3_"
etc....
if v_message "" then v_message "ok"
msgbox "Les testes paramètres retournent", v_message
end sub
Bien sur ce n'est qu'une proposition
public sub TESTES_PARA()
string v_message;
if not teste_param1 then v_message = v_message & "error parametre1_"
if not teste_param2 then v_message = v_message & "error parametre2_"
if not teste_param3 then v_message = v_message & "error parametre3_"
etc....
if v_message "" then v_message "ok"
msgbox "Les testes paramètres retournent", v_message
end sub
Bien sur ce n'est qu'une proposition
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.