返回列表 上一主題 發帖

[發問] 請教TextBox輸入錯誤如何回到原位置

准提部林

帖子
2848 
主題
10 
精華
0 
積分
2903 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2026-7-25 
1# 跳轉到 »
發表於 2015-8-31 19:16 | 顯示全部帖子
回復 2# koo

Cancel = True 即可取消Exit動作, 讓駐點留在原位,
但加個Msgbox後, 駐點整個消失不見了!
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1 = 1 Then
　Cancel = True
　TextBox1 = ""
　MsgBox "ERROR"　'消除此行再試看看
Else
　MsgBox "通過"
End If
End Sub
　
但題主用的是KeyDown事件，Enter後駐點已移位，回不了頭的！
　

TOP

准提部林

帖子
2848 
主題
10 
精華
0 
積分
2903 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2026-7-25 
2#
發表於 2015-9-1 12:13 | 顯示全部帖子
回復 4# GBKEE


好個 KeyCode = True, 多收一招!
不過 MSGBOX 後, 駐點還是看不到, 不知是否版本問題(XP + 2000)?

TOP

准提部林

帖子
2848 
主題
10 
精華
0 
積分
2903 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2026-7-25 
3#
發表於 2015-9-1 13:28 | 顯示全部帖子
回復 6# GBKEE

加那兩行也是沒用, MSGBOX後, 駐點完全消失~~
為了克服這個問題, 以前都在Form下方加個Label做為說明提示及警告用(多個beep音效),
也乾脆輸入完成後, 在登錄按鈕時再執行前置檢查, 完全正確再後續工作,
有時在工作表設計成類輸入表單, 反而更好用~~

TOP

        靜思自在 : 口說一句好話，如口出蓮花；口說一句壞話如口吐毒蛇。
返回列表 上一主題