Déclarer plusieurs ordres

bolobo46 -  
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
Mon Problème est assez difficile a expliquer, alors voilà
mon code est :

if textbox1.text = "internet" then shell(iexplore.exe)

j'aimerais savoir comment on dis : if textbox1.text = "" ou "" ou encorre "" then shell(iexplore.exe)

1 réponse

f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,


    'si internet
If textbox1.Text = "internet" Then
s = Shell("C:\Program Files\Internet Explorer\iexplore.EXE", 1)
End If
'ou
'si vide
If textbox1.Text = "" Then
s = Shell("C:\Program Files\Internet Explorer\iexplore.EXE", 1)
End If

Bonne suite
0
bolobo46
 
Enfait, je voudrais déclarer les différentes ortographes de internet explorer (avec maj, sans ...)

donc, ce que je veux dire c'est : if textbox1.text = "internet" ou "ie" ou "etc ..." then shell("iexplore.exe")

et donc ce sont ces "ou" que je ne sais pas déclarer. :D
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

A vous d'ajouter autant de Or qu'il vous plaira,

Sub test()
'test en majuscule/minuscule (Ucase converti en majuscule)
If UCase(textbox1.Text) = "INTERNET" Or UCase(textbox1.Text) = "IE" Then
s = Shell("C:\Program Files\Internet Explorer\iexplore.EXE", 1)
End If
End Sub
0