VB
中
MsFlexGrid
控件的使用细则
(
收集
)
>>
将文本赋值给
MsFlexGrid
的单元格
MsFlexGrid.TextMatrix(3,1)=”Hello”
>>
在
MsFlexGrid
控件单元格中插入背景图形
Set MsFlexGrid.CellPicture=LoadPicture(“C:
\temp\
1.bmp”)
>>
选中某个单元
MsFlexGrid.Row=1
MsFlexGrid.Col=1
>>
用粗体格式化当前选中单元
MsFlexGrid.CellFontBold=True
>>
添加新的一行
使用
AddItem
方法
,
用
Tab
字符分开不同单元格的内容
dim row as string
row=”
AAA”&vbtab&”bbb”
MsFlexFrid1.addItem row
>>
怎样来实现
MSFlexGrid
控件单数行背景为白色,双数的行背景为蓝色
?
Dim i As Integer
With MSFlexGrid1
.AllowBigSelection = True
’
设置网格样式
.FillStyle = flexFillRepeat
For i = 0 To .Rows - 1
.Row = i: .Col = .FixedCols
.ColSel = .Cols() - .FixedCols - 1
If i Mod 2 = 0 Then
.CellBackColor = &HC0C0C0
’
浅灰
Else
.CellBackColor = vbBlue
’
兰色
End If
Next i
End With
>> MSFlexGrid
控件如何移到最后一行
MSFlexGrid1.TopRow = MSFlexGrid1.Rows
–
1
>>
如何判断
msflexgrid
有无滚动条
Declare
Function
GetScrollRange
Lib
"user32"
(ByVal
hWnd
As
Long,
ByVal
nBar
As
Long,
lpMinPos As