Sub OnLButtonDown(Byval Item, Byval Flags, Byval x, Byval y)
Dim MSFlexGrid1
Dim str2
item.Enabled = False
Set MSFlexGrid1=ScreenItems("MSFlexGrid1")
str2 = "起吊时间|放吊时间|起吊时间长|起吊重|起吊次数"
MSFlexGrid1.AllowUserResizing = 1' 鼠标放到固定列上面两列中间竖线的时候，鼠标指针变成"左右箭头"
MSFlexGrid1.clear
MSFlexGrid1.FixedRows = 1
MSFlexGrid1.FixedCols = 0
MSFlexGrid1.FormatString = str2
MSFlexGrid1.ColWidth(0) = 3200
MSFlexGrid1.ColWidth(1) = 3200
MSFlexGrid1.ColWidth(2) = 3200
MSFlexGrid1.ColWidth(3) = 3200
MSFlexGrid1.Rows = 100
MSFlexGrid1.Cols = 5
'填充数据
i=1
j=0
Do While i<=3
For j=0 To 2
MSFlexGrid1.TextMatrix(i, j) =i+j
Next
i=i+1
Loop
'美化起始
MSFlexGrid1.Row = 1
MSFlexGrid1.Col = 1
MSFlexGrid1.RowSel = 2
MSFlexGrid1.ColSel = 2
MSFlexGrid1.FillStyle = flexFillRepet
MSFlexGrid1. CellFontBold = True
MSFlexGrid1. CellAlignment = flexAlignCenterCenter
MSFlexGrid1. CellFontName = "Courier New"
MSFlexGrid1. CellFontSize = 14
MSFlexGrid1. CellForeColor = "red"
MSFlexGrid1. CellBackColor = "blue"
'美化结束
item.Enabled = True
End Sub
以上代码，不加美化代码，运行正常。加美化代码运行后（1,2），（2,1），（2,2）三单元格呈蓝色被选中状态。美化代码不起作用，请问哪里有问题。
问题补充：
谢谢了。调试发现MSFlexGrid1. CellAlignment = flexAlignCenterCenter这句有问题，去掉一切正常。想要字体居中，这句有什么问题？请指教
最佳答案
从您的代码中发现了一些问题，参照下面的说明
1、MSFlexGrid1.FillStyle = flexFillRepet
属性赋值拼写错误，应该改为：
MSFlexGrid1.FillStyle = flexFillRepeat
2、颜色变化赋值
MSFlexGrid1. CellForeColor = "red"
MSFlexGrid1. CellBackColor = "blue"
应该改为
MSFlexGrid1.CellForeColor = vbRed
MSFlexGrid1.CellBackColor = vbBlue
提问者对于答案的评价：
谢谢了，你的观察真仔细啊。
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc255151.html
微信扫一扫 
支付宝扫一扫 