VB表格控件总览与例程分析

.表格控件总览:

    VB开发环境中,表格控件在界面开发元素中占有重要的地位。它不仅有外观整洁、表达形式规范的优点,而且更重要的是它较高的信息表现率(就是相对于其他控件来说能够表达更多的信息),随着信息时代的到来,它的应用将更加的广泛。

    那么在VB平台下,如何操作这一功能强大的控件元素呢?事实上我们知道,VB平台下面的表格控件是相当丰富的,总结下来提供了4种类型:Microsoft Data Bound grid ControlMicrosoft Datagrid ControlMicrosoft Flexgrid ControlMicrosoft Hierarchial Flexgrid Control.

    这四种表格各有其特点,下面我们一一讨论。

    1 Microsoft Data Bound grid Control

    此控件主要用于数据绑定(可以不绑定,但是因为不提供对单个cell的控制支持,所以实际上这样做是不经济的)。具体说来,就是数据源比较固定的情况下可以使用这种控件。

    具体使用方法是设定此控件的datasource属性,就可以不用编写任何代码就可以显示该数据源所指向的记录数据。比如可以将datasource设置为一个data控件,而data控件又指向数据库"成绩" 一个"语文"表,那么当程序运行时,它就自动显示此"语文"表的数据。

    从上面的分析看得出来,这个控件虽然操作方便,但是它也有局限性,就是不能对显示的数据进行灵活的控制操作,比如有些数据允许用户修改,有些数据却不允许用户修改,而此控件却只能提供全部数据源的原子操作:即要么全部允许修改,要么就全部不允许。还有另外此控件也不提供对单个单元格(cell)进行操作,所以提供不了更为个性化的界面风格。

    2 Microsoft Datagrid Control

    此控件跟前面介绍的Data Bound grid Control控件很相似,也是主要进行绑定操作,而缺点和Data Bound grid Control完全一样。但是它跟Data Bound grid Control不一样的是其数据源的驱动引擎只能是OLEDB形式的,不能是DAO,比如就可以使用ADO数据控件,不能使用DATA控件。而Data Bound grid Control却刚好和它相反,这一点在开发中一定要注意。

    3 Microsoft Flexgrid ControlMicrosoft Hierarchial Flexgrid Control.

    这里重点介绍这两种控件,因为在实际开发中,这两种控件应用的场合更多一些,它不仅能够反映数据,而且也能把数据的修改信息反映到数据库中去,所以弥补了上述两种控件的不足。

    如果数据不需要修改,那么可以进行绑定操作,其方法跟前面介绍的完全一样,就是通过设置DataSource属性来完成数据的显示工作。但是实际开发中,需要对整个表格控件更为灵活的显示控制。

    在给出例程之前,有必要对这一控件进行比较详尽的认识:这种控件允许将文本或者图象放置于每个单元格之中,控件的RowCol属性允许用户在代码中指定当前行和列,当然也可通过操作鼠标和键盘来改变这两个属性,而text属性指明当前单元格的文本。如果单元格的文本太长而不能完全显示出来的话,可以通过将WordWrap属性设置为true来达到显示的目的。下面将比较重要的属性小结如下:

    DataSource---------用来指定需要绑定的数据源,比如data控件。

    Cellpicture----------用来设定当前单元格的图象,便于显示该图象。此属性不能在设计时使用。

    ColRow---------------设定当前列和当前行,注意它们均是从0开始的,如果同时设定它们,可以指定当前的单元格。设计时也不能使用。

    ColsRows---------------设置表格控件总的列数和行数。

    Hwnd---------------表格句柄,可以结合Windows API对表格控件进行更高级的控制。

    Text ---------------指定当前的单元格的文本内容?

    TextMatrix(i,j)-------此属性比较重要,它用来指定第I行和第j列所确定的单元格的文本内容。它等价于下面的代码:

    MSHFlexGrid1.Rows = i

    MSHFlexGrid1.Cols = j

    MSHFlexGrid1.Text = 指定的字符串

    WordWrap-------ture时可以在当前单元格换行显示,否则如果要显示的字符的长度超过列宽,那么就不能显示完全。

    .例程分析:

    以上只是介绍了表格控件经常使用的属性,还有很多其他重要的属性这里限于篇幅就不一样讲解了,如果读者有兴趣的话可以参考MSDN上相关的内容的介绍,下面我这里提供一个例程来巩固前面的知识内容。

    例程是使用Flexgrid 控件(由于Data Bound gridDatagrid比较简单,所以这里就不再介绍了),如果大家手头上用的是MSHFlexgrid控件的话,只需要把名称换为MSFlexGrid1即可。该例程主要实现后台数据库的显示工作,其界面如下:

    

    主要代码如下:

    Dim lastrow% '最后一次鼠标点击的行

    Dim lastcol% '最后一次鼠标点击的列

    Private Sub Command1_Click()

        MsgBox Data1.Database.Recordsets.Count

    End Sub

    Private Sub Form_Load()

        '初始化数据

        Click = False

        lastrow = 1

        lastcol = 1

        '初始化data控件,进行绑定显示的初始化

        Data1.DatabaseName = App.Path & "\db1.mdb"

        Data1.RecordSource = "成绩表"

        '进行非绑定显示

        Data1.Refresh

        Data1.Recordset.MoveFirst

        MSFlexGrid2.Rows = Data1.Database.Recordsets.Count + 1 '设置总行数

        MSFlexGrid2.Cols = Data1.Recordset.Fields.Count + 1 '设置总列数

        MSFlexGrid2.GridColor = vbBlue '网格颜色

        MSFlexGrid2.ForeColor = vbRed '字体颜色

        MSFlexGrid2.GridLines = 1 '设置网格线的属性

        MSFlexGrid2.GridLineWidth = 2 '设置网格线的粗细程序,默认为1

        MSFlexGrid2.ToolTipText = "非绑定显示" '设置工具提示文本

        MSFlexGrid2.BackColorSel = vbGreen '单元格被选中的颜色

        Dim i%

        Dim j%

        '设置列头文本

        For i = 1 To MSFlexGrid2.Cols - 1

            MSFlexGrid2.TextMatrix(0, i) = Data1.Recordset.Fields(i - 1).Name

        Next i

        '设置数据

        For i = 1 To MSFlexGrid2.Rows - 1 '控制行

            For j = 1 To MSFlexGrid2.Cols - 1 '控制列

                MSFlexGrid2.TextMatrix(i, j) = Data1.Recordset.Fields(j - 1).Value

            Next j

            Data1.Recordset.MoveNext

        Next i

        '设置当前单元格的图象信息

        MSFlexGrid2.Col = 0

        MSFlexGrid2.Row = 2

        Set MSFlexGrid2.Cellpicture = LoadPicture(App.Path & "\cell.bmp")

    End Sub

    '实现鼠标点击一个单元格的背景颜色的改变功能

    Private Sub MSFlexGrid2_Click()

        MSFlexGrid2.Row = lastrow

        MSFlexGrid2.Col = lastcol

        MSFlexGrid2.CellBackColor = vbWhite

        MSFlexGrid2.Row = MSFlexGrid2.MouseRow

        MSFlexGrid2.Col = MSFlexGrid2.MouseCol

        MSFlexGrid2.CellBackColor = vbCyan

        lastrow = MSFlexGrid2.Row

        lastcol = MSFlexGrid2.Col

    End Sub

    要在不绑定数据的情况下实现编辑修改的功能,如果对控件不进行改进是无法达到目的的。这里实现的思路是首先判断光标(或者说焦点)在哪个单元格上,然后在在单元格的范围内动态创建一个文本框(不过在vb平台下,可以考虑先在设计时放置一个不可见的文本框,然后通过move方法将其放置到当前单元格并且显示它即可达到相同的目的),其大小正好可以把此单元格给覆盖掉,然后就可以把原来的文本信息附给该文本框,这样就可以直接在文本框内进行编辑修改操作,从而实现了单元格的编辑修改功能,依据这个思想来可以在单元格里面创建下拉列表框,复选框等控件。其实现的核心代码如下:

    '实现编辑功能

    Private Sub MSFlexGrid3_DblClick()

        Text1.Visible = False

        '如果初次双击,那么就执行如下代码

        If firstclick = True Then

            lastclickrow = MSFlexGrid3.Row

            lastclickcol = MSFlexGrid3.Col

            Text1.Text = MSFlexGrid3.TextMatrix(lastclickrow, lastclickcol)

        End If

        '将文本框放置到当前单元格处

        Dim LeftOfText% '文本框的left属性

        Dim TopOfText% '文本框的top属性

        Dim selrow% '当前行

        Dim selcol% '当前列

        selrow = MSFlexGrid3.Row

        selcol = MSFlexGrid3.Col

        LeftOfText = Frame3.Left + MSFlexGrid3.Left + MSFlexGrid3.ColPos(selcol) + 45

        TopOfText = Frame3.Top + MSFlexGrid3.Top + MSFlexGrid3.RowPos(selrow) + 45

        Text1.Move LeftOfText, TopOfText, 930, 200

        Text1.Visible = True

        '如果不是初次双击,那么就执行如下代码

        If firstclick = False Then

            MSFlexGrid3.TextMatrix(lastclickrow, lastclickcol) = Text1.Text

            lastclickrow = MSFlexGrid3.Row

            lastclickcol = MSFlexGrid3.Col

        End If

        Text1.Text = MSFlexGrid3.TextMatrix(selrow, selcol)

        '已经不是第一次进行双击操作

        firstclick = False

    End Sub

    .小结:

       数据表格控件在实际运用用还有很多技巧,只有不断的在实际编程中积累经验才能达到灵活运用的功效。

