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

作者:流年 | 创建时间: 2023-06-07
VB作为一种编程语言,深受大学老师的喜爱,包括在省二级计算机考试和国家二级计算机考试中都是学生的参选软件,入门和基础都是比较简单的。在代码上也是有规律可循的,今天教大家怎么使用vb将label自动地左右移动。...
用VB如何使label自动左右移动?

操作方法

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

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

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

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

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

双击label的图标,并在跳出来的编码窗口中输入如下代码。 Private Sub Form_Load()Me.Tag = 1End Sub Private Sub Label1_Click() End Sub Private Sub Timer1_Timer()If Label1.Left > Me.Width - Label1.Width Then    Me.Tag = 2ElseIf Label1.Left < 0 Then    Me.Tag = 1End IfIf Me.Tag = 1 Then    Label1.Left = Label1.Left + 100ElseIf Me.Tag = 2 Then    Label1.Left = Label1.Left - 100End IfEnd Sub

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

温馨提示

要注意将timer的属性中Interval从0改成100.
点击展开全文

更多推荐