在VB 6中用组合框编辑Flex网格
Form1:主要形式 Form2:英语 对此:阿拉伯语 介绍 使用漂亮的VB6，我尝试编辑一些类似发票的东西，我发现数据网格不熟悉编辑表，Flex网格也没有方法来编辑。现在我使用(MSFlexGrid)控件、一个隐藏的文本框和一个隐藏的组合框创建ActiveX控件。我给我的ActiveX的名字(VB6Flexgrid)。我创建一个项目(prjFlexGrid)来测试我的控件。我在Visual Basic 6下编写代码。与我的ActiveX控制，你可以: 编辑flex网格中的任何单元格删除任何行删除所有行并以一行开始向任何列添加组合框并使用多个向任何单元格写入数据从任何单元格读取数据从网格读取所有数据 背景 当使用我的ActiveX控件(VB6Flexgrid)时，flex网格以一行作为数据网格控件，然后在编辑前一行后逐行增加。我的ActiveX控件有一些方法和一些属性: 方法/属性 定义 例子 获取或设置单元格(row, col)的字符串VB6Flexgrid1.ColWidth(1) = 1500TextMatrix(anyRow, anyCol)TextMatrix(3,2) = " VB6 " CellType anyCol, BLet列包括组合框如果B = TrueVB6Flexgrid1。CellType 3, TrueComboClear anyColClear组合boxVB6Flexgrid1。ComboClear 3ComboAddItem anyCol, anyStringAdd项目组合boxVB6Flexgrid1。“Visual Studio”DelRowDelete current rowVB6Flexgrid1。DelRowDelAllClear gridVB6Flexgrid1.DelAll的 要使用我的ActiveX (VB6Flexgrid)，您必须添加文件VB6Flexgrid。ocx和MicrosoftFlexGrid控件到“工具箱”如下: 单击“工具箱”，然后选择组件。在“组件”对话框中，选择microsoftflexgrid控件6.0。点击“浏览”，然后选择“VB6FlexGrid”。ocx ' ActiveX控件从您已保存的地方，然后单击'确定'。 使用的代码 关于列: 隐藏,复制Code
' Set number of columns: VB6Flexgrid1.FixedCols = 0 ' if you do not need fixed columns VB6Flexgrid1.Cols = 5 ' number of columns ' Set width of column: VB6Flexgrid1.ColWidth(1) = 1500 ' width in Twip ' Set alignment of column (You can change many using loop) VB6Flexgrid1.ColAlignmentHeader(1) = flexAlignCenterCenter ' alignment of fixed row, column #1 (to Center) VB6Flexgrid1.ColAlignment(1) = flexAlignLeftCenter ' alignment column #1 (to Left)
关于组合框: 隐藏,复制Code
' Set combo box at any column: VB6Flexgrid1.CellType 3, True ' combo box at column #3 VB6Flexgrid1.ComboClear 3 ' clear this combo VB6Flexgrid1.ComboAddItem 3, „Visual Studio" ' add item to this combo
关于电池: 隐藏,复制Code
' Send data to any cell: VB6Flexgrid1.TextMatrix(2, 3) = „VB6" ' Read any cell: DimstrCellAs String strCell = VB6Flexgrid1. TextMatrix(3, 2)
您可以返回到项目的源文件(prjFlexGrid)，以阅读比前面示例更多的内容。 讲话 当提取文件VBFlexGrid。zip文件，你可以找到:..VBFlexGridActiveXcontrolVB6Flexgrid。ocx，在文件夹中找到测试ActiveX控件的项目:.. VBFlexGrid。 这个项目有三种形式: Form1:选择语言 表格2:英语 Form3:用于阿拉伯语 Form2和Form3有相同的控件: ActiveX控件(VB6Flexgrid1)添加文件VB6Flexgrid.ocx 按钮控件(btnDelOne)用于删除一行 用于清除网格的按钮控件(btnDelAll) 按钮控件(btnWriteCell)将数据写入第一个单元格 读取当前单元格的按钮控件(btnReadOne) 按钮控件(btnReadAll)用于将所有数据从网格复制到列表框 按钮控件(btnExit)关闭窗体 列表框控件(lstAllData)保存来自网格的数据 最后一句话 我希望本文能够帮助您创建应用程序。如果你有任何想法或发现任何问题，请告诉我。感谢CodeProject，也感谢所有人。 ——Mostafa Kaisoun 本文转载于：http://www.diyabc.com/frontweb/news2327.html