Question

Vb设置窗体的文字上移下移的代码是什么？

要求：单击“上”按钮，窗体上的文字，向上移动，单击“下”按钮，窗体上的文字，向下移动。（移动幅度，自己设定）

Answer 1

是label中的字吗？是的话：——Option Explicit
Dim a As Integer
Private Sub form_load()
a = InputBox("请输入移动幅度", "请输入", "100")
End Sub
Private Sub Command1_Click() '上
Label1.Top = Label1.Top + a
End Sub
Private Sub Command1_Click() '下
Label1.Top = Label1.Top - a
End Sub

Answer 2

用两个timer然后对Lable的top属性进行加或减操作就可以实现文本的上下移动了。