[VBS HTA] Contenue d’un TextBox écrit dans un autre.

Invité · 21/11/2017, 18h25

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 ?

Invité · 21/11/2017, 19h47

Pour le moment j'en suis là:

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
<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>

**ProgElecT** · 21/11/2017, 19h59

Salut

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
<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>

Invité · 21/11/2017, 20h15

`Merci pour l'exemple

[VBS HTA] Contenue d’un TextBox écrit dans un autre.

VBScript

Vue hybride

Discussions similaires

Partager

Partager