| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 如何让表格数据滚动显示 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=183516) |
| -- 作者：zyxhx -- 发布时间：2022/11/8 10:24:00 -- 如何让表格数据滚动显示 老师，请问能不能实现在窗口中让表格内容一行一行滚动显示？ [此贴子已经被作者于2022/11/8 10:26:17编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2022/11/8 10:28:00 -- 在计时事件里改变表格position值即可 |
| -- 作者：zyxhx -- 发布时间：2022/11/8 10:48:00 -- 请老师提示一下表格向上滚动的代码，谢谢 [此贴子已经被作者于2022/11/8 10:51:23编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2022/11/8 11:31:00 -- 开启窗口计时器，计时事件代码 tables("窗口1_table1").position = tables("窗口1_table1").position + 1
|
| -- 作者：zyxhx -- 发布时间：2022/11/8 13:43:00 -- 老师以下代码可以整个表水平滚动，我想修改为垂直向上按行滚动，请教应该如何修改？ 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编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2022/11/8 13:48:00 -- left改为设置top：http://www.foxtable.com/webhelp/topics/0717.htm |
| -- 作者：zyxhx -- 发布时间：2022/11/8 16:44:00 -- 谢谢。 [此贴子已经被作者于2022/11/8 18:06:35编辑过]
|