Spread的MaskCellType的使用

来源:互联网 发布:剑三装备数据库 编辑:程序博客网 时间:2024/05/16 18:56

只能输入数字,但前面的零不会省去
Dim nf As New FarPoint.Win.Spread.CellType.MaskCellType
nf.Mask = "###"
nf.MaskChar = " "c
.Columns(SPD_COL.NOKI).CellType = nf

 

只能输入英数字  
 Dim nc As New FarPoint.Win.Spread.CellType.MaskCellType
 nc.Mask = "WWWW"
 nc.MaskChar = " "c
.Columns(SPD_COL.CODE).CellType = nc

 

CHKBOX的列头硬换行
 Dim cb As New FarPoint.Win.Spread.CellType.CheckBoxCellType()

.Columns(SPD_COL.CHKBOX).CellType = cb
.Columns(SPD_COL.CHKBOX).VisualStyles = FarPoint.Win.VisualStyles.On
.ColumnHeader.Cells(0, SPD_COL.CHKBOX).Text = "選" + Chr(13) + Chr(10) + "択"

原创粉丝点击