VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 直接编辑VB中网格控制项的两种方法
发表评论(0)作者:, 平台:, 阅读:11741, 日期:2000-03-12
直接编辑VB中网格控制项的两种方法



网格控制项是VB For Windows提供的一个强有力的自定义控制项,它以网格的形式

提供给用户,使用户可以快速直观地显示或编辑数据库、图片库、数组等大型数据

集合。


网格中行和列的每一个交点称为单元格,单元格中可以放入文字或图片,用户可以对

其中的内容进行读写操作。网格控制项的属性Col和Row指定了当前单元格在网格中

的位置,这是对网格进行操作的前提条件。我们可以通过下面三种方法来指定当前

单元格:


(1) 利用程序代码来指定;


(2) 运行期间用方向键的移动来指定;


(3) 运行期间用鼠标左键单击单元格来指定。


用Text属性可以引用或设置当前单元格的内容。


网格控制项共有49个属性(Property),14个事件(Event)和7个方法(Method),上文只

介绍了和本文有关的属性,其它内容读者可参阅有关书籍。另需说明一点,在应用程

序中使用网格控制项之前,必须用File菜单中的AddFile命令在工具箱中加入Grid.

VBX文件。


网格控制项的功能非常强大,但令人遗憾的是,它未提供对单元格的编辑功能。用户

只能通过对当前单元格的Text属性编程来读写单元格内容,而且这种方法是对静态

数据的读写 ,毫无编辑功能可言。


针对上述问题,笔者提出了两种解决方法,取得了较好的应用效果,现分别介绍如下。




一、间接法

间接法的思路是,利用VB提供的可编辑的文本控制项作为中介,通过文本控制项的

Change事件触发,实时地将文本控制项的内容传送给网格控制项。也就是说,通过文

本控制项的编辑达到间接编辑网格控制项的目的。其程序代码如下:


Private Sub Form__Load()

Grid1.Row=0

For i=1 To 4

Grid1.Col=i

Grid1.Text=i

Next i

Grid1.Col=0

For i =1 To 3

Grid1.Row=i

Grid1.Text=i

Next i

End Sub


Private Sub Grid1__Click()

Text1.Text=""

Text1.SetFocus

End Sub


Private Sub Text1__Change()

Colnum=Grid1.SelStartCol

Rownum=Grid1.SelStartRow

Grid1.Col=Colnum

Grid1.Row=Rownum

Grid1.Text=Text1.Text

End Sub


由于间接法采用了文本框进行编辑,不但支持常规的文字编辑,而且还支持标记、剪

贴等各种高级编辑,所以它具有很强的编辑功能。但其缺点也是显然的:为了编辑网

格,必须加入一个文本框,这势必会影响屏幕布局;加之含义不清,容易引起误解。


二、直接法

直接法的思路是,利用网格控制项的KeyDown和KeyPress事件检测用户的按键操作,

通过对不同按键的分析,采取相应的字符串处理方法直接处理Text内容(也就是说自

己编制处理字符串的程序),从而达到直接编辑单元格的目的。其程序代码如下:


Sub Grid1__KeyDown(KeyCode As Integer,Shift As Integer)

If KeyCode=46 Then grid1.Text=""

’Del键将清除当前网格单元格的内容

End Sub


Sub Grid1__keyPress(keyasciiAslnteger)

Select Case keyascii

Case 8

’处理退格键

If Len(grid1.Text)=0 Then Exit Sub

grid1.Text=Left$(grid1.Text,Len(grid1.Text)-1)

Exit Sub

Case 46

’处理小数点

grid1.Text=grid1.Text+"."

Exit Sub

Case 45

’处理负号

grid1.Text=grid1.Text+"-"

Exit Sub

Case 43

’处理正号

grid1.Text=grid1.Text+"+"

Exit Sub

End Select

If(keyascii<48 Or keyascii>58) Then

’处理非数字

Beep:Exit Sub

End lf

grid1.Text=grid1.Text+Right(Str(keyascii-48),1)

End Sub


这一段程序实现的功能是:用户可用鼠标选定当前的单元格,并可完成数据的输入工

作 ,同时对非数字输入发出报警。本段程序只支持用Del键清除当前单元格和退格

键删除尾字符的编辑功能。当然,程序设计员可以根据需要处理更多的键盘操作,从

而设计出更强的编辑功能。


直接法的优点是编辑直观,且可以针对具体问题设计出专用的编辑功能,其缺点是编

辑功能不强。


从笔者的经验来看,网格编辑不是字处理,简单的编辑功能已可以满足一般的要求,

所以从程序优化的角度笔者推荐使用直接法。