| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2182 人关注过本帖, 1 人收藏
标题:Grid表格增加CHECK问题?
只看楼主 加入收藏
mywisdom88
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:191
帖 子:3147
专家分:8408
注 册:2015-3-25
收藏
得分:0 
Alignment = 1,0都不会报错
2015-04-26 19:28
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10607
专家分:43182
注 册:2014-5-20
收藏
得分:0 
0,1,4,5,7,8
2015-04-26 20:07
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
以下是引用mywisdom88在2015-4-26 01:17:54的发言:

我在论坛上找到这个,但好像会报错?错误在这里,.Alignment = 2 ,我的是VFP6.0的,我查看了CHECK的Alignment ,只有0,1的?没2?难道你们是9.0的有2的?
在6.0中要 居中对齐,怎么搞?
WITH Thisform.grid1.Columns[1]
    .AddObject('check1','CheckBox')     && 添加复选框
    .CurrentControl = 'Check1'          && 用复选框显示列内容
    .Check1.Visible = .t.               && 使复选框可见
    .Check1.Caption = ''                && 去掉复选框右边的文字 check1
    .Sparse = .f.                       && 所有行均显示复选框
    .Alignment = 2                      && 居中对齐
    .Width = 28                         && 列宽
ENDWITH


描红的是Grid表格中第1列的屬性,要求这一栏(Column容器)内的控件在栏内居中,不是那个控件中內容居中。

授人以渔,不授人以鱼。
2015-04-26 21:43
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
WITH ThisForm.Grid1.Columns(1)
ENDWITH
這個结构,是对ThisForm.Grid1.Columns(1)控件进行设置,里面所有.开头的屬性或方法、函数,都是归属于这个控件的。也就是说,描红的那行,其实是ThisForm.Grid1.Columns(1).Alignment=2,是这个栏Columns(1)的屬性,不是栏里面控件Checkbox的屬性。

Alignment屬性,其值所表示的意义,随控件的不同而不同,在帮助文档中是说得很清楚的。

[ 本帖最后由 TonyDeng 于 2015-4-26 22:09 编辑 ]

授人以渔,不授人以鱼。
2015-04-26 22:07
mywisdom88
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:191
帖 子:3147
专家分:8408
注 册:2015-3-25
收藏
得分:0 
WITH Thisform.grid1.Columns[1]
    .AddObject('check1','CheckBox')     && 添加复选框
    .CurrentControl = 'Check1'          && 用复选框显示列内容
    .Check1.Visible = .t.               && 使复选框可见
    .Check1.Caption = '123'                && 去掉复选框右边的文字 check1
    .Sparse = .f.                       && 所有行均显示复选框
    .Alignment = 0                     && 居中对齐=2,VFP6.0只有0和1
    .Width = 50                         && 列宽
    .Check1.Value=1                     && 默认
ENDWITH
.Alignment = 0 出下图
图片附件: 游客没有浏览图片的权限,请 登录注册


.Alignment = 1 出下图
图片附件: 游客没有浏览图片的权限,请 登录注册

难道是版本问题,我的是6.0,=2时报错,他这里的效果,明显就是指CHECK的

[ 本帖最后由 mywisdom88 于 2015-4-26 22:47 编辑 ]
2015-04-26 22:44
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
看版本6自己的帮助

授人以渔,不授人以鱼。
2015-04-26 22:47
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
Alignemtn屬性在Header和Column中的意义:

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



[ 本帖最后由 TonyDeng 于 2015-4-26 23:07 编辑 ]

授人以渔,不授人以鱼。
2015-04-26 22:57
mywisdom88
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:191
帖 子:3147
专家分:8408
注 册:2015-3-25
收藏
得分:0 
以下是引用吹水佬在2015-4-26 20:07:58的发言:

0,1,4,5,7,8
WITH Thisform.grid1.Columns[1]
    .AddObject('check1','CheckBox')     && 添加复选框
    .CurrentControl = 'Check1'          && 用复选框显示列内容
    .Check1.Visible = .t.               && 使复选框可见
    .Check1.Caption = '123'                && 去掉复选框右边的文字 check1
    .Sparse = .f.                       && 所有行均显示复选框
    .Alignment = 1                     && 居中对齐=2,VFP6.0只有0和1
    .Width = 50                         && 列宽
    .Check1.Value=1                     && 默认
ENDWITH
我在下面加1句,=0,1,4,5,7,8时都不出错,但=2,2,6就报错误
但=0,1,4,5,7,8时,都不是在中间的。
thisform.grid1.column1.alignment=8

图片附件: 游客没有浏览图片的权限,请 登录注册
2015-04-26 22:59
mywisdom88
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:191
帖 子:3147
专家分:8408
注 册:2015-3-25
收藏
得分:0 
我知道,你们说的,但奇怪的是,我这里不行。。
2015-04-26 23:01
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
vfp6如果没有bug,没有质的变化,就不会升級3个主版本。

授人以渔,不授人以鱼。
2015-04-26 23:10
快速回复:Grid表格增加CHECK问题?
数据加载中...
 
   



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

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