摘自:网络整理

相关参考

vb用数组方式快速导出MSFlexGrid表格数据到Excel表格中

VB用记录集填充表格函数

VBMSHFlexGrid添加表格编辑功能

相关

参考

关于三个概念:ActiveXOLECOM

注册ActiveX控件的几种方法() 分享

VB 单击ListView控件某列表头进行排序


控件关文章:


VB表格控件总览与例程分析

VB 设置控件边框颜色(如:ListTextPicture)

VB控件注册 - 利用资源文件将dllocx打包进exe文件

VB的,经常注册和反注册OCX控件和DLL

VB表格控件总览与例程分析

根据窗体自动调整窗体内控件大小 注:实用,可以直接引用

用户控件制作讲解与实例

VB制作OCX控件的步骤

【引用】窗口处理技巧大全 vb(窗体控件)

VB让控件可以当标题栏拖动

VB 调用腾讯截图控件CameraDLL.dll

VB表格控件总览与例程分析

VB表格控件总览与例程分析

Mp3Play.ocx控件让音乐之声响起来

为系统加载右键注册控件选项【VB 注册控件】

VBMsFlexGrid控件的使用细则

点击MSFlexGrid数据控件的标题进行数据排序


  • 0
    点赞
  • 0
    评论
  • 3
    收藏
  • 打赏
    打赏
  • 扫一扫,分享海报

