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 : 562
Taille : 674 octets