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

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 数据库技术 → 『 VFP论坛』 → grid的水平滚动如何回到最左边？

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 2131 人关注过本帖

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

只看楼主加入收藏

su0527

等　级：论坛游民
帖　子：452
专家分：79
注　册：2015-1-10
结帖率：96.03%

楼主

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

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

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

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

2019-08-08 08:50

吹水佬

等　级：版主
威　望：451
帖　子：10608
专家分：43190
注　册：2014-5-20

第 2 楼

得分:20

将焦点设置到第一列可否

2019-08-08 09:24

su0527

等　级：论坛游民
帖　子：452
专家分：79
注　册：2015-1-10

第 3 楼

得分:0

回复 2楼吹水佬

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

2019-08-08 09:46

吹水佬

等　级：版主
威　望：451
帖　子：10608
专家分：43190
注　册：2014-5-20

第 4 楼

得分:0

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

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

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

2019-08-08 09:52

su0527

等　级：论坛游民
帖　子：452
专家分：79
注　册：2015-1-10

第 5 楼

得分:0

回复 4楼吹水佬

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

2019-08-08 09:57

吹水佬

等　级：版主
威　望：451
帖　子：10608
专家分：43190
注　册：2014-5-20

第 6 楼

得分:0

滚动条用DoScroll方法

2019-08-08 10:28

吹水佬

等　级：版主
威　望：451
帖　子：10608
专家分：43190
注　册：2014-5-20

第 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编辑过]

2019-08-08 10:36

su0527

等　级：论坛游民
帖　子：452
专家分：79
注　册：2015-1-10

第 8 楼

得分:0

回复 7楼吹水佬

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

2019-08-08 11:32

吹水佬

等　级：版主
威　望：451
帖　子：10608
专家分：43190
注　册：2014-5-20

第 9 楼

得分:0

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

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

无记录还想做什么

2019-08-08 11:34

su0527

等　级：论坛游民
帖　子：452
专家分：79
注　册：2015-1-10

第 10 楼

得分:0

回复 9楼吹水佬

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

2019-08-08 18:24

快速回复：grid的水平滚动如何回到最左边？