msflexgrid允许大选择_MsFlexGrid用法

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