VB设计一应用程序
来源:百度知道 编辑:UC知道 时间:2024/06/06 19:56:50
设计一应用程序,要求如下:
(1)运行时名为form1的窗体上有一行文字"欢迎光临"(楷体,小二)以30 Twip/50ms的速度从右向左滚动,当超出窗体左边界时,重新从窗体右边界开始继续从右向左滚动;
(2)单击窗体上"配置计算机"按钮,即进入名为form2的计算机配置界面;
(3)用户在form2中配置完计算机后,单击"确定"按钮,则所有配置信息显示在右面的list1中(注意:文本框后面的单位也要加上);
(4)单击form2上的"返回"按钮,则返回主界面;
(5)单击form1"结束"按钮,则结束程序运行。
(1)运行时名为form1的窗体上有一行文字"欢迎光临"(楷体,小二)以30 Twip/50ms的速度从右向左滚动,当超出窗体左边界时,重新从窗体右边界开始继续从右向左滚动;
(2)单击窗体上"配置计算机"按钮,即进入名为form2的计算机配置界面;
(3)用户在form2中配置完计算机后,单击"确定"按钮,则所有配置信息显示在右面的list1中(注意:文本框后面的单位也要加上);
(4)单击form2上的"返回"按钮,则返回主界面;
(5)单击form1"结束"按钮,则结束程序运行。
1.
private sub form_load()
timer1.interval=100
end sub
private sub timer1_timer()
label1.left=label1.left-100
if label1.left<=0 then label1.left=form1.width
end sub
2.form1窗体上的command1命令按钮
private sub command1_click()
form2.show
form1.hide
end sub
3.form2窗体上的command1命令按钮
private sub command1_click()
list1.additem text1.text & label1.caption
list1.additem text2.text & label2.caption
end sub
4.
Private Sub Command2_Click()
Form1.Show
Form2.Hide
End Sub
5.
private sub command2_click()
end
end sub
朋友,没办法,只有放一张图片,我还有几张放不进去,如果你有什么不懂的发消息给我