VB中MsFlexGrid控件的使用细则(收集)

最新推荐文章于 2025-06-30 14:49:29 发布

转载最新推荐文章于 2025-06-30 14:49:29 发布 · 501 阅读

文章标签：

#vb #网格 #图形 #user #c

本文介绍MSFlexGrid控件的各种实用操作技巧，包括文本赋值、背景图形插入、行列选择、格式化、动态列增加及对齐等功能，并提供调整列宽、判断滚动条可见性的方法。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

将文本赋值给MsFlexGrid的单元格
MsFlexGrid.TextMatrix(3,1)=”Hello”

>>在MsFlexGrid控件单元格中插入背景图形
SetMsFlexGrid.CellPicture=LoadPicture(“C:/temp/1.bmp”)

http://www.mscto.com

>>选中某个单元
MsFlexGrid.Row=1
MsFlexGrid.Col=1

>>用粗体格式化当前选中单元
MsFlexGrid.CellFontBold=True http://www.mscto.com

>>添加新的一行
使用AddItem方法,用Tab字符分开不同单元格的内容
dimrowasstring
row=”AAA”&VBtab&”bbb”
MsFlexFrid1.addItemrow

>>怎样来实现MSFlexGrid控件单数行背景为白色，双数的行背景为蓝色?
DimiAsInteger
WithMSFlexGrid1
.AllowBigSelection=True’设置网格样式
.FillStyle=flexFillRepeat
Fori=0To.Rows-1
.Row=i:.Col=.FixedCols
.ColSel=.Cols()-.FixedCols-1
IfiMod2=0Then
.CellBackColor=&HC0C0C0’浅灰
Else
.CellBackColor=vbBlue’兰色
EndIf
Nexti
EndWith

>>MSFlexGrid控件如何移到最后一行
MSFlexGrid1.TopRow=MSFlexGrid1.Rows–1 http://www.mscto.com

>>如何判断msflexgrid有无滚动条
DeclareFunctionGetScrollRangeLib"user32"(ByValhWndAsLong,ByValnBarAsLong,lpMinPosAsLong,lpMaxPosAsLong)AsLong
PublicConstSB_HORZ=&H0
PublicConstSB_VERT=&H1

PublicFunctionVsScroll(MshGridAsMSHFlexGrid)AsBoolean’判断水平滚动条的可见性
DimiAsLong
VsScroll=False
i=GetScrollRange(MshGrid.hWnd,SB_HORZ,lpMinPos,lpMaxPos)
IflpMaxPos<>lpMinPosThenVsScroll=True
EndFunction 软件开发网

PublicFunctionHeScroll(MshGridAsMSHFlexGrid)AsBoolean’判断垂直滚动条的可见性
DimiAsLong
HeScroll=False
i=GetScrollRange(MshGrid.hWnd,SB_VERT,lpMinPos,lpMaxPos)
IflpMaxPos<>lpMinPosThenHeScroll=True
EndFunction

>>程序运行时，想动态增加MSFlexgrid的列数
在第2列后插入一列：
PrivateSubForm_Load()
Me.MSHFlexGrid1.Cols=5
MSHFlexGrid1.Rows=2
Fori=0ToMe.MSHFlexGrid1.Cols-1
Me.MSHFlexGrid1.TextMatrix(0,i)=i
Me.MSHFlexGrid1.TextMatrix(1,i)=i
Next
EndSub

PrivateSubCommand1_Click()
Me.MSHFlexGrid1.Cols=Me.MSHFlexGrid1.Cols 1
Me.MSHFlexGrid1.ColPosition(5)=3
EndSub

>>请教MSFlexGrid中的对齐功能的使用
设置MSFlexGrid1.ColAlignment(index)=n http://www.mscto.com

>>得到MSFlexGrid控件中当前选中的一行
msflexgrid1.rowsel就是当前选中行

>>如何通过代码调节列宽度
msflexgrid1.colwidth(i)=4000