Введите текст и нажмите кнопку
Вот код программы, который можно скопировать
<HTML> <HEAD> <TITLE>Копирование текста-СОБЫТИЕ</TITLE> </HEAD> <INPUT TYPE="text" NAME="text1"> <FORM Name="forma"> Введите текст и нажмите кнопку<BR> <INPUT TYPE="button" NAME="knopka" VALUE="Скопировать" OnClick=copyfun()><BR> <INPUT TYPE="text" NAME="text2"><BR> </FORM> <SCRIPT LANGUAGE="VBScript"> Sub copyfun dim copytext copytext=text1.value forma.text2.value=copytext End Sub Sub CL_OnClick text1.value="" window.document.forma.text2.value="" End Sub </SCRIPT> <INPUT TYPE="button" Name="CL" Value="Очистить окна"> </html>