养生 装修 购物 美食 感冒 便秘 营销 加盟 小吃 火锅 管理 创业 搭配 减肥 培训 旅游

用VB如何使label自动左右移动

时间:2024-11-11 23:51:38

VB作为一种编程语言,深受大学老师的喜爱,包括在省二级计算机考试和国家二级计算勺腴孥圜机考试中都是学生的参选软件,入门和基础都是比较简单的。在代码上也是有规律绺从萦米可循的,今天教大家怎么使用vb将label自动地左右移动。

工具/原料

VB6.0软件

方法/步骤

1、在桌面上找到VB软件的图标,双击打开。

用VB如何使label自动左右移动

2、跳出来一个“新建工程”窗口,选择“标准EXE”,点击打开。

用VB如何使label自动左右移动

3、在左边的工具栏中选中label,在form1中创建一个label。

用VB如何使label自动左右移动

用VB如何使label自动左右移动

4、在左边的工具栏中选中Timer,并在窗体中画出一个控件。

用VB如何使label自动左右移动

用VB如何使label自动左右移动

5、选中timer图标,在右侧的属性工具栏中把Interval的值改成100.

用VB如何使label自动左右移动

6、双击label的图标,并在跳出来的编码窗口中输入如下代码。PrivateSubForm娄多骋能_Load()Me.Tag=1EndSubPrivateSubLabel1_Click()E荏鱿胫协ndSubPrivateSubTimer1_Timer()IfLabel1.Left>Me.Width-Label1.WidthThenMe.Tag=2ElseIfLabel1.Left<0ThenMe.Tag=1EndIfIfMe.Tag=1ThenLabel1.Left=Label1.Left+100ElseIfMe.Tag=2ThenLabel1.Left=Label1.Left-100EndIfEndSub

用VB如何使label自动左右移动

用VB如何使label自动左右移动

7、在上面的工具栏中点击“运行”,在下拉框中选择“启动”,就可以看见效果了!

用VB如何使label自动左右移动

用VB如何使label自动左右移动

© 一点知识