VB程序题：模仿教材例1.1,将事件过程中自上而下移动改为自右向左移动,也要考虑文字出窗体边界的情况.各控件及属性在属性窗口的设置参见下面表格,背景图形文件可以选择自己喜欢的,按钮上的图标通过....

VB程序题：模仿教材例1.1,将事件过程中自上而下移动改为自右向左移动,也要考虑文字出窗体边界的情况.各控件及属性在属性窗口的设置参见下面表格,背景图形文件可以选择自己喜欢的,按钮上的图标通过Windows搜索功能查找。

控件              属性
Form1            Caption="实验1.2"；Picture:自选一个图片
Label1            Caption="我开始学习程序设计"；FontSize=36
Command1    Caption="";Style=1;Picture="Clock2.ico";ToolTipText="自动"
Command2    Caption="";Style=1;Picture="key04.ico";ToolTipText="手动"

解题：
Command1用来手动移动标签文字（点击一下，移动一点），Command2用来通过计时器来移动标签文字
Private Sub Form_Load()
    Timer1.Interval = 0
End Sub

Private Sub Command1_Click()   '手动
    Timer1.Interval = 0
    Call MyMove
End Sub

Private Sub Command2_Click()  '自动
    Timer1.Interval = 200
End Sub
Private Sub Timer1_Timer()
    Call MyMove
End Sub
Sub MyMove()
    Label1.Move Label1.Left - 50
    If Label1.Left < 0 Then Label1.Left = Form1.Width
End Sub

程序运行效果如下图所示。

 Visual Basic程序设计教程(第3版) (龚沛曾等编)课后实验源码

打赏 支付宝打赏 微信打赏

来源：济亨网

本文链接：http://www.wb98.com/post/52.html