MSFlexGrid控件可编辑功能的设计与实现

餮妊　维普资讯 http://www.cqvip.com ２００８年７月　榆林学院学报　Ｊｕｌｙ．２００８　第１８卷第４期　ＪＯＵＲＮＡＬ　ＯＦ　ＹＵＬＩＮ　ＣＯＬＬＥＧＥ　Ｖ０１．１８　Ｎｏ．４　ＭＳＦｌｅｘＧｒｉｄ控件可编辑功能的设计与实现　孙爱民，王荣　（漯河职业技术学院，河南漯河４６２０００）　摘要：介绍了ＶＢ环境下，利用文本框、组合框等控件的属性和事件，使只读控件ＭＳＦｌｅｘＧｒｉｄ具有可编　辑功能的解决方法。　关键词：ＭＳＦｌｅｘＧｒｉｄ控件；编辑功能；设计与实现　中图分类号：ＴＰ３１１．５２文献标识码：Ａ文章编号：１００８—３８７１（２００８）０４－００９１－０３　ＭＳＦ１ｅｘＧｒｉｄ控件是Ｖｉｓｕａｌ　Ｂａｓｉｃ（以下简称ＶＢ）　中新增一个窗体，并分别添加一个ＴｅｘｔＢｏｘ、一个　中的一个特殊的网格控件，由若干行和列组成。它　ＣｏｍｂｏＢｏｘ和一个ＭＳｎｅｘＧｒｉｄ控件，将Ｔｅｘｔｌ的Ｂｏｒ—　可以将数据从数据库加载到控件中，以电子表格的　ｄｅｒＳｔｙｌｅ设置为Ｏ—Ｎｏｎｅ。　形式显示网格数据，网格中还可以包含字符串和图　设计思想：将Ｔｅｘｔｌ置于ＭＳＦｌｅｘＧｒｆｄ控件上，改　片，并且ＭＳＦｌｅｘＧｒｉｄ具有动态排列网格的行与列、　变显示属性为“不可见”，当用户点击ＭＳＦｌｅｘＧｒｉｄ的　排序、合并以及格式设置等其它网格控件所没有的　某个单元格或改变网格的行列，要输人数据时，产生　特性。在ＶＢ的数据库应用程序开发中，ＭＳＦｌｅｘＧｒｉｄ　ＥｎｔｅｒＣｅｌｌ事件，使ＴｅｘｔＢｏｘ显示出来并移至鼠标点　控件有着非常广泛的应用。　击处，将ＴｅｘｔＢｏｘ的大小调整到与所点击的单元格　然而，由于ＭＳＦｌｅｘＧｒｉｄ控件最主要的作用是以　大小一致，并与所点击单元格重叠，同时获得焦点。　表格式窗体显示数据的，因此该控件与数据绑定后　当用户按下键进行输人时，ＴｅｘｔＢｏｘ接收数据，输人　是只读的，用户无法编辑被绑定或包含在控件中的　完成后，程序执行ＬｅａｖｅＣｅｌｌ事件，在ＴｅｘｔＢｏｘ失去焦　数据。ＭＳＦｌｅｘＧｒｉｄ的这个特点，虽然提高了数据浏　点时把ＴｅｘｔＢｏｘ的内容送给网格的单元格，并把输　览的安全性，但也了用户的操作，降低了程序的　人焦点设置为网格的当前单元格，同时隐藏Ｔｅｘｔｌ。　交互性和可操作性。通过研究发现，虽然ＭＳＦｌｅｘ－　这样，通过ＴｅｘｔＢｏｘ的缓冲与传递，网格就能够完成　Ｇｒｉｄ控件本身不具有编辑功能，但由于它具有在代　复制、粘贴、删除、添加等编辑功能，用户编辑单元格　码中或运行时改变当前单元格显示内容的功能，因　就像使用文本框一样方便了。此功能部分关键代码　此可以将ＭＳＦｌｅｘＧｒｉｄ控件与ＴｅｘｔＢｏｘ、ＣｏｍｂｏＢｏｘ等　示例如下：　控件结合使用，通过激发文本框或组合框的属性和　Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｆｏｒｍ—Ｌｏａｄ（）　事件，将其中的数据传递给单元格，从而使其具有数　Ｄｉｍ　Ｍｓｇｄ　Ａｓ　Ｓｔｒｉｎｇ　据输人编辑功能。　Ｗｉｔｈ　ＭＳＦｌｅｘＧｒｉｄｌ　１　编辑功能的实现方法　定义ＭＳＦｌｅｘＧｒｉｄｌ表的表头信息　使用ＭＳＦｌｅｘＧｒｉｄ控件之前，首先必须将ＭＳ－　，Ｃｌｅａｒ　ＦｌｅｘＧｒｉｄ．ｏｃｘ文件添加到工程中。步骤为：单击“工　‘Ｍｓｇｄ：“姓名Ｉ性别Ｉ出生年月Ｉ民族Ｉ　程”菜单，选择“部件…”，在“部件”对话框中选中　政治面貌Ｉ籍贯Ｉ所在院系Ｉ所学专业”　“Ｍｉｃｒｏｓｏｆｔ　ＦｌｅｘＧｒｉｄ　Ｃｏｔｒｏｌ　６．０”，将ＭＳＦＩｅｘＧｒｉｄ控件　．ＦｏｒｍａｔＳｔｉｒｎｇ＝Ｍｓ＃　添加到工具箱中。　．Ｃｏｌｓ：８：．Ｒｏｗｓ＝１０００　１．１基本编辑功能的实现新建一个工程，在工程　定义￣ＳＦｌｅｘＧｆｉｄｌ的行数与列数　收稿日期：２００８—ｏ４一ｌ６　修回日期：２０ｏ８—　５一ｌ３　作者简介：孙爱民（１９７４一），男，河南许昌人，讲师，硕士，研究方向为现代教育技术及计算机软件开发与应用。Ｅ—Ｉｌｌａｉｌ￣ｌｈａｍ，．２００８＠：１６３．ＣＯＩｎ　维普资讯 http://www.cqvip.com

