当前位置：文档之家 › VB中MSHFlexGrid用法详解

VB中MSHFlexGrid用法详解

  • 格式：pdf
  • 大小：223.67 KB
  • 文档页数：15
MSHFlexGrid 用法详解
发布者：51编程网发布时间：2009-6-11 17:58:22浏览总数
添加 MSHFlexGrid 将 Name 改成 flex1
添加 text 将 name 改成 txtedit
Public rs1 As New ADODB.Recordset, rs2 As New ADODB.Recordset 据集对象 Dim i As Integer, j As Integer
End If End Sub ''添加下列例程以初始化文本框，并将焦点从 Hierarchical FlexGrid 传递到 TextBox 控 件： Sub MSHFlexGridEdit(MSHFlexGrid As Control, Edt As Control, KeyAscii As Integer)
End Sub
Private Sub lblSum_Click()
End Sub
Private Sub txt1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn And Index = 0 Then
Val(flex1.TextMatrix(flex1.Row, 5))
flex1.TextMatrix(flex1.Row, 6) = Format(flex1.TextMatrix(flex1.Row, 6),
"0.00")
End If
Dim A, B As Single
''声明单精度浮点型变量
On Error Resume Next
''求合计金额
B = Val(flex1.TextMatrix(i, 4)) + B
''求合计数量
End If
Next i
lblCount = B
lblSum = Format(A, "0.00")
''格式化合计金额
End Sub
Sub SetButtons(bVal As Boolean)
cmdRegister.Enabled = Not bVal
''定义数
Sub EditKeyCode(MSHFlexGrid As Control, Edt As Control, KeyCode As Integer,
Shift As Integer)
''标准编辑 控件处理。
Select Case KeyCode
Case 27
''ESC:隐藏焦点并将其返回 MSFlexGrid
''设置列标头。
s$ = "^|^商品名称
|^规格
|^单位
|^数量
|^进货价
|^金额
|^备注
"
flex1.FormatString = s$
End Sub
Private Sub flex1_KeyPress(KeyAscii As Integer)
If flex1.Col >= 4 Or flex1.Col = 1 Then MSHFlexGridEdit flex1, txtEdit, KeyAscii
''使用已输入的字符。 Select Case KeyAscii
''空格表示编辑当前的文本。 Case 0 To 32
Edt = MSHFlexGrid Edt.SelStart = 1000 ''其它所有字符表示取代当前的文本。 Case Else Edt = Chr(KeyAscii) Edt.SelStart = 1 End Select ''在合适的位置显示 Edt。 Edt.Move MSHFlexGrid.Left + MSHFlexGrid.CellLeft - 15, _ MSHFlexGrid.Top + MSHFlexGrid.CellTop - 15, _ MSHFlexGrid.CellWidth, _ MSHFlexGrid.CellHeight
''删除回车符，以消除嘟嘟声。 If KeyAscii = Asc(vbCr) Then KeyAscii = 0 End Sub Private Sub txtEdit_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn And flex1.Col = 1 Then
Edt.Visible = True
Edt.SetFocus
End Sub
Private Sub flex1_DblClick()
If flex1.Col >= 4 Or flex1.Col = 1 Then
MSHFlexGridEdit flex1, txtEdit, 32
''模拟一个空格。
End If
txt1(0) = Adodc1.Recordset.Fields( "供应商全称") txt1(1).SetFocus DataGrid1.Visible = False End If End Sub Private Sub txtEdit_KeyPress(KeyAscii As Integer)
DoEvents
If MSFlexGrid.Row > MSFlexGrid.FixedRows Then
MSFlexGrid.Row = MSFlexGrid.Row - 1
End If
End Select
End Sub
Sub view_DP()
If flex1.Col = 4 Or flex1.Col = 5 Or flex1.Col = 6 Then
Private Sub flex1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As
Single)
''利用 PopupMenu 方法
If Button And vbRightButton Then
PopupMenu edit
Edt.Visible = False
MSHFlexGrid.SetFocus
Case 13
''ENTER 将焦点返回 MSFlexGrid。
MSHFlexGrid.SetFocus
DoEvents
If MSHFlexGrid.Col < MSHFlexGrid.Cols - 1 Then
MSHFlexGrid.Col = MSHFlexGrid.Col + 1
Else
If MSHFlexGrid.Col = MSHFlexGrid.Cols - 1 Then
MSHFlexGrid.Row = MSHFlexGrid.Row + 1
MSHFlexGrid.Col = 1
End If
End If
Case 38
''向上
MSHFlexGrid.SetFocus
Adodc2.RecordSource = "商品信息表 where 商品名称 like +''%''+''" + txtEdit + "''+''%''"
Adodc2.Refresh If Adodc2.Recordset.RecordCount > 0 Then
DataGrid2.Visible = True DataGrid2.SetFocus Else Adodc2.RecordSource = "商品信息表" Adodc2.Refresh If Adodc2.Recordset.RecordCount > 0 Then
''弹出菜单
End If
End Sub
Private Sub Form_Load()
Dim i As Integer
''使第一列较窄。
flex1.ColWidth(0) = flex1.ColWidth(0) / 2
''初始化编辑框
txtEdit = ""
flex1.Rows = 101
flex1.Cols = 8
Adodc1.RecordSource = "供应商信息表 where 供应商编号 like +''%''+''" +
txt1(0) + "''+''%''or 供应商全称 like +''%''+''" + txt1(0) + "''+''%''or 简称 like
+''%''+''" + txt1(0) + "''+''%''"
Else MsgBox "无可选的供应商信息，请首先录入供应商数据！", , "提示窗口"

