老师以下代码可以整个表水平滚动，我想修改为垂直向上按行滚动，请教应该如何修改？
Dim pm As WinForm.Table = e.Form.Controls("Table1")
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
[此贴子已经被作者于2022/11/8 13:48:06编辑过]
加好友 
发短信
Post By：2022/11/8 10:24:00 [显示全部帖子]
