msflxgrd.ocx？关于msflxgrd.ocx的一些问题
大家好，今天我将为大家揭秘msflxgrd.ocx和关于msflxgrd.ocx的一些问题的奥秘，希望我的分享能给你带来新的启发和知识。
MSFlexGrid注册失败问题
因为你运行的电脑上没有注册MSFlexGrid控件~但是你开发程序的电脑上装了开发工具就已经注册好了~你到C:\Windows\System32目录~把MSFLXGRD.DEP以及MSFLXGRD.OCX拷贝到你要运行你程序的C:\Windows\System32目录下~然后注册MSFlexGrid控件就OK了~注册控件方法:开始--运行~输入regsvr32 Msflxgrd.ocx~当然~最好是用打包工具自动注册~你先试试吧~不行再说~
呵呵~你一开始就说清楚嘛~打包时候注册也是可以的~但是我是在VC中注册的~也成功了~但是有点麻烦~在程序中打包好像还要授权的~VB可能有点不一样吧~没试过~如果你不想麻烦的话就在VB生成运行程序后用安装文件制作工具把程序做成一个安装包~在安装包里设置安装时自动注册~那样是最简单的~
Win7使用IE浏览器提示Msflxgrd.OCX不能注册怎么办
一位Win7纯净版系统用户使用IE浏览器的时候出现“运行时错误‘339’组件‘MSFLXGRD.OCX’不能正确注册：文件丢失或无效”的提示（如下图所示），许多新手用户一时之间不知道该怎么处理了，为帮助广大用户解决此问题，大家一起看下Win7使用IE浏览器提示“Msflxgrd.OCX不能注册”的解决方法吧。
下载软件：Msflxgrd.OCX
如何注册Msflxgrd.OCX？
手动复制Msflxgrd.ocx到：
32位：C:\Windows\System32
64位：C:\Windows\SysWOW64
运行：regsvr32.exeMsflxgrd.OCX即可；
若是弹出错误提示“请确保二进制存储在指定的路径中”，请检查下方注意点；
1、检查Msflxgrd.ocx的依赖项，不缺少；
2、搜索关键字“请确保该二进制存储在指定的路径中”，有网友说是缺少VS运行库，但是我采用的是静态编译，并且Msflxgrd.OCX的依赖项也没有问题。
以上教程帮助大家解决Win7使用IE浏览器提示“Msflxgrd.OCX不能注册”的问题，同样的方法，可以解决DLL文件丢失的问题，唯一不同的是文件名。
关于msflxgrd.ocx的一些问题
那个组件或者他的某个部分没有正确注册，文件丢失或损坏……可能下载的时候出现了错误，可以重新下一回，如果还不行的话，可能是这个软件本身有问题，或者带有病毒，杀下毒也可以的。如果还是不行的话。。。难道是你自己电脑的系统有点儿问题…出现以前我的电脑硬盘坏了也是了类似的提示，结果换了硬盘…有是电脑系统跟某些软件的部分程序不兼容也会引起无法正确注册，比如WIN7或VISTA就有些与XP能用的程序不兼容，可以去下相关兼容包，其他的我就不清楚了，不好意思哈！
vc2008 MFC中怎么使用msflexgrid控件
MsFlexGrid用法大全(转) 2011-05-26 15:13:45|分类：软件技术VC2008|标签：|字号大中小订阅.
注意：MsFlexGrid控件是Visual Studio Basic 6.0中的，所以MSDN2008查不到，只能到MSDN 6.0中找。
------------------------------------------------------------------------------------------------------
MSFlexGrid和MSHFlexGrid之间的区别，主要是后者支持ADO的层次显示。如果你不使用ADO，可以考虑MSFlexGrid，否则建议使用MSHFlexGrid。
------------------------------------------------------------------------------------------------------
VB中MsFlexGrid控件的使用细则(收集)
>>将文本赋值给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
将MsFlexGrid控件的内容输出到文本
2004-03-19 14:25:18
'OutDataToText
'将MsFlexGrid控件中显示的内容输出到文本文件
Public Sub OutDataToText(Flex As MSFlexGrid)
Dim s As String
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
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:
MsgBox Err.Description
Me.MousePointer= 0
End Sub
增加 MsFlexGrid的编辑功能
（作者：佚名加载日期: 2002/3/31）
概述
MsFlexGrid控件没有提供文本编辑的功能，下面的例子演示了如何利用一个TextBox实现编辑当前网格的功能
。
在按下一个键后，就把TextBox移动到当前的位置，并激活。在键入回车或移动到其他网格时，
就把TextBox中的内容放到网格中。
实现步骤
1打开 VB5，开启一个新的工程。
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
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
' 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过程：
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.
' 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操作函数
''合并列
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"对不起，行列设置错误！", vbOKOnly, App.Title
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
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"对不起，行列设置错误！", vbOKOnly, App.Title
MergeRow= False
Exit Function
End If
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"对不起，行列设置错误！", vbOKOnly, App.Title
faIndex=-1
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"对不起，行列设置错误！", vbOKOnly, App.Title
SetItem= False
Exit Function
End If
GridObj.TextArray(faIndex(GridObj, row, col))= SetValue
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"对不起，行列设置错误！", vbOKOnly, App.Title
GetItem=""
Exit Function
End If
GetItem= GridObj.TextArray(faIndex(GridObj, row, col))
End Function
在msflexgrid控件中每一个cell格的内容是不可以由用户直接编辑的但是我们可以通过一些小技
巧来方便的实现这编辑功能来扩展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事件中加入下例代码
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格中的内容，并且选中所有文本。当用户要按下按键进行输入时，就直
接调用txtvalue的事件，由文本框来处理
OK，关于msflxgrd.ocx和关于msflxgrd.ocx的一些问题的内容到此结束了，希望对大家有所帮助。