|
VFP 愛用者社區 本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
jms7275
註冊時間: 2005-01-08 文章: 65
第 1 樓
|
發表於: 星期六 一月 08, 2005 9:30 pm 文章主題: VFP 6.0開發的程式中,按滑鼠右鍵無法出現windows內建編輯選單(復原,剪下,貼上...) |
|
|
在Editbox和textBox中,因為有時會有些在別的檔案的文字,要放進資料庫
因使用者還是比較習慣,先標示文字再按滑鼠右鍵,做複製,貼上等動作
(雖然試過用ctrl+快捷鍵可以)
不知有無設定可解決此問題
感謝 |
|
回頂端 |
|
|
garfield Site Admin
註冊時間: 2003-01-30 文章: 2157
第 2 樓
|
發表於: 星期日 一月 09, 2005 4:13 pm 文章主題: |
|
|
* 參考: 李老師 潛瑞 的書
在 .RightClick 中
* pop menu
With this
Define POPUP shortcut shortcut RELATIVE FROM MROW(),MCOL()
Define BAR _med_cut OF shortcut PROMPT "剪下(\<T)" ;
KEY CTRL+X, "Ctrl+X" ;
SKIP FOR this.clip_no_data()
Define BAR _med_copy OF shortcut PROMPT "複製(\<C)" ;
KEY CTRL+C, "Ctrl+C" ;
SKIP FOR this.clip_no_data()
Define BAR _med_paste OF shortcut PROMPT "貼上(\<P)" ;
KEY CTRL+V, "Ctrl+V" ;
SKIP FOR empty(_cliptext)
Activate POPUP shortcut
Endwith
*******
建立一個新的"方法" clip_no_data
if type('_screen.ActiveForm.ActiveControl.SelText') = 'U'
return .T.
else
return empty(_screen.ActiveForm.ActiveControl.SelText)
endif _________________ 利用>>搜尋<<的功能會比問的還要快得到答案. |
|
回頂端 |
|
|
jms7275
註冊時間: 2005-01-08 文章: 65
第 3 樓
|
發表於: 星期日 一月 09, 2005 5:52 pm 文章主題: |
|
|
感謝garfield大指導
問題解決了 |
|
回頂端 |
|
|
jms7275
註冊時間: 2005-01-08 文章: 65
第 4 樓
|
發表於: 星期日 一月 09, 2005 7:13 pm 文章主題: |
|
|
剛剛依先進的提點,用關鍵字查了一下MSDN online,下面這篇有提到
http://support.microsoft.com/default.aspx?scid=kb;en-us;193626
但似乎沒有提到刪除的宣告(雖然用鍵盤Delete鍵可以),
試過BAR_MED_del,BAR_MED_delete都失敗
Define BAR _med_delete OF shortcut PROMPT "刪除(\<D)" ;
KEY CTRL+D, "Ctrl+D" ;
還有兩個UNDO,REDO;試了一下UNDO沒問題,REDO用在此處不知合不合適
DEFINE BAR _MED_UNDO OF shortcut PROMPT "復原上一動作(\<U)" ;
KEY CTRL+U, "Ctrl+U" ;
DEFINE BAR _MED_REDO OF shortcut PROMPT "重複上一動作(\<R)" ;
KEY CTRL+R, "Ctrl+R" ;
SKIP FOR thisform.clip_no_data()
Menu中的分隔線宣告
DEFINE BAR 3 OF shortcut PROMPT "\-" |
|
回頂端 |
|
|
|
|
您 無法 在這個版面發表文章 您 無法 在這個版面回覆文章 您 無法 在這個版面編輯文章 您 無法 在這個版面刪除文章 您 無法 在這個版面進行投票 您 無法 在這個版面附加檔案 您 無法 在這個版面下載檔案
|
|