MSFlexGrid控件的几种简单的使用方法Word格式文档下载.docx
- 文档编号:15787774
- 上传时间:2022-11-16
- 格式:DOCX
- 页数:16
- 大小:20.21KB
MSFlexGrid控件的几种简单的使用方法Word格式文档下载.docx
《MSFlexGrid控件的几种简单的使用方法Word格式文档下载.docx》由会员分享,可在线阅读,更多相关《MSFlexGrid控件的几种简单的使用方法Word格式文档下载.docx(16页珍藏版)》请在冰豆网上搜索。
MSFlexGrid1.AddItem4
MSFlexGrid1.AddItem6
MSFlexGrid1.AddItem8
``MSFLEXGRID中如何取的某个单元格的数据
PrivateSubMSFlexGrid1_Click()
MsgBoxMSFlexGrid1.TextMatrix(MSFlexGrid1.Row,MSFlexGrid1.Col),vbOKOnly,"
提示消息"
EndSub
MSFlexGrid1.Row,表格中的当前行
MSFlexGrid1.Col,表格中的当前列
初始化MSFlexGrid
DimiAsInteger
MSFlexGrid1.Rows=0
Fori=0To10
MSFlexGrid1.AddItem"
AA"
+Str(i)
'
Fori=0To10
MSFlexGrid1.Col=1
MSFlexGrid1.Row=i
MSFlexGrid1.Text=CStr(i)
MSFlexGrid1.Col=2
MSFlexGrid1.Text=CStr(i)&
CStr(i)
MSFlexGrid1.Col=3
CStr(i)&
Nexti
实现MSFlexGrid控件,单行背景为浅灰,双行为兰色
DimjAsInteger
WithMSFlexGrid1
.AllowBigSelection=True
设置网格样式
.FillStyle=flexFillRepeat
Forj=0To.Rows-1
.Row=j:
.Col=.FixedCols
.ColSel=.Cols()-.FixedCols-1
IfjMod2=0Then
.CellBackColor=&
HC0C0C0
浅灰
Else
.CellBackColor=vbBlue'
兰色
EndIf
Nextj
EndWith
在MsFlexGrid控件单元格中插入背景图形
SetMSFlexGrid1.CellPicture=LoadPicture("
f:
\temp\snow.bmp"
)
MSFlexGrid控件如何移到最后一行
MSFlexGrid1.TopRow=MSFlexGrid1.Rows-1
隐藏第一行
PrivateSubCommand1_Click1()
MSFlexGrid1.RowHeight
(1)=0
EndSub
隐藏第一列
PrivateSubCommand_Click2()
MSFlexGrid1.ColWidth
(1)=0
在MSFlexGrid上点击右键,选择属性,选择"
选择模式"
自己任选
点击得到行代码
msgrid1.Col就是你选择的列号
msgrid1.Row就是你选择的行号
msgrid1.text就是你选择单元格的内容。
>
将文本赋值给MsFlexGrid的单元格
MsFlexGrid.TextMatrix(3,1)=”Hello”
在MsFlexGrid控件单元格中插入背景图形
SetMsFlexGrid.CellPicture=LoadPicture(“C:
\temp\1.bmp”)
选中某个单元
MsFlexGrid.Row=1
MsFlexGrid.Col=1
用粗体格式化当前选中单元
MsFlexGrid.CellFontBold=True
添加新的一行
使用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
如何判断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’判断垂直滚动条的可见性
HeScroll=False
i=GetScrollRange(MshGrid.hWnd,SB_VERT,lpMinPos,lpMaxPos)
lpMinPosThenHeScroll=True
程序运行时,想动态增加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
PrivateSubCommand1_Click()
Me.MSHFlexGrid1.Cols=Me.MSHFlexGrid1.Cols+1
Me.MSHFlexGrid1.ColPosition(5)=3
请教MSFlexGrid中的对齐功能的使用
设置MSFlexGrid1.ColAlignment(index)=n
得到MSFlexGrid控件中当前选中的一行
msflexgrid1.rowsel就是当前选中行
如何通过代码调节列宽度
msflexgrid1.colwidth(i)=4000
--------------------------------------------------------------------------------------
OutDataToText
将MsFlexGrid控件中显示的内容输出到文本文件
PublicSubOutDataToText(FlexAsMSFlexGrid)
DimsAsString
DimiAsInteger
DimjAsInteger
DimkAsInteger
DimstrTempAsString
OnErrorGoToErt
Me.MousePointer=11
OnErrorResumeNext
DoEvents
DimFileNumAsInteger
FileNum=FreeFile
Open"
d:
aa.txt"
ForOutputAs#FileNum
WithFlex
k=.Rows
Fori=0Tok-1
strTemp="
"
Forj=0To.Cols-1
strTemp=strTemp&
.TextMatrix(i,j)&
"
"
Nextj
Print#FileNum,Left(strTemp,Len(strTemp)-1)
Nexti
Close#FileNum
Me.MousePointer=0
MsgBox"
导出成功"
Ert:
MsgBoxErr.Description
增加MsFlexGrid的编辑功能
概述
MsFlexGrid控件没有提供文本编辑的功能,下面的例子演示了如何利用一个TextBox实现编辑当前网格的功能。
在按下一个键后,就把TextBox移动到当前的位置,并激活。
在键入回车或移动到其他网格时,
就把TextBox中的内容放到网格中。
实现步骤
1打开VB5,开启
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- MSFlexGrid 控件 简单 使用方法