Bonjour,
Pourriez-vous me donner un exemple HTA VBS de copie du contenue d’un TextBox d’un un 2éme TextBox par clic sur un bouton ?
Version imprimable
Bonjour,
Pourriez-vous me donner un exemple HTA VBS de copie du contenue d’un TextBox d’un un 2éme TextBox par clic sur un bouton ?
Pour le moment j'en suis là:
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 <html> <head> <title>HTA Test</title> <HTA:APPLICATION ID="objTest" APPLICATIONNAME="HTATest" SCROLL="yes" SINGLEINSTANCE="yes" > </head> <SCRIPT LANGUAGE="VBScript"> Sub TestSub Msgbox BasicTextbox1.Value End Sub </SCRIPT> <body> <input type="text" name="BasicTextbox1" size="50"><P> <input type="text" name="BasicTextbox2" size="50"><P> <input id=runbutton type="button" value="Run Script" name="run_button" onClick="TestSub"> </body>
SalutCode:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24 <HTML> <HEAD> <TITLE> Démo </TITLE> <HTA:APPLICATION APPLICATIONNAME="demoHTA" </HEAD> <SCRIPT language="VBScript"> '---------------------------------------------------------------------------------------------------------------------- Sub Bt1_onClick() txt2.value = txt2.value & txt1.value End Sub '---------------------------------------------------------------------------------------------------------------------- Sub Bt2_onClick() txt1.value = txt1.value & txt2.value End Sub '---------------------------------------------------------------------------------------------------------------------- </SCRIPT> <Body> <TEXTAREA name="txt1" > textbox n°1 </TEXTAREA> <TEXTAREA name="txt2" > textbox n°2 </TEXTAREA> <Input Type="button" name="Bt1" Value="Copie de text1 vers text2" > <Input Type="button" name="Bt2" Value="Copie de text2 vers text1" > </Body> </HTML>
`Merci pour l'exemple :ccool: