MsFlexGrid使用方法

MsFlexGrid使用方法

最近写代码，要对一些表格做特殊的处理，我想用MsFlexGrid来实现，所以现收集MsFlexGrid的使用方法。

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

>> 将文本赋值给MsFlexGrid的单元格

MsFlexGrid.TextMatrix(3,1)=”Hello”

>> 在MsFlexGrid控件单元格中插入背景图形

Set MsFlexGrid.CellPicture=LoadPicture(“C:\emp\\1.bmp”)

>>选中某个单元

MsFlexGrid.Row=1

MsFlexGrid.Col=1

>>用粗体格式化当前选中单元

MsFlexGrid.CellFontBold=True

>> 添加新的一行

第1页（共22页）

VB学习资料 Msflexgrid控件

使用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

第2页（共22页）

VB学习资料 Msflexgrid控件

.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

第3页（共22页）

VB学习资料 Msflexgrid控件

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

第4页（共22页）

VB学习资料 Msflexgrid控件

>>程序运行时，想动态增加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

第5页（共22页）

VB学习资料 Msflexgrid控件

End Sub

>> 请教MSFlexGrid中的对齐功能的使用

设置MSFlexGrid1.ColAlignment(index)=n

>>得到MSFlexGrid控件中当前选中的一行

msflexgrid1.rowsel就是当前选中行

>> 如何通过代码调节列宽度

msflexgrid1.colwidth(i)=4000

将MsFlexGrid控件的内容输出到文本

2004-03-19 14:25:18

'OutDataToText

'将MsFlexGrid控件中显示的内容输出到文本文件

Public Sub OutDataToText(Flex As MSFlexGrid)

Dim s As String

第6页（共22页）

VB学习资料 Msflexgrid控件

Dim i As Integer

Dim j As Integer

Dim k As Integer

Dim strTemp As String

On Error GoTo Ert

Me.MousePointer = 11

On Error Resume Next

DoEvents

Dim FileNum As Integer

FileNum = FreeFile

Open \"d:aa.txt\" For Output As #FileNum

With Flex

k = .Rows

第7页（共22页）

VB学习资料 Msflexgrid控件

For i = 0 To k - 1

strTemp = \"\"

For j = 0 To .Cols - 1

DoEvents

strTemp = strTemp & .TextMatrix(i, j) & \

Next j

Print #FileNum, Left(strTemp, Len(strTemp) - 1)

Next i

End With

Close #FileNum

Me.MousePointer = 0

MsgBox \"导出成功\"

Ert:

第8页（共22页）

VB学习资料 Msflexgrid控件

MsgBox Err.Description

Me.MousePointer = 0

End Sub

增加 MsFlexGrid 的编辑功能

（作者：佚名 加载日期: 2002/3/31）

概述

MsFlexGrid 控件没有提供文本编辑的功能，下面的例子演示了如何利用一个TextBox 实现编辑当前网格的功能

。

在按下一个键后， 就把TextBox 移动到当前的位置， 并激活。 在键入回车或移动到其他网格时，

就把TextBox 中的内容放到网格中。

实现步骤

1 打开 VB5， 开启一个新的工程。

第9页（共22页）

VB学习资料 Msflexgrid控件

2 在菜单“工程” 中选择 “部件”， 在列表中选中 “Microsoft FlexGrid Control ..”

3 放一个 MsFlexGrid 控件和一个TextBox 控件(Text1)到 Form1。 修改MsFlexGrid 控件的名称为 Grid1，

设置Grid1 的行，列 为 4， 固定行，列为 0。 设置 Text1 的 Visiable 为 False， BorderStyle 为

None(0)。

4 在Form1 的代码中增加声明：

Const ASC_ENTER = 13 '回车

Dim gRow As Integer

Dim gCol As Integer

5 增加代码到 Grid_KeyPress 过程：

Private Sub Grid1_KeyPress(KeyAscii As Integer)

' Move the text box to the current grid cell:

Text1.Top = Grid1.CellTop + Grid1.Top

第10页（共22页）

VB学习资料 Msflexgrid控件

Text1.Left = Grid1.CellLeft + Grid1.Left

' Save the position of the grids Row and Col for later:

gRow = Grid1.Row

gCol = Grid1.Col

' Make text box same size as current grid cell:

Text1.Width = Grid1.CellWidth - 2 * Screen.TwipsPerPixelX

Text1.Height = Grid1.CellHeight - 2 * Screen.TwipsPerPixelY

' Transfer the grid cell text:

Text1.Text = Grid1.Text

' Show the text box:

Text1.Visible = True

Text1.ZOrder 0 ' 把 Text1 放到最前面！

Text1.SetFocus

第11页（共22页）

VB学习资料 Msflexgrid控件

' Redirect this KeyPress event to the text box:

If KeyAscii <> ASC_ENTER Then

SendKeys Chr$(KeyAscii)

End If

End Sub

6 增加代码到 Text1_KeyPress 过程：

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = ASC_ENTER Then

Grid1.SetFocus ' Set focus back to grid, see Text_LostFocus.

KeyAscii = 0 ' Ignore this KeyPress.

End If

End Sub

7 增加代码到 Text1_LostFocus 过程：

第12页（共22页）

VB学习资料 Msflexgrid控件

Private Sub Text1_LostFocus()

Dim tmpRow As Integer

Dim tmpCol As Integer

' Save current settings of Grid Row and col. This is needed only if

' the focus is set somewhere else in the Grid.

tmpRow = Grid1.Row

tmpCol = Grid1.Col

' Set Row and Col back to what they were before Text1_LostFocus:

Grid1.Row = gRow

Grid1.Col = gCol

Grid1.Text = Text1.Text ' Transfer text back to grid.

Text1.SelStart = 0 ' Return caret to beginning.

Text1.Visible = False ' Disable text box.

第13页（共22页）

VB学习资料 Msflexgrid控件

' Return row and Col contents:

Grid1.Row = tmpRow

Grid1.Col = tmpCol

End Sub

8 好了。 按 F5 开始测试。 您可以自由地在 Grid 中移动， 按回车可以开始或结束编辑。

使用MsFlexGrid控件的几个函数

作者：中国论坛网收集 来源：http://www.51one.net 加入时间：2004-8-25

在VB处理数据显示的时候,使用表格是一种好的方法,虽然DataGrid可以与数据源绑定,但是总有美中不足,就是

外观不好看,所以有时应用MsFlexGrid显示数据还是一种比较好的方法,以下几个函数是用来控制MsFlexGrid的

程序

(本人语言表达能力有限,还请见谅)

''MsFlexGrid操作函数

第14页（共22页）

VB学习资料 Msflexgrid控件

''合并列

Public Function MergeCol(GridObj As Object, ByVal StartCol As Long, ByVal EndCol As Long, ByVal

ColValue As String, ByVal CurrentRow As Long) As Boolean

If StartCol > EndCol Or StartCol > GridObj.Cols Or CurrentRow > GridObj.Rows Then

MsgBox \"对不起，行列设置错误！\

MergeCol = False

Exit Function

End If

For I = StartCol To EndCol

GridObj.MergeCol(I) = True

GridObj.TextArray(faIndex(GridObj, CurrentRow, I)) = ColValue

GridObj.ColAlignment(I) = flexAlignCenterCenter

第15页（共22页）

VB学习资料 Msflexgrid控件

Next I

GridObj.MergeRow(CurrentRow) = True

MergeCol = True

End Function

''合并行

Public Function MergeRow(GridObj As Object, ByVal StartRow As Long, ByVal EndRow As Long, ByVal

RowValue As String, ByVal CurrentCol As Long) As Boolean

If StartRow > EndRow Or StartRow > GridObj.Rows Or CurrentCol > GridObj.Cols Then

MsgBox \"对不起，行列设置错误！\

MergeRow = False

Exit Function

End If