・９２・　榆林学院学报　２００８年第４期（总第７４期）　Ｅｎｄ　Ｗｉｔｈ　分别使光标左移或右移一格，而ＥＮＴＥＲ键则使光　Ｔｅｘｔ１．Ｖｉｓｉｂｌｅ＝Ｆａｌｓｅ窗体初始化时，设置文　标右移一格且移到行尾时自动跳至行首单元，ＥＳＣ　本框的属性为不可见　键可退出对单元格的编辑。关键代码如下：　Ｅｎｄ　Ｓｕｂ　Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｔｅｘｔｌ—ＫｅｙＤｏｗｎ（ＫｅｙＣｏｄｅ　Ａｓ　Ｉｎｔｅ—　Ｐｒｉｖａｔｅ　Ｓｕｂ　ＭＳＦｌｅｘＧｒｉｄ　１一ＥｎｔｅｒＣｅｌｌ（）　ｇｅｒ，Ｓｈｉｔｆ　Ａｓ　Ｉｎｔｅｇｅｒ）　Ｄｉｍ　Ｎｅｔｌ　Ａｓ　Ｓｉｎｇｌｅ确定ＭＳＦｌｅｘＧｒｉｄｌ的位置　Ｏｎ　Ｅｒｒｏｒ　Ｒｅｓｕｍｅ　Ｎｅｘｔ　Ｄｉｍ　Ｎｅｔ２　Ａｓ　Ｓｉｎｇｌｅ　Ｓｅｌｅｃｔ　Ｃａｓｅ　ＫｅｙＣｏｄｅ　Ｗｉｔｌ１　ＭＳＦｌｅｘＧｆｉｄ】　Ｃａｓｅ　ｖｂＫｅｙＥｓｃａｐｅ当按ＥＳＣ键时，退出对　ＭＳＦｌｅｘＧｒｉｄｌ的第一列为Ｃｏｍｂｏ１，ＭＳＦｌｅｘ—　文本框的编辑　Ｇｒｉｄｌ的其余各列为Ｔｅｘｔ１　Ｔｅｘｔ１．Ｔｅｘｔ＝ＭＳＦ１ｅｘＧｒｉｄ１．Ｔｅｘｔ　Ｉｆ．Ｃｏｌ＝０　Ｏｒ．Ｃｏｌ＝２　Ｏｒ．Ｃｏｌ：３　Ｏｒ．　ＭＳＦｌｅｘＧｒｉｄ　１．ＳｅｔＦｏｃｕｓ　Ｃｏｌ＝４　Ｏｒ．Ｃｏｌ＝５　Ｏｒ．Ｃｏｌ：６　Ｏｒ．Ｃｏｌ＝７　Ｔｈｅｎ　Ｃａｓｅ　ｖｂＫｅｙＲｅｔｕｒｎ当按ＥＮＴＥＲ键时，完成　Ｍｅ！ｆＴｅｘｔ１］．Ｖｉｓｉｂｌｅ＝Ｔｒｕｅ　对文本框的编辑　Ｎｅｔｌ＝．Ｔｏｐ设置Ｔｅｘｔ１的参数值与　ＭＳＦｌｅｘＧｒｉｄ１．ＳｅｔＦｏＣＵＳ　ＭＳＦｌｅｘＧｒｉｄｌ网格单元相同　ＭＳＦｌｅｘＧｒｉｄ１．Ｒｏｗ＝ＭＳＦｌｅｘＧｒｉｄ１．Ｒｏｗ＋ｌ　Ｎｅｔ２＝．Ｌｅｆｔ　ＭＳＦｌｅｘＧｒｉｄ１．Ｃｏｌ＝ｌ　Ｍｅ！［Ｔｅｘｔ１］．Ｔｏｐ＝Ｎｅｔ　１＋．ＣｅｌｌＴｏｐ　Ｃａｓｅ　ｖｂＫｅｙＤｏｗｎ当按ＤＯＷＮ　ＡＲＲＯＷ键时，　Ｍｅ！［Ｔｅｘｔ１］．Ｌｅｆｔ＝Ｎｅｔ　２＋．ＣｅｌｌｅＬｆｔ　下移一行　Ｍｅ！［Ｔｅｘｔ１］．Ｈｅｉｇｈｔ＝．ＣｅｌｌＨｅｉｇｈｔ　ＭＳＦｌｅｘＧｒｉｄ１．ＳｅｔＦｏｃｕｓ　Ｍｅ！［Ｔｅｘｔ１］．Ｗｉｄｔｈ＝．ＣｅｌｌＷｉｄｔｈ　ＤｏＥｖｅｎｔｓ　Ｅｎｄ　Ｉｆ　Ｉｆ　ＭＳＦｌｅｘＧｒｉｄ１．Ｒｏｗ＜ＭＳＦｌｅｘＧｒｉｄ１．Ｒｏｗ　Ｅｎｄ　Ｗｉｔｈ　—ｌＴｈｅｎ　Ｅｎｄ　Ｓｕｂ　ＭＳＦｌｅｘＧｒｉｄ１．Ｒｏｗ＝ＭＳＦｌｅｘＧｒｉｄ１．Ｒｏｗ＋ｌ　Ｐｒｉｖａｔｅ　Ｓｕｂ　ＭＳＦｌｅｘＧｒｉｄｌＥｎｄ　Ｉｆ　—ＬｅａｖｅＣｅｌｌ（）　ｆＩ．Ｃｏｌ＝０　Ｏｒ．Ｃｏｌ＝２　Ｏｒ．Ｃｏｌ＝３　Ｏｒ．　Ｃａｓｅ　ｖｂＫｅｙＲｉｇｈｔ当按ＲＩＧＨＴ　ＡＲＲＯＷ键时，　Ｃｏｌ＝４　Ｏｒ．Ｃｏｌ＝５　Ｏｒ．Ｃｏｌ：６　Ｏｒ．Ｃｏｌ＝７　Ｔｈｅｎ　右移一列　．Ｔｅｘｔ＝Ｍｅ！［Ｔｅｘｔ１］．Ｔｅｘｔ佣Ｔｅｘｔｌ给　ＭＳＦｌｅｘＧｒｉｄ１．ＳｅｔＦｏｃｕｓ　ＭＳＦｌｅｘＧｒｉｄｌ相应网格赋值　ＤｏＥｖｅｎｔｓ　Ｍｅ！［Ｔｅｘｔ１］．Ｖｉｓｉｂｌｅ＝Ｆａｌｓｅ　Ｉｆ　ＭＳＦｌｅｘＧｒｉｄ１．Ｃｏｌ＝８　Ｔｈｅｎ　Ｅｎｄ　Ｉｆ　ＭＳＦｌｅｘＧｒｉｄ１．Ｒｏｗ＝ＭＳＦｌｅｘＧｒｉｄ１．Ｒｏｗ＋ｌ　Ｅｎｄ　Ｓｕｂ　ＭＳＦｌｅｘＧｒｉｄ１．Ｃｏｌ＝ｌ　１．２利用光标在网格单元间移动，进行编辑用鼠　Ｅｎｄ　Ｉｆ　标操作时，用户若想在某个单元格中输人数据，必须　Ｃａｓｅ　ｖｂＫｅｙＬｅｆｔ当按ＬＥｎ　ＡＲＲＯＷ键时，左　先用鼠标点击该单元使其获得焦点，然后才能利用　移一列　键盘完成输入。这样，用户需要在键盘与鼠标之间　ＭＳＦｌｅｘＧｒｉｄ１．ＳｅｔＦｏｃｕｓ　频繁切换，非常不便。　ＭＳＦｌｅｘＧｒｉｄ１．Ｃｏｌ＝ＭＳＦｌｅｘＧｒｉｄ１．Ｃｏｌ—ｌ　下段代码实现的功能是：在对ＭＳＦｌｅｘＧｒｉｄ控件　Ｃａｓｅ　ｖｂＫｅｙＵｐ当按ｕＰ　ＡＲＲＯＷ键时，上移　进行编辑时，利用上、下、左、右光标键（ＵＰ、ＤＯＷＮ、　一行　ＬＥＦＴ、ＲＩＧＨＴ）、回车键（ＥＮＴＥＲ）和退出键（ＥＳＣ），　ＭＳＦｌｅｘＧｒｉｄ１．ＳｅｔＦｏｃｕｓ　在网格单元间移动光标，进行编辑。这种方法，不需　ＤｏＥｖｅｎｔｓ　切换键盘与鼠标，方便了操作。其中ＵＰ和ＤＯＷＮ　Ｉｆ　ＭＳＦｌｅｘＧｒｉｄ１．Ｒｏｗ＞ＭＳＦｌｅｘＧｒｉｄ１．Ｆｉｘｅ—　可分别使光标上移或下移一行，ＬＥＦＴ和ＲＩＧＨＴ可　ｄＲｏｗｓ　Ｔｈｅｎ　维普资讯 http://www.cqvip.com

