第1个回答 2011-02-25
Private Sub Form_Load() '清空文本框
Text1.Text=""
Text2.Text=""
End Sub
Private Sub Form_Click() '点击窗体定位光标在文本框2
Text2.SetFocus
End Sub
Private Sub Text1_Change() '文本框1写什么,文本框2就显示什么
Text2.Text=Text1.Text
End Sub
第2个回答 2011-02-25
在VB6中
清空文本框的内容:
private sub text1_click() '假设在文本框1的单击事件中清空文本框内容
text1.text=""
text2.text=""
end sub
private sub form_click() '窗体的单击事件,将光标定位在文本框2中
text2.setFocus
end sub
private text1_change() '文本框1的文本内容改变事件,实现文本框1写什么,文本框2就显什么功能
text2.text=text1.text
end sub
请试试吧
第3个回答 2011-02-26
ad>
<title> 测试 </title>
<script language="javascript ">
function InputGo(v)
{ if( event.keyCode == 13 )
{ switch( parseInt(v) )
{ case 0:
document.getElementById('B_A ').focus();
break;
case 1:
document.getElementById( 'B_B ').click();
break;
}
}
}
</script>
</head>
<body>
<input onkeydown= "InputGo(0) " /> <input onkeydown= "InputGo(1) " />
<button onclick= "alert( 'A'); " id= "B_A "> A </button>
<button onclick= "alert( 'B'); " id= "B_B "> B </button>
</body>
</html>
第4个回答 2011-02-25
这么高的分,他们的回答满足你了吗