当前位置:首页 » 程序代码 » 正文

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

本站文章搜索:

<< 上一篇下一篇 >>

文章搜索

Tags列表

赞助商链接

湘公网安备 43011102000514号 - ICP备08100508号