孙爱民，王荣：ＭＳ￣ｅｘＧｆｉｄ控件可编辑功能的设计与实现　・９３・　ＭＳＦＩｅｘＧｒｉｄ１．Ｒｏｗ＝ＭＳＦＩｅｘＧｒｉｄ１．Ｒｏｗ一１　生信息（单元号、楼层数、所属系别、寝室长信息、已　Ｅｎｄ　Ｉｆ　交学费情况等）输人数据库中，ＭＳＦｌｅｘＧｒｉｄ控件的　Ｅｎｄ　Ｓｅｌｅｃｔ　编辑功能可通过代码编程实现。当程序运行时，　Ｅｎｄ　Ｓｕｂ　ＭＳＦｌｅｘＧｒｉｄ控件读取信息，管理员通过相关的Ｃｌｉｃｋ　上段代码保证了在对ＭＳＦｌｅｘＧｒｉｄ控件进行编　事件完成操作，如果想使用ＭＳＦＩｅｘＧｒｉｄ删除数据表　辑时，能方便地进行光标移动和随时退出编辑状态，　中的某条记录，那么在定义ＭＳＦｌｅｘＧｒｉｄ控件时要定　从而提高了操作速度。同时，保证了ＴｅｘｔＢｏｘ控件　义一个固定列，然后设置ＭＳＦＩｅｘＧｒｉｄ１．ＡＩＩｏｗＢｉｇＳｅ—　与ＭＳＦｌｅｘＧｒｉｄ控件的网格单元在形式上与内容上　ｌｅｃｔｉｏｎ＝Ｔｒｕｅ，或者在ＭｓＦｌｅｘＧｒｉｄ的属性中将“选　的统一，从根本上解决了ＭＳＦＩｅｘＧｒｉｄ控件的可编辑　定模式”设为“１一Ｂｙ　Ｒｏｗ”，这样，可以在单击某行　问题。　时，使整个行都被选中，接下来就可以使用ＳＱＬ中　２应用实例　的ｄｅｌｅｔｅ语句将选中行的内容从数据表中删除，同　ＭＳＦｌｅｘＧｒｉｄ控件操作数据相当灵活，数据源可　时利用循环语句将ＭＳＦｌｅｘＧｒｉｄ中的对应的行也删　以来自不同的记录集。它既可以用ＳＱＬ语句连接　除掉。　数据库自动读取数据，又可以根据开发者自己的需　３结语　要随意写人数据，多种方法可同时并存使用，在行列　虽然ＭＳＦｌｅｘＧｒｉｄ控件主要是用表格式窗体显　中透视数据非常方便。诸如在一个《学生档案管理　示信息的，然而，综上所述，我们可通过适当选择　系统》中，部分功能可由ＭＳＦＩｅｘＧｒｉｄ控件实现，如学　ＭＳＦｌｅｘＧｒｉｄ控件的属性、方法，并将其相关事件与所　生信息的显示、修改等。　需控件联合使用，使其具有可编辑功能。ＭＳＦＩｅｘ—　《学生档案管理系统》可针对学校内各宿舍楼　Ｇｒｉｄ控件一旦具有了编辑功能，就能够方便地实现　群，利用ＭＳＦｌｅｘＧｒｉｄ控件进行基本信息管理，如学　数据的录人、存储、统计、排序等操作，这样既能增强　生信息查询、修改、统计输出报表等工作。程序设计　程序的交互性，也更符合使用者日常处理数据的习　时，可将每幢宿舍楼的单元数与楼层数编制成若干　惯，在数据库应用软件的开发中，实用性较强。　行与列，对应ＭＳＦｌｅｘＧｒｉｄ控件的单元格，将各楼学　参考文献：　［１］明日科技．Ｖｉｓｕａｌ　Ｂａｓｉｃ数据库开发关键技术与实例应用［Ｍ］．北京：人民邮电出版社，２００４．　［２］刘韬，骆娟，何旭洪．Ｖｉｓｕａｌ　Ｂａｓｉｃ　６．０数据库系统开发实例导航［Ｍ］．北京：人民邮电出版社，２００２．　［３］黄森云，张学中，王福成．Ｖｉｓｕａｌ　Ｂａｓｉｃ控件应用编程实例教程［Ｍ］．北京：北京希望电子出版社，２００２．　［４］张宏林，孔艳，王哲．Ｖｉｓｕａｌ　Ｂａｓｉｃ开发数据库［Ｍ］．北京：人民邮电出版社，１９９９．　　・（责任编辑：邵治亮）　Ｄｅｓｉｇｎ　ａｎｄ　Ｒｅａｌｉｚａｔｉｏｎ　ｏｆ　ＭＳＦｌｅｘＧｒｉｄ’Ｓ　Ｅｄｉｔ—ｆｕｎｃｔｉｏｎ　ＳＵＮ　Ａｉ—ｍｉｎ，ＷＡＮＧ　Ｒｏｎｇ　（Ｌｕｏｈｅ　Ｖｏｃａｔｉｏｎａｌ　ａｎｄ　Ｔｅｃｈｎｉｃａｌ　Ｃｏｌｌｅｇｅ，Ｌｕｏｈｅ　４６２００２，Ｈｅｎａｎ）　Ａｂｓｔｒａｃｔ：Ｔｈｉｓ　ｐａｐｅｒ　ｍａｉｎｌｙ　ｄｉｓｃｕｓｓｅｓ　ｓｏｍｅ　ｓｏｌｖｉｎｇ　ｍｅｔｈｏｄｓ　ｔｏ　ｍａｋｅ　ｔｈｅ　ｏｎｌｙ　ｒｅａｄｉｎｇ　ＭＳＦｌｅｘＧｒｉｄ　ｃｏｎｔｒｏｌ　ｈａｖｅ　ｅｄ—　ｉｔｉｎｇ　ｆｕｎｃｔｉｏｎ　ｉｎ　ＶＢ　ｅｎｖｉｒｏｎｍｅｎｔ．　．　．Ｋｅｙ　ｗｏｒｄｓ：ＭＳＦｌｅｘＧｒｉｄ　ｃｏｎｔｒｏｌ；ｅｄｉｔ——ｆｕｎｃｔｉｏｎ；ｄｅｓｉｇｎ　ａｎｄ　ｒｅａｌｉｚａｔｉｏｎ