[HTA]changer le style (couleur, gras, italique..) d'un textbox ou un label

**patricktoulon** · 31/03/2011, 15h59

bonjour a tous

j'ai posé la question comment changer la couleur du texte des label il y a quelques jours

bbil m'avais répondu

je voudrais faire la même chose avec les inptut type texte dans mon hta

quelqu'un a une idée??

au plaisir

**hackoofr** · 31/03/2011, 17h58

Envoyé par patricktoulon

bonjour a tous
j'ai posé la question comment changer la couleur du texte des label il y a quelques jours
bbil m'avais répondu
je voudrais faire la même chose avec les inptut type texte dans mon hta
quelqu'un a une idée??
au plaisir

Tu veux dire quelque chose comme ça :

Code :

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

<input type="text" style="background-color:#ffb7d6" size="16" name="txt" value="Entrer votre Texte ici">

**SfJ5Rpw8** · 31/03/2011, 18h41

Envoyé par patricktoulon

(...)
j'ai posé la question comment changer la couleur du texte des label il y a quelques jours
(...)
je voudrais faire la même chose avec les inptut type texte dans mon hta
(...)

et tu as essayé d'utiliser le même code en remplaçant ton label par un input type texte ??

Code html :

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
<head>
<TITLE>couleur ..</TITLE>
<HTA:APPLICATION
ID="Monhta"
APPLICATIONNAME="Couleur LABEL HTA"
SCROLL="no"
SINGLEINSTANCE="yes"
>
</head>
<script language="VBScript">
Sub ChangeCouleur (str)
        MonLabel.style.color = str
        MonInput.style.color = str
end sub
 
</script>
 
 
<BODY>
<LABEL id="MonLabel">MonTexte</LABEL>  </BR> </BR>
<input type="text" value="MonTexte" id="MonInput" />
<input type="button" value="ROUGE" onClick='ChangeCouleur "red"'/>
<input type="button" value="VERT" onClick='ChangeCouleur "green"'/>
<input type="button" value="BLEU" onClick='ChangeCouleur "BLUE"'/>
<input type="button" value="JAUNE" onClick='ChangeCouleur "yellow"'/>
<input type="button" value="NOIR" onClick='ChangeCouleur "black"'/>
</body>

**patricktoulon** · 31/03/2011, 19h41

bonjour hackoofr et bbil

pour hackoofr
non ca n'est pas, ca ca je sais faire dailleur moi je le declare dans un css "class"

ce que je veux moi c'est dynamiquement dans une sub en vbs

pour bbil:

oui bill j'ai bien essayer la meme que tu m'avais donné en changeant le nom du control mais ca ne fonctionne pas avec les textbox

**SfJ5Rpw8** · 31/03/2011, 20h02

Envoyé par patricktoulon

..
oui bill j'ai bien essayer la meme que tu m'avais donné en changeant le nom du control mais ca ne fonctionne pas avec les textbox

pourtant le code que je t'ai mis dans mon post précédent fonctionne ...

**patricktoulon** · 31/03/2011, 21h01

puré de puré de zut

autant pour moi

j'avais donné le meme nom au div et a l'ID

mille excuses ca fonctionne

si ca te derange pas dis moi si la fonction se declare comme ca

Code :

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

1
2
3
4
5
6
for i = 1 to 10
with document
.all("Texto"&i).style.color="red"'pour changer la couleur 'ca marche
.all("Texto"&i).style.font="arial"                            'ca marche pas 
.all("Texto"&i).style.font.size=15                          'ca marche pas 
next

merci pour le coup de main

au plaisir

**SfJ5Rpw8** · 31/03/2011, 21h46

Il manque le end with, et les propriété du style sont à changer:

Code :

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

1
2
3
4
5
6
7
For i = 0 to 2
		with document
			.all("Texto" & i).style.color="red"
			.all("Texto" & i).style.fontfamily ="arial"
			.all("Texto" & i).style.fontSize=15
		end with
	next

**patricktoulon** · 03/04/2011, 19h36

bonjour bbil

ca fonctionne parfaitement bien

sans trop abuser je supose que pour ecrire en gras ,italic,souligné

par deduction ca serai:

Code :

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

1
2
3
4
5
6
 
with document
      .all("Texto" & i).style.fontweith='bold"
      .all("Texto" & i).style.font="italic"
      .all("Texto" & i).style.font ="underline"
end with

mais je crois que ca marche pas

merci pour le coup de main

au plaisir

**SfJ5Rpw8** · 03/04/2011, 20h28

On est un peu loin du VBScript... mais bon :

Code :

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

1
2
3
4
5
 
(...)
.all("Texto" & i).style.fontStyle = "italic"
.all("Texto" & i).textdecoration = "underline"
(...)

Jette un petit coup d'oeil ici : http://cyberzoide.developpez.com/html/style.php3

par exemple ... en supprimant les "-"

**patricktoulon** · 05/04/2011, 16h35

bonjour bbil

merci pour le coup de main

et oui j'avais deja vu que pour gerrer les font il fallait enlever le trait d'union

j'essai ca dessuite

au plaisir

**patricktoulon** · 06/04/2011, 21h46

bonjour bbil

ca ne fonctionne pas pour le text decoration

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
sub souligner()
if souligne.value="souligné" then
 
for i = 1 to 5
document.all("Texto" & i).textdecoration = "underline"
next
 
souligne.value="pas souligné"
 
else
 
for i= 1 to 5
document.all("Texto" & i).textdecoration = "none"
next
 
souligne.value="souligné"
end if 
end sub

je ne sais pas pourquoi???

une idée

au plaisir

[HTA]changer le style (couleur, gras, italique..) d'un textbox ou un label

VBScript

Discussions similaires

Partager

Partager