返回列表 上一主題 發帖

[發問] 有關 TextBox1_Exit(...)會run 2次

ltc

帖子
49 
主題
15 
精華
0 
積分
70 
點名
0  
作業系統
W7 
軟體版本
IE8 
閱讀權限
20 
性別
男 
註冊時間
2010-10-10 
最後登錄
2014-5-10 

論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-10-24 15:49 | 只看該作者

[發問] 有關 TextBox1_Exit(...)會run 2次

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    TextBox3.SetFocus
    MsgBox "為何我會出現兩次，一定要嗎 ?，我只想出現一次阿"
End Sub

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    MsgBox "這邊為何我又只出現一次 ?"
End Sub

Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)

End Sub

煩請各位大大解惑一下
感恩
收藏 分享

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
259  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-30 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2010-10-24 16:17 | 只看該作者
本帖最後由 Hsieh 於 2010-10-24 21:28 編輯

回復 1# ltc
  1. Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  2.    MsgBox "為何我會出現兩次，一定要嗎 ?，我只想出現一次阿"
  3. End Sub

  5. Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  6.     MsgBox "這邊為何我又只出現一次 ?"
  7. End Sub

  9. Private Sub UserForm_Initialize()
  10.   TextBox3.AutoTab = False: TextBox2.AutoTab = False
  11.   TextBox3.TabIndex = TextBox1.TabIndex + 1
  12.   TextBox2.TabIndex = TextBox3.TabIndex + 1
  13. End Sub
複製代碼
學海無涯_不恥下問

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
3#
發表於 2010-10-24 16:33 | 只看該作者
本帖最後由 GBKEE 於 2010-10-24 16:34 編輯

Hsieh版主的方法很好
回復 1# ltc
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    TextBox3.SetFocus 刪掉就可以
    MsgBox "為何我會出現兩次，一定要嗎 ?，我只想出現一次阿"
End Sub
原因:
離開TextBox1, 待選擇控制項後時執行一次TextBox1_Exit .
但控制項是TextBox2 時 TextBox3.SetFocus  會使駐點再回到 TextBox1 又一執行TextBox1_Exit
控制項是TextBox3 時 TextBox3.SetFocus ,不會使駐點再回到 TextBox1,就不會在執行TextBox1_Exit

TOP

ltc

帖子
49 
主題
15 
精華
0 
積分
70 
點名
0  
作業系統
W7 
軟體版本
IE8 
閱讀權限
20 
性別
男 
註冊時間
2010-10-10 
最後登錄
2014-5-10 

論壇贊助勳章
4#
發表於 2010-10-24 17:12 | 只看該作者
Hsieh 版主太感謝您了，差點被SetFocus給搞死

也感謝GBKEE 版主的補充

感恩

TOP

        靜思自在 : 做該做的事是智慧，做不該做的事是愚癡。
返回列表 上一主題