VB6.0中MSFlexGrid控件的用法

(MicrosoftFlexGridControl6.0)控件在VB6.0中如何用它来操纵数据库,主要是使用它来显示/修改Access数据库的字段和记录以及它的一些基本属... (Microsoft FlexGrid Control 6.0)控件在VB6.0中如何用它来操纵数据库,主要是使用它来显示/修改Access数据库的字段和记录以及它的一些基本属性或者主要的属性的用法,能有例题说明最好... 展开
 我来答 举报
育儿智慧台
2019-05-26 · TA获得超过3575个赞
知道大有可为答主
回答量:3047
采纳率:32%
帮助的人:245万
展开全部
★呵呵!
>>
将文本赋值给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
Long,
lpMaxPos
As
Long)
As
Long
Public
Const
SB_HORZ
=
&H0
Public
Const
SB_VERT
=
&H1
Public
Function
VsScroll(MshGrid
As
MSHFlexGrid)
As
Boolean
’判断水平滚动条的可见性
Dim
i
As
Long
VsScroll
=
False
i
=
GetScrollRange(MshGrid.hWnd,
SB_HORZ,
lpMinPos,
lpMaxPos)
If
lpMaxPos
<>
lpMinPos
Then
VsScroll
=
True
End
Function
Public
Function
HeScroll(MshGrid
As
MSHFlexGrid)
As
Boolean
’判断垂直滚动条的可见性
Dim
i
As
Long
HeScroll
=
False
i
=
GetScrollRange(MshGrid.hWnd,
SB_VERT,
lpMinPos,
lpMaxPos)
If
lpMaxPos
<>
lpMinPos
Then
HeScroll
=
True
End
Function
>>程序运行时,想动态增加MSFlexgrid的列数
在第2列后插入一列:
Private
Sub
Form_Load()
Me.MSHFlexGrid1.Cols
=
5
MSHFlexGrid1.Rows
=
2
For
i
=
0
To
Me.MSHFlexGrid1.Cols
-
1
Me.MSHFlexGrid1.TextMatrix(0,
i)
=
i
Me.MSHFlexGrid1.TextMatrix(1,
i)
=
i
Next
End
Sub
Private
Sub
Command1_Click()
Me.MSHFlexGrid1.Cols
=
Me.MSHFlexGrid1.Cols
+
1
Me.MSHFlexGrid1.ColPosition(5)
=
3
End
Sub
>>
请教MSFlexGrid中的对齐功能的使用
设置MSFlexGrid1.ColAlignment(index)=n
>>得到MSFlexGrid控件中当前选中的一行
msflexgrid1.rowsel就是当前选中行
>>
如何通过代码调节列宽度
msflexgrid1.colwidth(i)=4000
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式