怎样使label中的文本实现滚动效果？

Question

让label中的文本滚动，这好像很难啊

Answer 1

用move方法
将代码放在一个计时器控件的timer事件中
计时器的interval设为1000就差不多了
private sub time1_timer()
label1.move label1.left + 100,label1.top +100,label1.width,label1.height
end sub其中的100是我随便写的,你可以自己改

Answer 2

Dim strText As StringPrivate Sub Form_Load()
 strText = String(8, " ") + "移动文字"
End SubPrivate Sub Timer1_Timer()
    strText = Mid(strText, 2) & Left(strText, 1)
    Label1.Caption = strText
End Sub
设置好Timer1控件就OK了。