HTA: Minimiser un bouton et le mettre en couleur

Version imprimable

14/03/2015, 18h42
piouf13

HTA: Minimiser un bouton et le mettre en couleur

Salut

Savez vous comment minimiser un bouton et le mettre en couleur en HTA ?

Merci
14/03/2015, 20h54
l_autodidacte

Très vague comme question !

Quel type de bouton ? Quelle interface ? Quel programme .....?

Bon, peut-être que je n'ai pas bien saisie la question, mais j'ai pensé que ce qui suit peut te satisfaire ou du moins t'aider :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
<HTML>
<HEAD><title>BOUTON</title>
<HTA:APPLICATION ID="objBtn";
  APPLICATIONNAME="BOUTON";
  BORDER="thin";
  SCROLL="NO";
  ICON="Csript.exe";
  MAXIMIZEBUTTON="NO";
  BORDERSTYLE="normal";
  SINGLEINSTANCE="no"; >
  <Script language="VbScript">
   Option Explicit
   Dim Lt, Ht, Lg, Tp
   Sub Window_OnLoad()
    Me.ResizeTo 250,150
    Me.MoveTo ((Screen.Width-250)/ 2),((Screen.Height-150)/2)
   End Sub
 
   Sub GetInfos()
      MsgBox "Infos sur le bouton : " & vbcrlf & "Fonds et Texte en couleurs." & vbcrlf & "Texte en gras." & vbcrlf & "Le bouton est paramétrable."
    End Sub
  </Script>
</HEAD><BODY>
<Input type="button" name="btnResize" ID="btnResize" Value="OK" STYLE="Font:bold;Color: magenta ;
    background: lightgreen ; position: absolute; top: 40px; left: 60px; width : 100px;Height:40px;" OnClick="GetInfos">
</BODY>
</HTML>

1 pièce(s) jointe(s)

Citation:
Envoyé par l_autodidacte
Bon, peut-être que je n'ai pas bien saisie la question, mais j'ai pensé que ce qui suit peut te satisfaire ou du moins t'aider :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 <HTML> <HEAD><title>BOUTON</title> <HTA:APPLICATION ID="objBtn"; APPLICATIONNAME="BOUTON"; BORDER="thin"; SCROLL="NO"; ICON="Csript.exe"; MAXIMIZEBUTTON="NO"; BORDERSTYLE="normal"; SINGLEINSTANCE="no"; > <Script language="VbScript"> Option Explicit Dim Lt, Ht, Lg, Tp Sub Window_OnLoad() Me.ResizeTo 250,150 Me.MoveTo ((Screen.Width-250)/ 2),((Screen.Height-150)/2) End Sub Sub GetInfos() MsgBox "Infos sur le bouton : " & vbcrlf & "Font et Texte en couleurs." & vbcrlf & "Texte en gras." & vbcrlf & "Le bouton est paramétrable." End Sub </Script> </HEAD><BODY> <Input type="button" name="btnResize" ID="btnResize" Value="OK" STYLE="Font:bold;Color: magenta ; background: lightgreen ; position: absolute; top: 40px; left: 60px; width : 100px;" OnClick="GetInfos"> </BODY> </HTML>
Merci c'est exactement ça :D

Savez vous comment mettre "OK" en blanc? j'ai essayer de remplacer magenta par blanc mais ça marche pas..

Et enfin, est-ce qu'il y a moyen d'avoir un bouton ressemblant a celui-ci ? Pièce jointe 171755

15/03/2015, 18h42
l_autodidacte

Remplace Value="OK" par Value="X".
Remplace Color:Magenta par Color:White
15/03/2015, 19h40
piouf13

1 pièce(s) jointe(s)

Merci bah oui c'est en anglais :oops:

J'essaie et j'aimerais que lorsqu'on clic sur ce bouton Pièce jointe 171760 (le vrai bouton et non un bouton personnaliser) l'appli HTA se ferme qu’après avoir lancer une autre application.. c'est possible?
15/03/2015, 21h28
piouf13

C'est bon j'ai trouvé c'est résolu.. encore merci l_autodidacte

Oui, c'est possible; voici un exemple :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
<HTML>
<HEAD><title>BOUTON</title>
<HTA:APPLICATION ID="objBtn";
  APPLICATIONNAME="BOUTON";
  BORDER="thin";
  SCROLL="NO";
  ICON="WScript.exe";
  MAXIMIZEBUTTON="NO";
  BORDERSTYLE="normal";
  SINGLEINSTANCE="no"; >
 
  <Script language="VbScript">
   Option Explicit
   Dim Lt, Ht, Lg, Tp, WS
   Sub Window_OnLoad()
    Me.ResizeTo 250,150
    Me.MoveTo ((Screen.Width-250)/ 2),((Screen.Height-150)/2)
   End Sub
 
   Sub GetInfos()
      Set WS = CreateObject("WScript.Shell")
      WS.Run "Notepad.exe"
      ' Window.Close
    End Sub
  </Script>
 
  <script language="JavaScript" type ="text/javascript">
    window.onbeforeunload = WindowCloseHanlder;
    function WindowCloseHanlder()
    { 
       GetInfos()    // On appelle la procedure créée en VbScript pour lancer Notepad
    }
</script>
 
<BODY>
<Input type="button" name="btnResize" ID="btnResize" Value="X" STYLE="Font:bold;Color: White ;
    background: Red ; position: absolute; top: 40px; left: 100px; width : 30px; height:20px" OnClick="GetInfos">
</BODY>
</HTML>

A remarquer que si on appuie sur le bouton personnalié, on ouvre Notepad sans fermer la fenêtre. Mais on peut le faire en décommentant la ligne Window.Close( la dernière de la procédure GetInfos)

16/03/2015, 10h24
hackoofr

Citation:

Envoyé par piouf13

C'est bon j'ai trouvé c'est résolu.. encore merci l_autodidacte

:salut:
Tu sais que tu peux partager ta solution même en anglais:king:
:merci:
16/03/2015, 11h50
piouf13

@l_autodidacte merci très intéressant comme code..

@hackoofr j'ai rajouté ça

Code:

<body onbeforeunload=ExitProgram>

en fin de code et je met le code que je veux dans Sub ExitProgram