合集下载

VBMSFlexGrid控件的几种使用方法

VBMSFlexGrid控件的几种使用方法

VBMSFlexGrid控件的几种使用方法'MSFlexGrid赋值的方法MSFlexGrid1.TextMatrix(0, 1) = "老师"MSFlexGrid1.TextMatrix(1, 2) = "学生"MSFlexGrid1.TextMatrix(2, 3) = "校长"MSFlexGrid1.TextMatrix(3, 4) = "班主任"MSFlexGrid1.TextMatrix(4, 5) = "教务主任"MSFlexGrid1.AddItem 2MSFlexGrid1.AddItem 4MSFlexGrid1.AddItem 6MSFlexGrid1.AddItem 8``MSFLEXGRID 中如何取的某个单元格的数据Private Sub MSFlexGrid1_Click()MsgBox MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, MSFlexGrid1.Col), vbOKOnly, "提示消息"End SubMSFlexGrid1.Row,表格中的当前行MSFlexGrid1.Col,表格中的当前列'初始化MSFlexGridDim i As IntegerMSFlexGrid1.Rows = 0For i = 0 To 10MSFlexGrid1.AddItem "AA" + Str(i)'For i = 0 To 10MSFlexGrid1.Col = 1MSFlexGrid1.Row = iMSFlexGrid1.Text = CStr(i)MSFlexGrid1.Col = 2MSFlexGrid1.Row = iMSFlexGrid1.Text = CStr(i) & CStr(i)MSFlexGrid1.Col = 3MSFlexGrid1.Row = iMSFlexGrid1.Text = CStr(i) & CStr(i) & CStr(i)Next i'实现MSFlexGrid控件，单行背景为浅灰，双行为兰色Dim j As IntegerWith MSFlexGrid1.AllowBigSelection = True ' 设置网格样式.FillStyle = flexFillRepeatFor j = 0 To .Rows - 1.Row = j: .Col = .FixedCols.ColSel = .Cols() - .FixedCols - 1If j Mod 2 = 0 Then.CellBackColor = &HC0C0C0 ' 浅灰Else.CellBackColor = vbBlue ' 兰色End IfNext jEnd With'在MsFlexGrid控件单元格中插入背景图形Set MSFlexGrid1.CellPicture = LoadPicture("f:\temp\snow.bmp")'MSFlexGrid控件如何移到最后一行MSFlexGrid1.TopRow = MSFlexGrid1.Rows - 1'隐藏第一行'Private Sub Command1_Click1()'MSFlexGrid1.RowHeight(1) = 0'End Sub'隐藏第一列'Private Sub Command_Click2()'MSFlexGrid1.ColWidth(1) = 0'End Sub在MSFlexGrid上点击右键，选择属性，选择"选择模式",自己任选点击得到行代码msgrid1.Col就是你选择的列号msgrid1.Row 就是你选择的行号msgrid1.text就是你选择单元格的内容。

