文档详情

[Mshflexgrid行标识、选定、锁定的实现方法] 剑网三快速选定已标识目标

豆***
实名认证
店铺
DOCX
16.30KB
约4页
文档ID:137069965
[Mshflexgrid行标识、选定、锁定的实现方法] 剑网三快速选定已标识目标_第1页
1/4

[Mshflexgrid行标识、选定、锁定的实现方法] 剑网三快速选定已标识目标   摘要:经过实例介绍VB利用Mshflexgrid控件进行行标识、行选定和行锁定的实现,列出了Mshflexgrid控件的使用技巧;给出有关Mshflexgrid的研究方法  关键词:Mshflexgrid;行标识;行选定;行锁定;实现方法  中图分类号:TP301文件标识码:A文章编号:16727800008001902  作者介绍:许涛,男,武昌理工文法和外语学院试验师,研究方向为数据库开发  0引言  Mshflexgrid控件是一个很好用的表格控件,拥有强大的功效、众多的属性但控件不许可用户直接修改数据,因此通常用Mshflexgrid浏览数据,常见控件堆砌于frame容器形成xx数据区的设计界面程序员发觉这个网格控件没有行标志的功效假如程序员忽略行标识,势必会照成终端用户不知道自己在处理哪一条统计的现象发生本文关键研究怎样使用Mshflexgrid添加行标志、行选定和行锁定问题  Cellpicture属性,即设置目前单元中显示的图像比如:  Set = LoadPicture  注意:①CellPicture属性是需要制订行列值;②前面Set是关键字,缺乏了会造成程序运行错误。

  1添加行标识处理方案  Private Sub clear_biaoji ‘自定义函数清除全部数据标识  For j = 1 To  = j  = 0  photo_info_path1 = "" 需要定于全局变量  Set = LoadPicture  Next  End Sub  自定义函数一次迭代完成清除全部关键字数据标志  Private Sub biaoji 自定义函数标识目前行数据标志  photo_info_path1 = &" \images\"  = rowno ‘全局变量,原型rowno=  = 0  Set = LoadPicture  End Sub  自定义函数为目前行数据标识  经过二次迭代,完成其功效,其用处于Mshflexgrid _click事件  Private Sub Mshflexgrid1_Click  …  For j = 0 To - 1  clear_biaoji  If j = rowno Then  Biaoji  Exit For  End If  Next  这种方法也符合表格关键字设置背景色提醒用户是否为目前标志设计思绪。

  2行选定处理方案  选定行,即在Mshflexgrid点击某统计,整行被选定,提醒终端用户目前统计将被删除或修改 此属性能应用到块的选定,只不过在mousedown 和mouseup事件中设置属性而已  Private Sub Mshflexgrid1_Click  …  With Mshflexgrid1  .Row = .MouseRow  CURRENTROW = .Row‘设置目前行  .Col = 0‘从0列开始  .ColSel = .Cols  1‘至表格全部列结束的位置选定  End With  …  End if{  3行锁定处理方案  行锁定,即行统计被赋值到framexx区修改时,Mshflexgrid锁定正在xx的行假如不锁定,终端用户再次点击Mshflexgrid,数据被更新到xx区,造成终端用户xx的数据工作前功尽弃相关代码结构以下:  If rowno = 0 Then判定是否为表头  点击表头 只许可添加统计,严禁添加统计 经过按钮组  Else  不是表头 浏览数据行未锁定,将行数据赋值给xx区各常见控件  一次迭代清除标识,二次迭代标识目前行,最终行选定  If read_write_mode = "修改" And oldrow <> rowno Then  MsgBox "数据在修改时,您点击其它统计,系统将锁定行"  rowno = oldrow  =txt1‘frame_mousemove 事件搜集全部xx区的值  一次迭代清除标识,二次迭代标识目前行,最终行选定  End if  End if  需要注意是oldrow 也是全局变量,第一次赋值在“修改”按钮转换到“保留”按钮的过程中;在Mshflexgrid_click有大量反复的语句,为了简化程序代码,尽可能将相同的代码段作为函数使用。

下载提示
相关文档
正为您匹配相似的精品文档