请问标题栏里的滚动文字怎样制作
请问标题栏里的滚动文字怎样制作？
[解决办法]
直接修改标题栏的文字就可以来。比如每次在前面加一个空格，如果超出，就重头来，具体一行可以放多少个字符，这个可以这样做，
Dim g as Graphics = Me.CreateGraphics()
g.MeasureString(Me.Text)//大概这个函数，具体如何写，我不记得了。
得到字串的宽度后，和Me.Width比较。完全超出则重来。
[解决办法]
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If Len(xC) > 1 Then
xC = Mid(xC, 2)
Else
xC = " 经检测你的电脑中有 木马程序 存在，需要进入安全模式进行清理。 "
xC = Space(80) + xC
End If
Me.Text = xC
End Sub
[解决办法]
mark
[解决办法]
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
me.text= space(10) & welcom
me.text=mid(me.text,2)
me.text+= "sapce(20) & hao are you ! "
