| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
ADSL如何秒变专线,公网IP盒子了解一下千里之行 始于足下
共有 153 人关注过本帖
标题:grid的水平滚动如何回到最左边?
只看楼主 加入收藏
su0527
Rank: 2
等 级:论坛游民
帖 子:406
专家分:74
注 册:2015-1-10
结帖率:95.65%
  已结贴   问题点数:20  回复次数:9   
grid的水平滚动如何回到最左边?
什么命令能让表格水平滚动条回到最左边?

搜索更多相关主题的帖子: grid 水平 滚动 表格 滚动条 
2019-08-08 08:50
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:203
帖 子:6656
专家分:29343
注 册:2014-5-20
  得分:20 
将焦点设置到第一列可否
2019-08-08 09:24
su0527
Rank: 2
等 级:论坛游民
帖 子:406
专家分:74
注 册:2015-1-10
  得分:0 
回复 2楼 吹水佬
好像不行,要求数据源为空时,也能回到最左边
2019-08-08 09:46
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:203
帖 子:6656
专家分:29343
注 册:2014-5-20
  得分: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
Rank: 2
等 级:论坛游民
帖 子:406
专家分:74
注 册:2015-1-10
  得分:0 
回复 4楼 吹水佬
已经测试您的两种代码,都可以将焦点移到显示的列的第一列,但都不能移动滚动条。前面隐藏的几列还一直隐藏着。
2019-08-08 09:57
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:203
帖 子:6656
专家分:29343
注 册:2014-5-20
  得分:0 
滚动条用DoScroll方法
2019-08-08 10:28
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:203
帖 子:6656
专家分:29343
注 册:2014-5-20
  得分: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
Rank: 2
等 级:论坛游民
帖 子:406
专家分:74
注 册:2015-1-10
  得分:0 
回复 7楼 吹水佬
经测试,有记录时有效,无记录时无效。
不过方法已经很好了。感谢吹版!

2019-08-08 11:32
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:203
帖 子:6656
专家分:29343
注 册:2014-5-20
  得分:0 
以下是引用su0527在2019-8-8 11:32:46的发言:

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

无记录还想做什么
2019-08-08 11:34
su0527
Rank: 2
等 级:论坛游民
帖 子:406
专家分:74
注 册:2015-1-10
  得分:0 
回复 9楼 吹水佬
窗口中有一个“返回”按钮,使窗口界面回到初始状态,虽然没有数据,可有时滚动会被操作在中间位置。
就是想点击“返回”按钮,让窗口中的一切回到初始状态。
2019-08-08 18:24







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.019752 second(s), 8 queries.
Copyright©2004-2019, BCCN.NET, All Rights Reserved