Question

vb文字移动，用滚动条控制移动速度，键盘方向键控制方向，从右边出去后从左端进入，方向不变

课设题，很急用，求代码和属性设置详细些。
上下也要符合要求

Answer 1

看看这个是不是你要的效果

追问

万分感谢！效果对了，不过方向都反了，改数值容易出问题，我就把left right 和up down都换了一下位置，答辩时就会悲剧的~~~~(>_<)~~~~ 。

追答

哈哈，我那意思up就是从上面向下，Dowm就是从下向上

Select Case i
Case "up"
If Label1.Top < Me.Height Then
Label1.Top = Label1.Top + 100
Else
Label1.Top = -Label1.Height
End If
Case "down"
If Label1.Top > -Label1.Height Then
Label1.Top = Label1.Top - 100
Else
Label1.Top = Me.Height + Label1.Height
End If
Case "left"
If Label1.Left < Me.Width Then
Label1.Left = Label1.Left + 100
Else
Label1.Left = -Label1.Width
End If
Case "right"
If Label1.Left > -Label1.Width Then
Label1.Left = Label1.Left - 100
Else
Label1.Left = Me.Width + Label1.Width
End If
End Select
'//进去改一下代码，把上面的,up改成down，left改成right不就反过去了，怎么会错呢

追问

谢谢，想通了。

谢谢，想通了。

Answer 2

在窗体中建三个控件：Label1用于显示文字，HScroll1用于调整速度，Timer1用于触发移动。

假如FORM的scalemode用的是缺省的1 - Twip，如果没调过就不用修改

根据你的实际速度要求设好HScroll1的MAX、MIN以及 Value属性，比如分别设为1、50和20

Timer的Interval设为10（建议10-25之间，这样刷新频率差不多在40-100HZ，适合人眼观察效果，Interval设低了视觉舒服但占用系统资源高），然后在Timer事件中写入如下代码即可：

 

Private Sub Timer1_Timer()
Label1.Left = ((Label1.Left + HScroll1.Value + Label1.Width) Mod (Me.ScaleWidth + Label1.Width)) - Label1.Width
End Sub

当焦点在HScroll1上时，也可以通过左右方向键调节移动速度。

Answer 3

HI我，我帮你做个

追问

596931599是我q,发youxiang，或传云上就可以了。现在在上课呢。