MSFlexGrid控件的几种简单的使用方法.docx
- 文档编号:2876726
- 上传时间:2022-11-16
- 格式:DOCX
- 页数:16
- 大小:20.21KB
MSFlexGrid控件的几种简单的使用方法.docx
《MSFlexGrid控件的几种简单的使用方法.docx》由会员分享,可在线阅读,更多相关《MSFlexGrid控件的几种简单的使用方法.docx(16页珍藏版)》请在冰豆网上搜索。
MSFlexGrid控件的几种简单的使用方法
【MSFlexGrid控件的几种简单的使用方法】
【日期】
VBMSFlexGrid控件的几种简单的使用方法
2009-01-1017:
05
MSFlexGrid控件的几种简单的使用方法
'MSFlexGrid赋值的方法
MSFlexGrid1.TextMatrix(0,1)="老师"
MSFlexGrid1.TextMatrix(1,2)="学生"
MSFlexGrid1.TextMatrix(2,3)="校长"
MSFlexGrid1.TextMatrix(3,4)="班主任"
MSFlexGrid1.TextMatrix(4,5)="教务主任"
MSFlexGrid1.AddItem2
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.Row=i
MSFlexGrid1.Text=CStr(i)&CStr(i)
MSFlexGrid1.Col=3
MSFlexGrid1.Row=i
MSFlexGrid1.Text=CStr(i)&CStr(i)&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
'EndSub
在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’判断垂直滚动条的可见性
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
>>得到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
DoEvents
strTemp=strTemp&.TextMatrix(i,j)&","
Nextj
Print#FileNum,Left(strTemp,Len(strTemp)-1)
Nexti
EndWith
Close#FileNum
Me.MousePointer=0
MsgBox"导出成功"
Ert:
MsgBoxErr.Description
Me.MousePointer=0
EndSub
增加MsFlexGrid的编辑功能
概述
MsFlexGrid控件没有提供文本编辑的功能,下面的例子演示了如何利用一个TextBox实现编辑当前网格的功能。
在按下一个键后,就把TextBox移动到当前的位置,并激活。
在键入回车或移动到其他网格时,
就把TextBox中的内容放到网格中。
实现步骤
1打开VB5,开启
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- MSFlexGrid 控件 简单 使用方法
![提示](https://static.bdocx.com/images/bang_tan.gif)