|
VFP 愛用者社區 本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
raylian
註冊時間: 2006-08-09 文章: 25
第 1 樓
|
發表於: 星期二 二月 02, 2010 6:57 pm 文章主題: vfp如何控制按鈕按下不放情況只響應一次事件 |
|
|
例如以下代碼放在按鈕的click事件中,如果按下按鈕不放, 就會不停插入記錄表中,如何控制按下按鈕不放情況也只插入一條記錄呢?
INSERT INTO test(partno)values('testing') |
|
回頂端 |
|
|
goto-dream
註冊時間: 2004-05-11 文章: 909
第 2 樓
|
|
回頂端 |
|
|
ufochen
註冊時間: 2003-09-17 文章: 165
第 3 樓
|
發表於: 星期三 二月 03, 2010 12:44 am 文章主題: |
|
|
我剛剛試了,Click()跟MouseDown(),兩個事件都按了約60秒,但沒有發生你說的情形,只有插入一筆記錄
OS : WINXP SP3 + VFP9 SP2 |
|
回頂端 |
|
|
goto-dream
註冊時間: 2004-05-11 文章: 909
第 4 樓
|
|
回頂端 |
|
|
raylian
註冊時間: 2006-08-09 文章: 25
第 5 樓
|
發表於: 星期三 二月 03, 2010 9:22 am 文章主題: |
|
|
goto-dream 寫到: | 去找 mouseXXXXX事件去做這些事情 |
首先感謝大家的指點, 其實我是想做一個抽獎程序, 由嘉賓按鍵抽獎,所以我必須控制一個ENTER鍵, 讓嘉賓按ENTER鍵開始,按ENTER鍵停止,但有的嘉賓電腦都沒有摸過, 那也不可能去使用鼠標,如果他按住ENTER鍵不放,那就會連繼抽几個出來, 這不是我想要看到的結果. |
|
回頂端 |
|
|
lurommou
註冊時間: 2003-10-30 文章: 26
第 6 樓
|
發表於: 星期三 二月 03, 2010 9:43 am 文章主題: |
|
|
在CLICK的第1行加上
this.enabled=.f. |
|
回頂端 |
|
|
goto-dream
註冊時間: 2004-05-11 文章: 909
第 7 樓
|
|
回頂端 |
|
|
raylian
註冊時間: 2006-08-09 文章: 25
第 8 樓
|
發表於: 星期三 二月 03, 2010 11:19 am 文章主題: |
|
|
lurommou 寫到: | 在CLICK的第1行加上
this.enabled=.f. |
加這行是行不通的, 當按鈕變灰色, 我又如何去停止呢? |
|
回頂端 |
|
|
syntech
註冊時間: 2003-05-16 文章: 4212 來自: Taipei,Taiwan
第 9 樓
|
發表於: 星期三 二月 03, 2010 11:22 am 文章主題: |
|
|
一般是加一個 flag 啦.
不過我對幫別人擦屁股沒興趣. _________________ 如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
回頂端 |
|
|
raylian
註冊時間: 2006-08-09 文章: 25
第 10 樓
|
發表於: 星期三 二月 03, 2010 11:27 am 文章主題: |
|
|
goto-dream 寫到: | 已經提示你了
加壹個 timer
text1=0
mousedown -->timer 執行 --> text1=text1+1
mousedown -->timer 不執行
是要寫個完整飯粒 給你嗎?? |
你意思是想用定時器,每按一次加1, 大於1就不執行? mousedown是鼠標事件,我要用鍵盤ENTER去控制, 一個人只少要按5次,如果判斷大於1就不做了, 那其它4次就不用抽了, 不知道你意思是否這樣呢? |
|
回頂端 |
|
|
goto-dream
註冊時間: 2004-05-11 文章: 909
第 11 樓
|
|
回頂端 |
|
|
syntech
註冊時間: 2003-05-16 文章: 4212 來自: Taipei,Taiwan
第 12 樓
|
發表於: 星期三 二月 03, 2010 11:44 am 文章主題: |
|
|
不要牽拖我. ^_^
基本上我認為出一張嘴是SA或是SD,也就是上面的人的工作.
身為程式設計師就是把上面的人出的點子具體作出來,
通常上面的人在出點子的時候,
他一邊說,我大概就在腦中勾勒怎麼實作出來的方式,以及瓶頸出現在哪邊,
他講完,我也差不多想完.
出來求救就表示程度不夠.
如果是求救架構或是原理,可能還情由可原,
對自己的點子求救,
表示你對工具不熟,也無法判斷什麼做法是有可行性的,
我就沒有興趣理,機會讓給別人 _________________ 如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
回頂端 |
|
|
andywilliams
註冊時間: 2004-10-23 文章: 111
第 13 樓
|
發表於: 星期三 二月 03, 2010 2:51 pm 文章主題: |
|
|
記住最後按enter時間,與本次比對,不超過3秒,程序不執行 |
|
回頂端 |
|
|
raylian
註冊時間: 2006-08-09 文章: 25
第 14 樓
|
發表於: 星期三 二月 03, 2010 4:49 pm 文章主題: |
|
|
andywilliams 寫到: | 記住最後按enter時間,與本次比對,不超過3秒,程序不執行 |
搞定了,使用以下代碼:
if inkey()=13
return
endif |
|
回頂端 |
|
|
|
|
您 無法 在這個版面發表文章 您 無法 在這個版面回覆文章 您 無法 在這個版面編輯文章 您 無法 在這個版面刪除文章 您 無法 在這個版面進行投票 您 無法 在這個版面附加檔案 您 無法 在這個版面下載檔案
|
|