表格控件总览:   在VB开发环境中,表格控件在界面开发元素中占有重要的地位。它不仅有外观整洁、表达形式规范的优点,而且更重要的是它较高的信息表现率(就是相对于其他控件来说能够表达更多的信息),随着信息时代的到来,它的应用将更加的广泛。    那么在VB平台下,如何操作这一功能强大的控件元素呢?事实上我们知道,VB平台下面的表格控件是相当丰富的,总结下来提供了4种类型:Microsoft Data Bound grid Control、Microsoft Datagrid Control、Microsoft Flexgrid Control、Microsoft Hierarchial Flexgrid Control. 这四种表格各有其特点,下面我们一一讨论。   1. Microsoft Data Bound grid Control   此控件主要用于数据绑定(可以不绑定,但是因为不提供对单个cell的控制支持,所以实际上这样做是不经济的)。具体说来,就是数据源比较固定的情况下可以使用这种控件。   具体使用方法是设定此控件的datasource属性,就可以不用编写任何代码就可以显示该数据源所指向的记录数据。比如可以将datasource设置为一个data控件,而data控件又指向数据库"成绩"的 一个"语文"表,那么当程序运行时,它就自动显示此"语文"表的数据。 基本步骤如下: 1、向工程上添加Microsoft Data Bound Grid Control控件,即DBGrid控件。 2、在窗体上添加DBGrid控件DBGrid1和Data控件Data1。 3、设置Data1的DatabaseName属性为你要看的数据库的名字。 4、设置Data1的RecordSource属性为表的名字或合法的SQL Select语句。 5、设置DBGrid1的DataSource属性为Data1。   从上面的分析看得出来,这个控件虽然操作方便,但是它也有局限性,就是不能对显示的数据进行灵活的控制操作,比如有些数据允许用户修改,有些数据却不允许用户修改,而此控件却只能提供全部数据源的原子操作:即要么全部允许修改,要么就全部不允许。还有另外此控件也不提供对单个单元格(cell)进行操作,所以提供不了更为个性化的界面风格。   2. Microsoft Datagrid Control   此控件跟前面介绍的Data Bound grid Control控件很相似,也是主要进行绑定操作,而缺点和Data Bound grid Control完全一样。但是它跟Data Bound grid Control不一样的是其数据源的驱动引擎只能是OLEDB形式的,不能是DAO,比如就可以使用ADO数据控件,不能使用DATA控件。而Data Bound grid Control却刚好和它相反,这一点在开发中一定要注意。   3. Microsoft Flexgrid ControlMicrosoft Hierarchial Flexgrid Control.   这里重点介绍这两种控件,因为在实际开发中,这两种控件应用的场合更多一些,它不仅能够反映数据,而且也能把数据的修改信息反映到数据库中去,所以弥补了上述两种控件的不足。   如果数据不需要修改,那么可以进行绑定操作,其方法跟前面介绍的完全一样,就是通过设置DataSource属性来完成数据的显示工作。但是实际开发中,需要对整个表格控件更为灵活的显示控制。   在给出例程之前,有必要对这一控件进行比较详尽的认识:这种控件允许将文本或者图象放置于每个单元格之中,控件的RowCol属性允许用户在代码中指定当前行和列,当然也可通过操作鼠标和键盘来改变这两个属性,而text属性指明当前单元格的文本。如果单元格的文本太长而不能完全显示出来的话,可以通过将WordWrap属性设置为true来达到显示的目的。下面将比较重要的属性小结如下:   DataSource---------用来指定需要绑定的数据源,比如data控件。   Cellpicture----------用来设定当前单元格的图象,便于显示该图象。此属性不能在设计时使用。   Col,Row---------------设定当前列和当前行,注意它们均是从0开始的,如果同时设定它们,可以指定当前的单元格。设计时也不能使用。   Cols,Rows---------------设置表格控件总的列数和行数。   Hwnd---------------表格句柄,可以结合Windows API对表格控件进行更高级的控制。   Text---------------指定当前的单元格的文本内容。   TextMatrix(i,j)-------此属性比较重要,它用来指定第I行和第j列所确定的单元格的文本内容。它等价于下面的代码: MSHFlexGrid1.Rows =i MSHFlexGrid1.Cols =j MSHFlexGrid1.Text =指定的字符串   WordWrap-------为ture时可以在当前单元格换行显示,否则如果要显示的字符的长度超过列宽,那么就不能显示完全。
表情包
插入表情
评论将由博主筛选后显示,对所有人可见 | 还能输入1000个字符
一、VB控件集,控件集内含ListView、漂亮按钮、下拉列表、TAB窗体选项卡、树形菜单控件、窗体滑动菜单、分组菜单,可折叠展开的菜单等。以前就更新过,现在修正了不少控件中的小错误,更接近完善了,相信这些控件对于从事vb6编程的朋友来说,是相当实用的。 二、1, clistbar.zip 超级的列表框,你一定不会失望(137KB) 2, axtree.zip 用惯了treeview控件的朋友可以试一试这款axtree控件,它增添了更多的控制(129KB) 3,richedit 利用RichText实现的编辑器,提供了修改字体,打印,查询等功能(4KB) 4,exptrocx.zip 实现explorer风格的树型目录的activex控件(1191KB) 5,txtsrch 在Text中实现快速增量查询(5KB) 6,exproplist.zip 建立一个如同vb里属性栏一样的东东,不仅形似,神也似(137KB) 7,combosrc.zip 在 COMBO 中的增量查询(2KB) 8,escombo.zip 为COomBo控件加强版,有近似关键字搜索功能(27KB) 9,sblist20.zip 它允许你用各自颜色(162KB) 10,wordwrap.zip 在 TextBox 中自动换行(2KB) 11,chklst.zip Check Box 和 List的结合体(101KB) 12,aresbuttonpro.zip aresbutton是一个显示图形按钮的activex控件, 主页地址http://const.ricor.ru/~art/aresbutton(320KB) 13,kenjLV1.zip ListView的API效果演示(11KB) 14,cbuttonr.zip 扩充的按钮控件(24KB) 15,csplitba.zip 在窗体里随意建立分隔条(11KB) 16,gbarocx.zip 进度条(171KB) 17,ccrpprg.zip 一个进度条的控件,可以有多种形态供你选择(142KB) 18,chklsb25.zip 它提供了类似 word 和 excel 中的内含检查框 ( checkbox)的列表框(listbox)。在这个控制中,每一个条目的字体、颜色、使能状态和选中状态都可以被单独设置。这个控制也支持3d外观、图片条目和定制的检查框符号(167KB) 19,as97ppup.zip 一种可以弹出的按钮,具有多种形态和功能(32KB) 20,slidrc.zip 形状类似于收音机音量控制的滚动条(296KB) 21,TracBar.zip 滚动条模块, VB 的滚动条比较, 该模块支持动态生成, 支持触发消息(7KB) 22,srchlist.zip 在 list 控件里进行增量查询(3KB) 23,devfltbt.zip 可爱的按钮(141KB) 24,treedrag.zip TreeView 中节点拖动、增加、删除等功能演示(8KB) 25,dirview.zip 装入整个 C 盘目录到 TreeView(5KB) 26,msghook.exe 专门用来截取Windows消息的控件(114KB) 27,led.ZIP 象电子表一样显示数字的控件(17KB) 28,splitbardemo.ZIP 无须任何代码,即可随意拖动该控件,有水平和垂直两种样式。支持 MouseOver 事件(拖动结束)(11KB) 29,hotkeydemo.ZIP 该控件可以为你的应用程序添加一个系统级的热键,通过HotkeyPressed事件来处理热键的按下后的工作。(15KB) 30,pwdboxdemo.ZIP 每当用键盘输入一个字符时,将显示出随机个数的密码字符(31KB) 31,c5.zip 防火墙控件(39KB) 32,c6.zip 列出Windows运行的所有程序,并终止其运行的控件(18KB) 33,taskbar.zip 一个日期控件(有源代码)(6KB) 34,encrypt.zip 加密/解密字符串的控件(46KB) 35,activelock.zip
©️2022 CSDN 皮肤主题:大白 设计师:CSDN官方博客 返回首页

打赏作者

miaozk2006

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值