● 直接编辑VB中网格控制项的两种方法 - 荔园在线 | 深圳大学学生论坛,荔园晨风BBS,深大在线网站

荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀

发信人: Peter (小飞侠), 信区: Program
标  题: 直接编辑VB中网格控制项的两种方法
发信站: BBS 荔园晨风站 (Wed Jan 27 17:44:03 1999), 转信

网格控制项是VB For Windows提供的一个强有力的自定义控制项,它
以网格的形式提供给用户,使用户可以快速直观地显示或编辑数据库
、图片库、数组等大型数据集合。
    网格中行和列的每一个交点称为单元格,单元格中可以放入文字
或图片,用户可以对其中的内容进行读写操作。网格控制项的属性Col
和Row指定了当前单元格在网格中的位置,这是对网格进行操作的前提
条件。我们可以通过下面三种方法来指定当前单元格:
    (1) 利用程序代码来指定;
    (2) 运行期间用方向键的移动来指定;
    (3) 运行期间用鼠标左键单击单元格来指定。
    用Text属性可以引用或设置当前单元格的内容。
    网格控制项共有49个属性(Property),14个事件(Event)和7个方
法(Method),上文只介绍了和本文有关的属性,其它内容读者可参阅有
关书籍。另需说明一点,在应用程序中使用网格控制项之前,必须用Fi
le菜单中的AddFile命令在工具箱中加入Grid.VBX文件。
    网格控制项的功能非常强大,但令人遗憾的是,它未提供对单元格
的编辑功能。用户只能通过对当前单元格的Text属性编程来读写单元
格内容,而且这种方法是对静态数据的读写,毫无编辑功能可言。
    针对上述问题,笔者提出了两种解决方法,取得了较好的应用效果
,现分别介绍如下。
    一、间接法
    间接法的思路是,利用VB提供的可编辑的文本控制项作为中介,通
过文本控制项的Chang e事件触发,实时地将文本控制项的内容传送给
网格控制项。也就是说,通过文本控制项的编辑达到间接编辑网格控
制项的目的。其程序代码如下:
    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
图1
    由于间接法采用了文本框进行编辑,不但支持常规的文字编辑,而
且还支持标记、剪贴等各种高级编辑,所以它具有很强的编辑功能。
但其缺点也是显然的:为了编辑网格,必须加入一个文本框,这势必会
影响屏幕布局;加之含义不清,容易引起误解。
    二、直接法
    直接法的思路是,利用网格控制项的KeyDown和KeyPress事件检测
用户的按键操作,通过对不同按键的分析,采取相应的字符串处理方法
直接处理Text内容(也就是说自己编制处理字符串的程序),从而达到
直接编辑单元格的目的。其程序代码如下:
        Sub Grid1__KeyDown(KeyCode As Integer,Shift As Integ
er)
      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键清除当前单元格和退格键删除尾字符的编辑功能。当然,程序
设计员可以根据需要处理更多的键盘操作,从而设计出更强的编辑功
能。
    直接法的优点是编辑直观,且可以针对具体问题设计出专用的编
辑功能,其缺点是编辑功能不强。
    从笔者的经验来看,网格编辑不是字处理,简单的编辑功能已可以
满足一般的要求,所以从程序优化的角度笔者推荐使用直接法。

--
※ 来源:．BBS 荔园晨风站 bbs.szu.edu.cn．[FROM: 192.168.1.3]

荔园在线首页友情链接：深圳大学深大招生荔园晨风BBS S-Term软件网络书店