為表格控件(Grid Control)增加復制和粘貼功能
www.    時間 ： 2007-06-17  作者：佚名   編輯：本站 點擊：  745 [ 評論 ]
-
-
當一個基于Grid32.ocx的表格控件被放置到表單,剪切、復制和粘貼菜單項將不復存在,另外象 CTRL+V這樣的熱鍵也不起作用。本文說明如何使用表格控件的屬性模仿這些編輯功能。

詳細內(nèi)容

既然在表格控件里系統(tǒng)菜單選項和剪切、復制及粘貼這些快捷鍵都沒有作用，必須使用 Grid32.OCX對象的屬性實現(xiàn)這些功能。為此，必須使用表格控件的Clip、 Col、 Rowt 和Text屬 性。 下例使用文件框控件和表格控件示范如何通過編程在兩個對象之間復制、剪切和粘帖文本字符 串。 下述步驟創(chuàng)建包含一個具有復制、剪切和粘貼功能的表格控件的表單。 創(chuàng)建一個表單，在表單上添加一個文件框和一個 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"出現(xiàn)在表格 控件中。 用鼠標選中包含"Test2"的單元格，然后單擊Copy from Grid命令按鈕，"Test2"將出現(xiàn)在文本框 中。 用鼠標選中包含"Hello"的單元格，然后單擊Cut From Grid命令按鈕，"Hello"顯示在文本框里并 且表格控件第一個單元格的內(nèi)容也被清空

文章出處：飛諾網(wǎng)(www.):http://www./course/3_program/rfoxpro/2007617/62733.html