VB表格控件总览与例程分析
一.表格控件总览:
在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控件又指向数据库"成绩"的 一个"语文"表,那么当程序运行时,它就自动显示此"语文"表的数据。
从上面的分析看得出来,这个控件虽然操作方便,但是它也有局限性,就是不能对显示的数据进行灵活的控制操作,比如有些数据允许用户修改,有些数据却不允许用户修改,而此控件却只能提供全部数据源的原子操作:即要么全部允许修改,要么就全部不允许。还有另外此控件也不提供对单个单元格(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 Control与Microsoft Hierarchial Flexgrid Control.
这里重点介绍这两种控件,因为在实际开发中,这两种控件应用的场合更多一些,它不仅能够反映数据,而且也能把数据的修改信息反映到数据库中去,所以弥补了上述两种控件的不足。
如果数据不需要修改,那么可以进行绑定操作,其方法跟前面介绍的完全一样,就是通过设置DataSource属性来完成数据的显示工作。但是实际开发中,需要对整个表格控件更为灵活的显示控制。
在给出例程之前,有必要对这一控件进行比较详尽的认识:这种控件允许将文本或者图象放置于每个单元格之中,控件的Row与Col属性允许用户在代码中指定当前行和列,当然也可通过操作鼠标和键盘来改变这两个属性,而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时可以在当前单元格换行显示,否则如果要显示的字符的长度超过列宽,那么就不能显示完全。
二.例程分析:
以上只是介绍了表格控件经常使用的属性,还有很多其他重要的属性这里限于篇幅就不一样讲解了,如果读者有兴趣的话可以参考MSDN上相关的内容的介绍,下面我这里提供一个例程来巩固前面的知识内容。
例程是使用Flexgrid 控件(由于Data Bound grid和Datagrid比较简单,所以这里就不再介绍了),如果大家手头上用的是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用记录集填充表格函数
※VB为MSHFlexGrid添加表格编辑功能
相关
文章参考:
※关于三个概念:ActiveX、OLE和COM
※注册ActiveX控件的几种方法(转) 分享※
※VB 单击ListView控件某列表头进行排序
与控件相关文章:
※VB表格控件总览与例程分析※
※VB 设置控件边框颜色(如:List、Text、Picture)※
※VB控件注册 - 利用资源文件将dll、ocx打包进exe文件
※做VB的,经常注册和反注册OCX控件和DLL链
※VB表格控件总览与例程分析
※根据窗体自动调整窗体内控件大小 注:实用,可以直接引用
※用户控件制作讲解与实例
※VB制作OCX控件的步骤
※【引用】窗口处理技巧大全 vb(窗体控件)
※VB让控件可以当标题栏拖动
※VB 调用腾讯截图控件CameraDLL.dll
※VB表格控件总览与例程分析
※VB表格控件总览与例程分析
※☆Mp3Play.ocx控件让音乐之声响起来
※为系统加载右键注册控件选项【VB 注册控件】
※VB中MsFlexGrid控件的使用细则
※点击MSFlexGrid数据控件的标题进行数据排序
VB表格控件总览与例程分析相关推荐
- vb表格控件_(超级干货)ExcelVBA拆分表格并分别发送邮件增强版
这是POINT小数点的第 339 篇文章 点点写在前面: 之前我们有分享过一个场景1:你制作了一份总表你想要拆分成各个分公司,并且你需要对分公司的多个同事发送邮件.如果有20几个分公司,你要拆分+写邮 ...
- VB 设置控件边框颜色(如:List、Text、Picture)
VB 设置控件边框颜色,比如:ListBox.TextBox.PictureBox.ComboBox等等-. 调用方法: 'setBorderColor (控件句柄,颜色值) setBorderCo ...
- 为系统加载右键注册控件选项【VB 注册控件】
做VB的,经常注册和反注册OCX控件和DLL链 但是,每次都要 "开始"--"运行" --"regsvr32 C:\********\******.o ...
- VB让控件可以当标题栏拖动
'运用本段代码可以使任意控件像窗体标题栏一样具有拖动窗体的功能? '先在模块中加入以下代码: Public Declare Function ReleaseCapture Lib "user ...
- 【引用】窗口处理技巧大全 vb(窗体控件)
Vb提供了API函数SetWindowLong和GetWindowLong,可以让我们很容易取得对窗口的操作:通过对窗口属性的操作,可以更改窗口的显示风格.有些看来是正常情况下无法实现的窗口,现在你可 ...
- ajax17,17个使用AJAX技术的数据表格控件
为了将数据高效的展示出来,数据需要有合适的结构,展现结构设计的越好,用户就越容易理解信息的内容.因此,提高数据的可萃取性和可扫描性非常有意义. 表,是一个非常好的数据呈现结构,非常便于人们分析和理解二 ...
- SpreadJS 纯前端表格控件应用案例:金融业数据智能分析平台
由北京海创研发的金融业数据智能分析平台,通过嵌入 SpreadJS,实现了基于Web的数据采集.自助式报表设计与浏览.灵活查询.自主分析和数据预测等功能,简洁.易用,有效解决了用户数据填报.查询和分析 ...
- MFC Windows 程序设计[325]之表格控件例程(附源码)
MFC Windows 程序设计[325]之表格控件例程 程序之美 前言 主体 运行效果 核心代码 逻辑分析 结束语 程序之美 前言 MFC是微软公司提供的一个类库(class libraries), ...
- MFC Windows 程序设计[327]之树形表格控件例程(附源码)
MFC Windows 程序设计[327]之树形表格控件例程 程序之美 前言 主体 运行效果 核心代码 逻辑分析 结束语 程序之美 前言 MFC是微软公司提供的一个类库(class libraries ...
最新文章
- 将一维数组的值逆序输出
- 讲真!朋友圈别设置三天可见!
- sql注入_1-8_宽字节注入
- 老罗学习MVC之旅:MVC组件分析
- mysql数据字典的通俗理解_MySQL关于数据字典的一个疑问
- linux SSH rsa认证方式登录需理清的问题
- jQuery ctrl+Enter shift+Enter
- c++常用备忘(持续更新)
- python大数据培训班
- 2022年湖北省中小企业公共服务平台认定指南(各地配套奖补政策及申报条件)
- c++win32项目 如何显示后再删除一个绘图_sai绘图软件中文版
- Freeswitch 怎么配置 Proxy Media 和 bypass 模式
- Emmet For Faster HTML CSS Workflow by Edwin Diaz
- webworker应用场景_聊聊webWorker
- pythonfor循环100次_Python之for循环
- rabbitmq连接特别慢 一直连接超时 An unexpected connection driver error occured
- 永不断电的IPONE4
- AMADA阿玛达工控机维修折弯机主机维修R027-00主板故障处理
- 圣地亚哥大学计算机科学专业,加州大学圣地亚哥分校计算机科学与工程系
- 计算机连接电视显示超范围,HDMI连接后电脑操作界面的边框超出电视屏幕,怎么解决...
热门文章
- Google All in AI 都做了什么?
- 那位 13 岁就当上老板的开发者是如何炼成的?
- 硅谷程序员跳槽排行榜:最爱竟不是 Google 苹果 Facebook!
- 小鱼易连推出肩膀计划,打造云+端双师课堂解决方案
- html span离div块有边距,html块 div span
- graphics2d 乱码 java_java Graphics2D绘制文字并居中并解决服务器乱码问题
- python long函数_python函数
- scala 判断字段 是不是 日期类型_举个栗子!Tableau 技巧(147):使用 动态参数 筛选到最新日期值...
- python和ui设计哪个更好_Python主流IDE对比:Eric VS. PyCharm
- python的书籍推荐_python 书籍推荐