Question

VB 6.0 如何让字体可以上下左右的移动 （有图）

如何让那个数字随着你点击的按钮来动

这是我编的程序
补充：从左至右为 commend1,从上到下是commend2，从右到左是commend3，从下到上是commend4，停止移动为commend5。
这是定时器属性

这个的名称





Answer 1

看来你有些过程还是没有搞明白啊
首先，怎么控制移动的代码你是对了
然后呢，是这样的，如果说你想点击按钮，点一次，动一下，就把timer去掉
如果是点了以后自己动，那么按钮里面的代码就是启动计时器
计时器判断点击了哪个按钮，执行相应的动作

追问

我想点一下按钮，它就开始动，直到我点停止移动为止，并且让这四个按钮都遵循这个规格，怎么办，请您简要说一下过程，谢谢！

追答

底下那个思路上是最简单的，就是我告诉你的
但是你可以这样
比如第一个按钮
打开Timer1
顺便给a这个变量赋值0，表明从左往右
然后其他以此类推
timer1里面
当触发以后
if a=xxx then xxxxxx
就类似这样的if语句，很简单写的

Answer 2

Private Sub Command1_Click()
Timer1.Tag = "LeftToRight"
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Tag = "UpToDown"
Timer1.Enabled = True
End Sub
Private Sub Command3_Click()
Timer1.Tag = "RightToLeft"
Timer1.Enabled = True
End Sub
Private Sub Command4_Click()
Timer1.Tag = "DownToUp"
Timer1.Enabled = True
End Sub
Private Sub Command5_Click()
Timer1.Enabled = False
End Sub
Private Sub Form_Load()
Timer1.Interval = 30
End Sub
Private Sub Timer1_Timer()
With Label1
Select Case Timer1.Tag
Case "LeftToRight"
    .Left = .Left + 30
    If .Left > Me.ScaleWidth Then .Left = -.Width
 Case "RightToLeft"
    .Left = .Left - 30
    If .Left < 0 Then .Left = Me.ScaleWidth
Case "UpToDown"
    .Top = .Top + 30
    If .Top > Me.ScaleHeight Then .Top = -.Height
Case "DownToUp"
     .Top = .Top - 30
    If .Top < 0 Then .Top = Me.ScaleHeight
End Select
End With
End Sub

追问

首先，感谢你的回答，还有没有更简单点的，谢谢

追答

等等别的，估计没法简化了。