中财网广州网易新总部大楼:为表格控件(Grid Control)增加复制和粘贴功能
来源：百度文库 编辑：中财网 时间：2024/04/28 17:24:06
为表格控件(Grid Control)增加复制和粘贴功能
www.diybl.com 时间 ： 2007-06-17 作者：佚名 编辑：本站 点击： 745 [ 评论 ]
-
-
当一个基于Grid32.ocx的表格控件被放置到表单,剪切、复制和粘贴菜单项将不复存在,另外象 CTRL+V这样的热键也不起作用。本文说明如何使用表格控件的属性模仿这些编辑功能。
详细内容
既然在表格控件里系统菜单选项和剪切、复制及粘贴这些快捷键都没有作用，必须使用 Grid32.OCX对象的属性实现这些功能。为此，必须使用表格控件的Clip、 Col、 Rowt 和Text属 性。 下例使用文件框控件和表格控件示范如何通过编程在两个对象之间复制、剪切和粘帖文本字符 串。 下述步骤创建包含一个具有复制、剪切和粘贴功能的表格控件的表单。 创建一个表单，在表单上添加一个文件框和一个 OLE 容器控件。 在OLE 容器控件上单击插入控件，选择表格控件对象。 在表格控件上单击右键，选择表格属性。单击全部标签，把Row和Col属性值改为3并单击应用。 在表单的初如化中加入如下代码：
**这些代码为表格对象加入文本值
Thisform.OleControl1.Row=1
ThisForm.OleControl1.Col=1
Thisform.Olecontrol1.Text="Test1"
ThisForm.OleControl1.Row=1
ThisForm.Olecontrol1.Col=2
ThisForm.OleControl1.Text="Test2"
Thisform.OleControl1.Row=1 &&重新设置第一行为焦点
ThisForm.OleControl1.Col=1
为表单增加三个命令按钮并设置如下的属性和事件
Command1
Caption="Copy to Grid"
Click Event:
Thisform.OleControl1.Text=ThisForm.Text1.Value
Command2
Caption="Copy From Grid"
ThisForm.Text1.Value=Thisform.OleControl1.Clip
Command3
Caption="Cut From Grid"
Click Event:
ThisForm.Text1.Value=ThisForm.OleControl1.Text
ThisForm.OleControl1.Text=""
保存表单并运行它。 在文本框中输入"Hello"（不包括引号）然后按Copy to Grid命令按钮，单词"Hello"出现在表格 控件中。 用鼠标选中包含"Test2"的单元格，然后单击Copy from Grid命令按钮，"Test2"将出现在文本框 中。 用鼠标选中包含"Hello"的单元格，然后单击Cut From Grid命令按钮，"Hello"显示在文本框里并 且表格控件第一个单元格的内容也被清空
文章出处：飞诺网(www.diybl.com):http://www.diybl.com/course/3_program/rfoxpro/2007617/62733.html