Question

vb6.0中怎样设置代码使鼠标移动到滚动字幕上时，字幕停止滚动，移开字幕恢复滚动。

Answer 1

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Timer1.Enabled = True
Label1.FontBold = False
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Timer1.Enabled = False
Label1.FontBold = True
End Sub

Private Sub Timer1_Timer()
If Label1.Left >= Form1.ScaleWidth Then
Label1.Left = 0
Else
Label1.Left = Label1.Left + 100
End If
End Sub

新建窗口添加个TIMER控件和LABEL

Answer 2

去VB那边问啊