 |
VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
| 上一篇主題 :: 下一篇主題 |
| 發表人 |
內容 |
小柯
註冊時間: 2003-11-27
文章: 78
第 1 樓
|
 發表於: 星期五 七月 15, 2005 2:16 pm 文章主題: 請問下拉式選單SHORTCUT的問題 |
 |
|
請問如何在執行SHORTCUT程序時能够執行下列的功能
Thisform.label1.caption="你選擇了xxx"
我將 Thisform.label1.caption="你選擇了xxx" 這行
放在shortcut的procedure或command程序中執行但總是
出現錯誤訊息像是 "Thisform.label1... must into method" |
|
| 回頂端 |
|
 |
garfield
Site Admin
註冊時間: 2003-01-30
文章: 2160
第 2 樓
|
| 發表於: 星期五 七月 15, 2005 2:55 pm 文章主題: |
|
|
thisform. 或 this. 這一類的程式碼只能在form裡面用,
在如是將這一類的程式寫在一般的procedure中,
是會出現錯誤訊息的..
但也不是絕對不能的...
動動腦想一想, 該如何騙VFP呢?
_________________
利用>>搜尋<<的功能會比問的還要快得到答案. |
|
| 回頂端 |
|
|
小柯
註冊時間: 2003-11-27
文章: 78
第 3 樓
|
| 發表於: 星期五 七月 15, 2005 4:17 pm 文章主題: |
|
|
| 小弟智拙,參不透,請公佈答案,謝謝 |
|
| 回頂端 |
|
|
syntech
註冊時間: 2003-05-16
文章: 4249
來自: Taipei,Taiwan
第 4 樓
|
| 發表於: 星期五 七月 15, 2005 4:45 pm 文章主題: |
|
|
把 "this" 或 "thisform" 當參數 嗎?
_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
| 回頂端 |
|
|
garfield
Site Admin
註冊時間: 2003-01-30
文章: 2160
第 5 樓
|
| 發表於: 星期五 七月 15, 2005 11:43 pm 文章主題: |
|
|
syntech兄,厲害!
就是把this或thisform當參數來傳送給procedure來處理.
例:
do myshortcut with thisform
....
..........
prod myshortcut
lpara mythisform
myThisform.label1.caption='你選擇了xxx'
return
_________________
利用>>搜尋<<的功能會比問的還要快得到答案. |
|
| 回頂端 |
|
|
Abel
註冊時間: 2005-03-14
文章: 189
來自: 鹿港小鎮
第 6 樓
|
| 發表於: 星期六 七月 16, 2005 8:27 am 文章主題: |
|
|
| 實在是既絕又妙，佩服！ |
|
| 回頂端 |
|
|
小柯
註冊時間: 2003-11-27
文章: 78
第 7 樓
|
| 發表於: 星期六 七月 16, 2005 8:56 am 文章主題: |
|
|
garfield兄:
小弟功力尚淺,仍試不出來,底下是我的程式內容,請幫我看看錯在那裏,謝謝
Thisform.RightClick內容如下 :
SET LIBRARY TO menu1.mpr
DEFINE POPUP shortcut SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 1 OF shortcut PROMPT "第一項"
DEFINE BAR 2 OF shortcut PROMPT "第二項"
DEFINE BAR 3 OF shortcut PROMPT "第三項"
ON SELECTION BAR 1 OF shortcut ;
DO _1kg0ib6hb with thisform ;
IN LOCFILE("\NETHS\MENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU1?")
ON SELECTION BAR 2 OF shortcut ;
DO _1kg0ib6hc with thisform;
IN LOCFILE("\NETHS\MENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU1?")
ON SELECTION BAR 3 OF shortcut ;
DO _1kg0ib6hd with thisform;
IN LOCFILE("\NETHS\MENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU1?")
ACTIVATE POPUP shortcut
menu1.mpr內容如下:
PROCEDURE _1kg0ib6hb
LPARAMETERS mythisform
mythisform.lable1.caption="第一項"
return
PROCEDURE _1kg0ib6hc
LPARAMETERS mythisform
mythisform.label1.caption="第二項"
return
PROCEDURE _1kg0ib6hd
LPARAMETERS mythisform
mythisform.label1.caption="第三項"
return |
|
| 回頂端 |
|
|
garfield
Site Admin
註冊時間: 2003-01-30
文章: 2160
第 8 樓
|
| 發表於: 星期六 七月 16, 2005 12:01 pm 文章主題: |
|
|
經過測試結果
| 代碼: |
....
ON SELECTION BAR 1 OF shortcut ;
DO _1kg0ib6hb with thisform ;
IN LOCFILE("\NETHS\MENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU1?")
....
|
用 do .... with thisform 還是會在選擇後出現問題.
解決方式有兩種,
1: 去搜尋"shortcut" ,
2: 還是一樣, "用騙的",
先定義一個變數=thisform , 再用這個變數取代thisform
| 代碼: |
me = thisform
....
ON SELECTION BAR 1 OF shortcut ;
DO _1kg0ib6hb with me ;
IN LOCFILE("\NETHS\MENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU1?")
....
|
希望你能了解我在說什麼^^
_________________
利用>>搜尋<<的功能會比問的還要快得到答案. |
|
| 回頂端 |
|
|
小柯
註冊時間: 2003-11-27
文章: 78
第 9 樓
|
| 發表於: 星期六 七月 16, 2005 2:17 pm 文章主題: |
|
|
garfield兄
經測試已ok了,感恩 |
|
| 回頂端 |
|
|
|
|
您 無法 在這個版面發表文章
您 無法 在這個版面回覆文章
您 無法 在這個版面編輯文章
您 無法 在這個版面刪除文章
您 無法 在這個版面進行投票
您 無法 在這個版面附加檔案
您 無法 在這個版面下載檔案
|
|
常見問題
搜尋
會員列表
會員群組
會員註冊
個人資料
登入檢查您的私人訊息
登入
