grid的水平滚动如何回到最左边？ - VFP论坛

楼主

已结贴√ 问题点数：20 回复次数：9

grid的水平滚动如何回到最左边？

什么命令能让表格水平滚动条回到最左边？

搜索更多相关主题的帖子: grid　水平　滚动　表格　滚动条　

第 2 楼

得分:20

将焦点设置到第一列可否

第 3 楼

得分:0

回复 2楼吹水佬

好像不行，要求数据源为空时，也能回到最左边

第 4 楼

得分:0

以下是引用su0527在2019-8-8 09:46:39的发言：

好像不行，要求数据源为空时，也能回到最左边

没提供代码测试不了
猜测一下，可试试：
thisform.grid1.ActivateCell(thisform.grid1.ActiveRow, 1)
thisform.grid1.column1.SetFocus

第 5 楼

得分:0

回复 4楼吹水佬

已经测试您的两种代码，都可以将焦点移到显示的列的第一列，但都不能移动滚动条。前面隐藏的几列还一直隐藏着。

第 6 楼

得分:0

滚动条用DoScroll方法

第 7 楼

得分:0

试一下滚动条可以移到最左边
*** test.prg ***
CREATE CURSOR tt (f1 I, f2 I, f3 I, f4 I, f5 I, f6 I, f7 I, f8 I, f9 I, f10 I, f11 I, f12 I, f13 I, f14 I, f15 I, f16 I, f17 I, f18 I, f19 I, f20 I)
FOR i=1 TO 10
    APPEND BLANK
ENDFOR
GO TOP
of = CREATEOBJECT("form1")
of.show
READ EVENTS
RETURN

DEFINE CLASS Form1 As Form
    ADD OBJECT grid1 as grid
    ADD OBJECT cmd1 as commandbutton WITH top=this.Height-40,left=10,caption="<--"
    ADD OBJECT cmd2 as commandbutton WITH top=this.Height-40,left=130,caption="-->"
    PROCEDURE cmd1.click
        thisform.grid1.ActivateCell(thisform.grid1.ActiveRow, 1)
        thisform.grid1.column1.SetFocus
    ENDPROC
    PROCEDURE cmd2.click
        thisform.grid1.ActivateCell(thisform.grid1.ActiveRow, thisform.grid1.columncount)
        thisform.grid1.columns(thisform.grid1.columncount).SetFocus
    ENDPROC
    PROCEDURE UnLoad
        CLEAR EVENTS
    ENDPROC
ENDDEFINE

[此贴子已经被作者于2019-8-8 10:43编辑过]

第 8 楼

得分:0

回复 7楼吹水佬

经测试，有记录时有效，无记录时无效。
不过方法已经很好了。感谢吹版！

第 9 楼

得分:0

以下是引用su0527在2019-8-8 11:32:46的发言：

经测试，有记录时有效，无记录时无效。
不过方法已经很好了。感谢吹版！

无记录还想做什么

第 10 楼

得分:0

回复 9楼吹水佬

窗口中有一个“返回”按钮，使窗口界面回到初始状态，虽然没有数据，可有时滚动会被操作在中间位置。
就是想点击“返回”按钮，让窗口中的一切回到初始状态。