HTA: Minimiser un bouton et le mettre en couleur

**piouf13** · 14/03/2015, 18h42

Salut

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

Merci

**l_autodidacte** · 14/03/2015, 20h54

Très vague comme question !

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

**l_autodidacte** · 14/03/2015, 22h22

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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>

**piouf13** · 15/03/2015, 18h15

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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 ? Nom : 2015-03-15_181852.png
Affichages : 513
Taille : 674 octets

Nom : 2015-03-15_181852.png
Affichages : 513
Taille : 674 octets

**l_autodidacte** · 15/03/2015, 18h42

Remplace Value="OK" par Value="X".
Remplace Color:Magenta par Color:White

**piouf13** · 15/03/2015, 19h40

Merci bah oui c'est en anglais

J'essaie et j'aimerais que lorsqu'on clic sur ce bouton Nom : 2015-03-15_181852.png
Affichages : 490
Taille : 674 octets

(le vrai bouton et non un bouton personnaliser) l'appli HTA se ferme qu’après avoir lancer une autre application.. c'est possible?

**piouf13** · 15/03/2015, 21h28

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

**l_autodidacte** · 15/03/2015, 22h28

Oui, c'est possible; voici un exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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)