Dim txt As String
Dim txt0 As String=Tables("表a").Rows(0)("第一列")
Dim txt1 As String
Dim txt2 As String
Dim count As Integer = " " & Tables("表a").Rows.Count & " "
If count>0 Then
If count=1 Then
txt="最新公告: " & txt0 & " "
Else
For n As Integer = 1 To Tables("表a").Rows.Count - 1
txt1=Tables("表a").Rows(n-1)("第一列")
txt2=Tables("表a").Rows(n)("第一列")
txt="最新公告: " & txt0 & " " & txt2 & " ★ " & txt1 & " "
Next
End If
Else
txt="今天无新公告内容"
End If
Dim pm As WinForm.Label = e.Form.Controls("Label1")
pm.text=" " & txt & " "
Dim j As Integer
Static i As Integer
i=e.Form.TimerInterval +i
j=i Mod 125
Select Case j
Case 0
pm.ForeColor = Color.Fuchsia
Case 1
pm.ForeColor = Color.Peru
Case 2
pm.ForeColor = Color.Navy
Case 3
pm.ForeColor = Color.Aqua
Case 4
pm.ForeColor = Color.Yellow
Case 5
pm.ForeColor = Color.Gold
Case Else
pm.ForeColor = Color.Red
End Select
Dim zwz As Integer =pm.left-4
If zwz +pm.Width<= 4 Then
pm.left = e.form.Width
Else
pm.left = zwz
End If
不能滚动显示不了所有行的文字内容,请老大指教