VB中如何使字上下来回移动

 我来答
肥仙女a
2020-04-15
知道答主
回答量:0
采纳率:0%
帮助的人:0
展开全部

1、点击桌面上的“VisualBasic6.0”

2、选择“标准EXE”,单击“打开”。

3、分别在窗体中创建一个label控件、两个command控件、一个timer控件。

4、把label的caption改成“欢迎来到VB!”,command1的caption改成“手动”,command2的caption改成“自动”。

5、最后呈现出的效果如图所示。

6、双击点开编辑代码窗口。

7、点击F5查看运行效果,点击“自动”label就会自动从上到下移动,点击“手动”便会切换成手动,在任意地方单击,label就会停止。

百度网友8c93a1d
2012-04-26
知道答主
回答量:0
采纳率:0%
帮助的人:0
展开全部
首先添加一个Timer控件和一个Label控件。在label1的caption中写入自己要写的字。双击打开书写以下函数:
dim i%
timer1.interval=100 '每0.1秒触发一次
if i >form1.height then i=0
i=i+10
label.move 10,i
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
匿名用户
2012-04-26
展开全部
用timer控制字体lable的坐标就好了。当到达某个值后开始加,到达另外一个之后在慢慢的减少。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
zx001z7d53
推荐于2018-05-11
知道答主
回答量:0
采纳率:0%
帮助的人:0
展开全部
Dim d As Boolean
Private Sub Form_Load()
Label1.Top = Me.Height - Label1.Height
Timer1.Interval = 100
d = True
End Sub

Private Sub Timer1_Timer()
If d Then
Label1.Top = Label1.Top - 90
Else
Label1.Top = Label1.Top + 90
End If
If Label1.Top <= 0 Then
d = False
End If
If Label1.Top >= Me.Height - Label1.Height - 240 Then
d = True
End If
End Sub
更多追问追答
追问
还有其它的方法吗,这个有点复杂了
追答
这个效果好些,很简单了
本回答被提问者和网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 1条折叠回答
收起 更多回答(2)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式