標題: InputBox所開啟的視窗有辨法設在目前所有視窗的最上層嗎 [打印本頁]

---

作者: clio    時間: 2018-8-28 18:40     標題: InputBox所開啟的視窗有辨法設在目前所有視窗的最上層嗎

各位前輩，
小的有使用InputBox來開啟輸入視窗，目前有遇到，有時開啟時並沒有出現在最上層的視窗，變成是看到Excel在閃，再去點Excel才會出現視窗，是否有辨法可以讓InputBox開啟的視窗，直接在所有視窗的最上層呢？
還望知道怎麼解決的前輩給予指點，感謝您。

---

作者: faye59    時間: 2018-8-28 23:15

回復 1# clio


試試這個看能不能解決。

1. TopMost = True

複製代碼

---

作者: clio    時間: 2018-8-29 09:38

回復 2# faye59
Hi faye59大大
不好意思，我還是不太清楚怎麼使用說，能否再說明清楚一下呢？感謝您

---

作者: faye59    時間: 2018-9-1 21:11

回復 3# clio


    試試這個，沒有實際範例測試過不清楚是不是你想要的。

1. Sub ex()
   
2. TopMost = True 'true 表示要將該表單顯示為最上層的表單，否則為 false。 預設為 false。
   
3. x = InputBox("內文", "標題")
   
4. End Sub

複製代碼

如果不行將InputBox改成Form試試
新增"自訂表單"

1. Private Sub UserForm_Click()
   
2. Me.Top = True
   
3. End Sub

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)