VB6.0程序设计的一个题目
建立1个标签,2个文本框和2个命令按钮,运行时,用户在文本框Text1中输入内容时,文本框Text2和标签Label1显示与文本框Text1相同的内容。单击“清除”按钮,...
建立1个标签,2个文本框和2个命令按钮,运行时,用户在文本框Text1中输入内容时,文本框Text2和标签Label1显示与文本框Text1相同的内容。单击“清除”按钮,清空2个文本框的内容,单击“退出”按钮,结束程序运行。
帮写下程序,谢谢! 展开
帮写下程序,谢谢! 展开
3个回答
展开全部
我教你最简单的方法哈
你就只建立1个标签,2个文本框和2个命令按钮,自己摆好位置,然后什么都不要改
把下面代码复制过去运行就可以了
Private Sub Form_Load()
Command1.Caption = "清除"
Command2.Caption = "退出"
Label1.Caption = ""
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub text1_change()
Text2.Text = Text1.Text
Label1.Caption = Text1.Text
End Sub
Private Sub command1_click()
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub command2_click()
End
End Sub
你就只建立1个标签,2个文本框和2个命令按钮,自己摆好位置,然后什么都不要改
把下面代码复制过去运行就可以了
Private Sub Form_Load()
Command1.Caption = "清除"
Command2.Caption = "退出"
Label1.Caption = ""
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub text1_change()
Text2.Text = Text1.Text
Label1.Caption = Text1.Text
End Sub
Private Sub command1_click()
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub command2_click()
End
End Sub
展开全部
Private Sub Command1_Click()
Label1.Caption = Text1.Text
Text2.Text = Text1.Text
End Sub
Private Sub Command2_Click()
Label1.Caption = ""
Text2.Text = ""
End Sub
Label1.Caption = Text1.Text
Text2.Text = Text1.Text
End Sub
Private Sub Command2_Click()
Label1.Caption = ""
Text2.Text = ""
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
private sub text1_change()
text2.text=text1.text
label1.caption=text1.text
end sub
private sub command1_click()
text1.text=""
text2.text=""
end sub
private sub command2_click()
end
end sub
text2.text=text1.text
label1.caption=text1.text
end sub
private sub command1_click()
text1.text=""
text2.text=""
end sub
private sub command2_click()
end
end sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询