VB数据库编程中MSHFlexGrid控件用法详解

VB数据库编程中MSHFlexGrid控件用法详解

VB数据库编程中MSHFlexGrid控件用法详解添加MSHFlexGrid将Name改成flex1添加text 将name 改成txteditPublic rs1 As New ADODB.Recordset, rs2 As New ADODB.Recordset '定义数据集对象Dim i As Integer, j As IntegerSub EditKeyCode(MSHFlexGrid As Control, Edt As Control, KeyCode As Integer, Shift As Integer)'标准编辑控件处理。

Select Case KeyCodeCase 27 'ESC:隐藏焦点并将其返回MSFlexGridEdt.V isible = FalseMSHFlexGrid.SetFocusCase 13 'ENTER 将焦点返回MSFlexGrid。

MSHFlexGrid.SetFocusDoEventsIf MSHFlexGrid.Col < MSHFlexGrid.Cols - 1 ThenMSHFlexGrid.Col = MSHFlexGrid.Col + 1ElseIf MSHFlexGrid.Col = MSHFlexGrid.Cols - 1 ThenMSHFlexGrid.Row = MSHFlexGrid.Row + 1MSHFlexGrid.Col = 1End IfEnd IfCase 38 '向上MSHFlexGrid.SetFocusDoEventsIf MSFlexGrid.Row > MSFlexGrid.FixedRows ThenMSFlexGrid.Row = MSFlexGrid.Row - 1End IfEnd SelectEnd SubSub view_DP()If flex1.Col = 4 Or flex1.Col = 5 Or flex1.Col = 6 Then'格式化Flex1表的第7列、第8列、第9列、第11列flex1.TextMatrix(flex1.Row, 5) = Format(flex1.TextMatrix(flex1.Row, 5), "0.00")flex1.TextMatrix(flex1.Row, 6) = V al(flex1.TextMatrix(flex1.Row, 4)) * V al(flex1.TextMatrix(flex1.Row, 5))flex1.TextMatrix(flex1.Row, 6) = Format(flex1.TextMatrix(flex1.Row, 6), "0.00") End IfDim A, B As Single '声明单精度浮点型变量On Error Resume NextFor i = 1 To flex1.Rows - 1If flex1.TextMatrix(i, 1) <> "" And flex1.TextMatrix(i, 4) <> "" And flex1.TextMatrix(i, 6) <> "" ThenA = V al(flex1.TextMatrix(i, 6)) + A'求合计金额B = V al(flex1.TextMatrix(i, 4)) + B '求合计数量End IfNext ilblCount = BlblSum = Format(A, "0.00") '格式化合计金额End SubSub SetButtons(bV al As Boolean)cmdRegister.Enabled = Not bV alcmdSave.Enabled = bV alcmdCancel.Enabled = bV alflex1.Enabled = bV alFrame1.Enabled = bV alEnd SubPrivate Sub DataGrid2_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = vbKeyReturn ThenWith Adodc2.Recordset'赋值给flex1表格If .Fields("商品名称") <> "" Then flex1.TextMatrix(flex1.Row, 1) = Trim(.Fields("商品名称"))If .Fields("规格") <> "" Then flex1.TextMatrix(flex1.Row, 2) = Trim(.Fields("规格"))If .Fields("单位") <> "" Then flex1.TextMatrix(flex1.Row, 3) = Trim(.Fields("单位"))flex1.TextMatrix(flex1.Row, 5) = .Fields("成本价")End Withflex1.Col = 4DataGrid2.Visible = False 'DataGrid2不可见txtEdit.Text = ""txtEdit.SetFocusEnd IfIf KeyCode = vbKeyEscape Then '按ESC键DataGrid2不可见DataGrid2.Visible = False' txtEdit.SetFocus 'txtEdit获得焦点End IfEnd SubPrivate Sub delone_Click()For i = 1 To flex1.Cols - 1flex1.TextMatrix(flex1.Row, i) = ""Next iview_DPEnd SubPrivate Sub flex1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)'利用PopupMenu方法If Button And vbRightButton ThenPopupMenu edit '弹出菜单End IfEnd SubPrivate Sub Form_Load()Dim i As Integer'使第一列较窄。

VB MSHFlexGrid控件

VB MSHFlexGrid控件

