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

詳細(xì)內(nèi)容

既然在表格控件里系統(tǒng)菜單選項(xiàng)和剪切,、復(fù)制及粘貼這些快捷鍵都沒(méi)有作用，必須使用 Grid32.OCX對(duì)象的屬性實(shí)現(xiàn)這些功能。為此,，必須使用表格控件的Clip,、 Col、 Rowt 和Text屬 性,。 下例使用文件框控件和表格控件示范如何通過(guò)編程在兩個(gè)對(duì)象之間復(fù)制,、剪切和粘帖文本字符 串。 下述步驟創(chuàng)建包含一個(gè)具有復(fù)制,、剪切和粘貼功能的表格控件的表單,。 創(chuàng)建一個(gè)表單，在表單上添加一個(gè)文件框和一個(gè) OLE 容器控件,。 在OLE 容器控件上單擊插入控件,，選擇表格控件對(duì)象。 在表格控件上單擊右鍵,，選擇表格屬性,。單擊全部標(biāo)簽，把Row和Col屬性值改為3并單擊應(yīng)用,。 在表單的初如化中加入如下代碼：

　　　**這些代碼為表格對(duì)象加入文本值

　　　 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 &&重新設(shè)置第一行為焦點(diǎn)
　　　 ThisForm.OleControl1.Col=1
為表單增加三個(gè)命令按鈕并設(shè)置如下的屬性和事件
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=""
保存表單并運(yùn)行它,。 在文本框中輸入"Hello"（不包括引號(hào)）然后按Copy to Grid命令按鈕，單詞"Hello"出現(xiàn)在表格 控件中,。 用鼠標(biāo)選中包含"Test2"的單元格,，然后單擊Copy from Grid命令按鈕，"Test2"將出現(xiàn)在文本框 中,。 用鼠標(biāo)選中包含"Hello"的單元格,，然后單擊Cut From Grid命令按鈕，"Hello"顯示在文本框里并 且表格控件第一個(gè)單元格的內(nèi)容也被清空

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