第16页（共22页）

VB学习资料 Msflexgrid控件

For I = StartRow To EndRow

GridObj.MergeRow(I) = True

GridObj.TextArray(faIndex(GridObj, I, CurrentCol)) = RowValue

GridObj.ColAlignment(CurrentCol) = flexAlignCenterCenter

Next I

GridObj.MergeCol(CurrentCol) = True

MergeRow = True

End Function

''转换索引

Public Function faIndex(GridObj As Object, ByVal row As Integer, ByVal col As Integer) As Long

If row > GridObj.Rows Or row < 0 Or col > GridObj.Cols Or col < 0 Then

MsgBox \"对不起，行列设置错误！\

faIndex = -1

第17页（共22页）

VB学习资料 Msflexgrid控件

Exit Function

End If

faIndex = row * GridObj.Cols + col

End Function

''插入行

Public Function SetItem(GridObj As Object, ByVal row As Integer, ByVal col As Integer, ByVal

SetValue As String) As Boolean

If row > GridObj.Rows Or row < 0 Or col > GridObj.Cols Or col < 0 Then

MsgBox \"对不起，行列设置错误！\

SetItem = False

Exit Function

End If

GridObj.TextArray(faIndex(GridObj, row, col)) = SetValue

第18页（共22页）

VB学习资料 Msflexgrid控件

SetItem = True

End Function

''得到单元格值

Public Function GetItem(GridObj As Object, ByVal row As Integer, ByVal col As Integer) As String

If row > GridObj.Rows Or row < 0 Or col > GridObj.Cols Or col < 0 Then

MsgBox \"对不起，行列设置错误！\

GetItem = \"\"

Exit Function

End If

GetItem = GridObj.TextArray(faIndex(GridObj, row, col))

End Function

在msflexgrid控件中每一个cell格的内容是不可以由用户直接编辑的但是我们可以通过一些小技

第19页（共22页）

VB学习资料 Msflexgrid控件

巧来方便的实现这编辑功能来扩展msflexgrid的应用（在实际应用中这是很常用的功能）。

你只需按下面的做即可轻松实现编辑msflexgrid控件数据的功能

例在窗体上放一文本框txtvalue，和一msflexgrid控件grid

‘文本框控件的keypress事件

private sub txtvalue_keypress(keyascii as integer)

‘放入一些处理过程，如只需输入数字时的处理

dim i

i=1

end sub

private sub txtvalue_change()

grid.text = txtvalue.text

end sub

'在grid的entercell事件中加入下例代码

第20页（共22页）

VB学习资料 Msflexgrid控件

private sub grid_entercell()

txtvalue.text = grid.text

txtvalue.selstart = 0

txtvalue.sellength = len(txtvalue.text)

end sub

'当用户输入数据时直接调用文本框的keypress事件

private sub grid_keypress(keyascii as integer)

txtvalue_keypress keyascii

end sub

ok,这样一个可编辑的msflexgrid控件就完成了，简单吧!!

原理

当用户点击msflexgrid中的某个cell格要输入数据时,产生entercell事件，在这里我们对文本

框进行初始化，输入当前cell格中的内容，并且选中所有文本。当用户要按下按键进

第21页（共22页）

VB学习资料 Msflexgrid控件

行输入时，就直

接调用txtvalue的事件，由文本框来处理.

处理的结果同grid的当前cell同步，使用户编辑cell格就象使用文本框一样方便。

网格单元格中文字的多行显示很简单，只要把WordWarp属性改为True就可以了。

引用：

1、msflexgrid中如何在运行是实现调整每一列的宽度，好象 colwidth没用？

2、如何在特定的行列（如（2，3））中加入图片？

3、在动态添加记录时为了将新加入的选中，使用了...RowSel=i，结果随着记录增加，选中的也增加。（属性窗体中用了felxselectbyrow）。如何仅选中新加的记录？

1用colwidth

2用cellpicture

3用RowPosition将加入的放在上面

第22页（共22页）