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 Scripting Microsoft taille d'un inputbox

taille d'un inputbox

1 réponse
Avatar
truc
Bonjour

Quelqu'un sait si il est possible de modifier la taille d'un inputbox en vbs ?

Merci
Signaler un problème avec ce contenu

1 réponse

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
Avatar
sympatix
Salut !
Quelqu'un sait si il est possible de modifier la taille d'un inputbox en
vbs ?
C'est pas possible en VBS, mais avec internet explorer, par exemple, tu as

déjà + de possibilités graphiques.

Ou mieux, en incluant ton script directement dans une page d'extension hta.

Je viens justement de voir sur le ng us de
microsoft.public.scripting.vbscript, un fil traitant plus ou moins de ce
sujet.
Avec une belle démo des différents boutons possibles (à coller dans une page
hta).

Voici l'adresse du fil:
news:

Et la démo en copier/coller ci-dessous. En espérant que celà te fournisse
une première piste !

-----------Couper ici-------------
<HTML><HEAD>
<TITLE>demo</TITLE>
</HEAD>
<BODY>
<button onclick=vbs:boxes1()>vbs message boxes</button><br>
<button onclick=javascript:boxes2()>ekma boxes</button><br>
<button onclick=vbs:boxes3()>vbs input box</button>
<SCRIPT language=VBScript>
sub boxes1()
msgbox "msgbox ""message"""
msgbox "msgbox ""message"", 0, ""title""",0,"add title"
msgbox "msgbox ""message"", 0+16", 16,"add critical icon"
msgbox "msgbox ""message"", 0+32", 32,"add question icon"
msgbox "msgbox ""message"", 0+48", 48,"add warning icon"
msgbox "msgbox ""message"", 0+64", 64,"add exclamation icon"
r=msgbox ("response=msgbox (""message"", 1)",1,"get response")
msgbox "Response= " & r
r=msgbox ("response=msgbox (""message"", 2)", 2)
msgbox "Response= " & r
r=msgbox ("response=msgbox (""message"", 2+32)", _
34,"add question icon")
msgbox "Response= " & r
r=msgbox ("response=msgbox (""message"", 3)", 3)
msgbox "Response= " & r
r=msgbox ("response=msgbox (""message"", 3+256)", _
259,"make 2nd button default")
msgbox "Response= " & r
r=msgbox ("response=msgbox (""message"", 3+512)", _
515,"make 3rd button default")
msgbox "Response= " & r
r=msgbox ("response=msgbox (""message"", 4)", 4)
msgbox "Response= " & r
r=msgbox ("response=msgbox (""message"", 5)", 5)
msgbox "Response= " & r
end sub

sub boxes3()
r=inputbox("r=InputBox(""prompt"",""title"",""default"")", _
"title","default")
msgbox "response was " & r
end sub
</SCRIPT>

<SCRIPT language=Javascript1.2>
function boxes2(){
alert('alert("message")');
var r=prompt("r=prompt('prompt text','default text')",
"Default text");
alert("Response= " + r);
r=confirm("r=confirm('prompt text')");
alert("Response= " + r);
var time_out = 10;
var title = "WSH sample";
var button = 1;
var z = new ActiveXObject("WScript.Shell");
r=z.Popup ("POPUP(Hello World,time_out,title,button)",
time_out, title, button);
alert(r);
alert("also in script WScript.Echo 'one','two','three' ");}
</SCRIPT>
</BODY></HTML>
-----------Couper ici-------------
--
Cordialement
Sympatix
(Antispam: Ôter les "toto" dans l'adresse, pour me répondre)
"truc" a écrit dans le message de news:

Bonjour

Quelqu'un sait si il est possible de modifier la taille d'un inputbox en
vbs ?

Merci