5第五讲控件移动方法.docVIP

VB程序设计竟赛培训内容之二 VB程序设计中控件的移动的方法 修改控件的left和top属性 说明：left属性是表示控件在窗体上的横坐标即控件的左边界至窗体左边界的距离 top属性是表示控件在窗体上的纵坐标即控件的上边界到窗体上边界的距离 height属性是表示控件的高度 width属性是表示控件的宽度 scaleheight:表示对象的可用高度（不包括边界和标题） scalewidth:表示对象的可用宽度 说明：设有控件label1，修改它的横坐标，就可以横向移动，可以用下列语句 label1.left=label1.left+100 ‘向右移动 label1.left=label1.left-100 “向左移动 ，数值大小可以根据需要进行修改 修改纵坐标可以上下移动 如：label1.top=label1.top+100 ‘向下移动 label1.top=label1.top-100 ‘向上移动 数值大小可以根据需要进行修改 上述语句只能移动一次，要想连续移动，可以结合定时器一起使用，让控件坐标每隔一段时间就改变一下，从而控件移动。 利用MOVE方法 形式：[对象.]move (left as single ,[top],[width],[height]) 其中：left表示横坐标，top表示纵坐标， width表示对象移动后的宽度值 height表示对象移动后的高度值 说明：通过move方法将对象移到新的坐标上实现移动，其中横坐标不能省略，其它参数可以省略。 如： label1.move 100 ‘表示将标签框移动到横坐标为100的位置上 label1.move label1.left+100 ‘表示将标签框移动到本身横坐标再加100的坐标位置上。此时标签框是横向移动 label1.move label1.left ,label1.top+100 ‘标签框纵向移动（上下移动） 如果想连续移动，结合定时器一起使用。 其它方法 练习：在窗体标题栏中显示滚动字幕标题。(提示：把字符串设成有前空格的字符串，然后逐步取少一个空格的子串作为标题) 程序： Dim i As Integer Dim s As String Private Sub Form_Load() s = Space(20) 标题 i = 1 End Sub Private Sub Timer1_Timer() Dim st As String st = Mid(s, i) i = i + 1 If i = 20 Then i = 1 Form1.Caption = st End Sub 习题 1、编程实现每次左键单击时窗体时窗体向左移动，右击窗体时向右移动。 2、控制文本框在窗体内部的四周作顺时针或逆时针方向移动 3、在窗体中实现由下向上滚动显示“您好！网络之家”这几个字。 4、在窗体上添加一个标签框，标签框中的内容是“欢迎你参加程序设计竟赛”，要求标签框跟随鼠标移动 窗体上实现字符串跟随鼠标移动 6、程序启动后，单击“开始”按钮，标签“欢迎光临”将在定时器的控制下以红蓝两色交替显示并向窗体的左侧移动，当标签在窗体上消失时，让标签又重新开始从窗体的右侧向左侧移动，如此循环往复 7、编程完成，程序运行后在屏幕左右分别有“再”，“见”，两字慢慢向中间移动，当相遇时停止。