Microsoft Hierarchical FlexGrid (MSHFlexGrid) 控件对表格数据进行显示和操作。

在对包含字符串和图片的表格进行分类、合并以及格式化时，具有完全的灵活性。

当绑定到Data控件上时，MSHFlexGrid所显示的是只读数据。

语法MSHFlexGrid说明可以将文本、图片，或者文本和图片，放在MSHFlexGrid的任意单元中。

Row和Col属性指定了MSHFlexGrid中的当前单元。

程序员可以在代码中指定当前单元，也可以在运行时（代码正在运行的期间。

在运行期间，程序员象用户一样与代码进行交互。

），使用鼠标或者方向键来对其进行修改。

Text属性引用当前单元的内容。

如果单元的文本过长而不能在该单元中显示，而且WordWrap属性被设置为True，那么文本就会换行到同一单元内的下一行。

为了显示换行的文本，可能需要增加单元的列宽度（ColWidth属性）或者行高度（RowHeight属性）。

可以用Cols和Rows属性来决定MSHFlexGrid控件中的列数和行数。

显示层次结构记录集MSHFlexGrid 控件的一个主要特性是它能显示层次结构记录集-以层次结构方式显示的关系表。

创建层次结构记录集的最容易的方法是使用数据环境设计器并把MSHFlexGrid控件的DataSource属性赋给数据环境。

您也可以用 Shape 命令作为ADO Data Control的RecordSource在代码中创建层次结构记录，如下面的示例:' 创建 ConnectionString.Dim strCn As StringstrCn = "Provider=MSDataShape.1;Data Source=Nwind;" & _"Connect Timeout=15;Data Provider=MSDASQL"' 创建 Shape 命令.Dim strSh As StringstrSh = "SHAPE {SELECT * FROM `Customers`} AS Customers " & _ "APPEND ({SELECT * FROM `Orders`} AS Orders RELATE " & _ "CustomerID TO CustomerID) AS Orders"' 把 ConnectionString 赋给 ADO Data Control 的' ConnectionString 属性, Shape 命令以及' 控件的 RecordSource 属性.With Adodc1.ConnectionString = strCn.RecordSource = strShEnd With' 把 HflexGrid 控件的 DataSource 属性设置到' ADO Data 控件。

mshflexgrid单元格数据类型

mshflexgrid单元格数据类型

【主题】mshflexgrid单元格数据类型一、简介mshflexgrid作为Visual Basic中常用的控件之一，其灵活性和多功能性备受开发者青睐。

在mshflexgrid中，单元格数据类型的设置对于数据显示和处理起着非常重要的作用。

在本文中，我将对mshflexgrid单元格数据类型进行深入探讨，并共享我对这一主题的个人观点和理解。

二、常见的单元格数据类型1. 文本型（String）在mshflexgrid中，文本型是最常见的数据类型之一。

它用于显示和处理文本数据，例如人名、位置区域等。

在使用mshflexgrid时，我们需要确保正确地设置单元格为文本型数据，以便正确显示和处理文本内容。

2. 数值型（Numeric）另一个常见的数据类型是数值型，它用于显示和处理各种数值数据，例如价格、数量等。

在使用mshflexgrid时，我们需要根据实际情况正确地设置单元格为数值型数据，以避免数据显示错误或无法进行数值计算。

3. 日期型（Date）除了文本型和数值型，日期型也是常见的单元格数据类型之一。

在需要显示日期和时间的情况下，我们需要将单元格设置为日期型数据，以确保正确显示和处理日期时间数据。

4. 布尔型（Boolean）在某些情况下，我们需要显示和处理布尔类型的数据，例如“是”、“否”等。

在mshflexgrid中，我们可以将单元格设置为布尔型数据，以便进行布尔计算和正确显示布尔值。

5. 自定义类型（Custom）除了以上常见的数据类型外，mshflexgrid还支持自定义类型的单元格数据。

在使用自定义类型时，我们需要充分了解并正确设置单元格的数据类型，以确保正确显示和处理自定义类型的数据。

三、单元格数据类型的设置1. 在mshflexgrid中，我们可以通过代码来设置单元格的数据类型，例如：```FlexGrid.Cols(1).DataType = flexDTDate```通过上述代码，我们可以将第二列的数据类型设置为日期型。