| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 322 人关注过本帖
标题:求教,关于表格中移动的问题
只看楼主 加入收藏
fanjinyu9108
Rank: 2
等 级:论坛游民
帖 子:552
专家分:13
注 册:2014-1-16
结帖率:87.37%
收藏
已结贴  问题点数:20 回复次数:7 
求教,关于表格中移动的问题
在表格中切换单元格有2种方式,一种是用键盘的上下左右键,一种是鼠标直接点到某个单元格,我想实现的效果是鼠标点击单元格后与用键盘的上下左右键的效果一样,但是我总是达不到效果,我试了好几种代码,都不行,另外,我的表格在表单打开的时候就绑定了数据源,数据源是数字型的。我在text1的click事件中用的代码一是:this.setfocus 代码二是:
程序代码:
LOCAL fs,n
myvalue=this.value
DO case
case TYPE('myvalue')='C'
THIS.SELSTART=0   
THIS.SELLENGTH=LEN(ALLTRIM(myvalue))
case TYPE('myvalue')='N'
fs=FONTMETRIC(6,this.FontName,this.FontSize)+FONTMETRIC(16,this.FontName,this.FontSize)
fs=fs/2
n=round(this.Width/fs,0)

THIS.SELSTART=n-LEN(STR(myvalue))
THIS.SELLENGTH=LEN(STR(myvalue))
  
ENDCASE
搜索更多相关主题的帖子: 代码 效果 表格 this case 
2021-10-20 07:29
gs2536785678
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:34
帖 子:469
专家分:1381
注 册:2017-7-16
收藏
得分:4 
朋友的理论太深刻,我一时不能理解了
说真的,VFP的表格中,也就是直接用
鼠标点单元格来激活它,其他还能有啥
办法呢?
2021-10-20 07:46
laowan001
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:10
帖 子:326
专家分:604
注 册:2015-12-30
收藏
得分:4 
楼主的意思是不是:点击单元格后,单元格的内容是全选状态?
2021-10-20 08:28
sam_jiang
Rank: 3Rank: 3
等 级:论坛游侠
威 望:1
帖 子:84
专家分:145
注 册:2021-10-13
收藏
得分:4 
回复 3楼 laowan001
应该是这个意思,呵呵,学编程的语文一定要好。
2021-10-20 08:42
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:340
帖 子:8671
专家分:38044
注 册:2014-5-20
收藏
得分:4 
text1.SelectOnEntry = .T.

** text1.GotFocus 事件
this.SetFocus
2021-10-20 09:04
fanjinyu9108
Rank: 2
等 级:论坛游民
帖 子:552
专家分:13
注 册:2014-1-16
收藏
得分:0 
吹水佬老师说得对,
应该忘了设置selectonentry的属性,明天上班试一下
2021-10-20 21:30
惬意_甬车
Rank: 1
等 级:新手上路
威 望:1
帖 子:21
专家分:4
注 册:2016-5-12
收藏
得分:4 
楼主的意思老车的明白,应该是想焦点在GRID表格中即可用上下左右方向键移动,也可用鼠标点击,并且效果相同。多年来老车都是这么整的:
图片附件: 游客没有浏览图片的权限,请 登录注册

图片附件: 游客没有浏览图片的权限,请 登录注册

然后你想干啥就在“文书_A111书签”与“文书_B111书签”两个PRG文件里尽情的折腾吧。
2021-10-21 08:06
fanjinyu9108
Rank: 2
等 级:论坛游民
帖 子:552
专家分:13
注 册:2014-1-16
收藏
得分:0 
甬车师傅的解答不大明白,
但吹水佬老师的解答解决了问题
2021-10-21 19:24
快速回复:求教,关于表格中移动的问题
数据加载中...
 
   



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

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