返回列表 上一主題 發帖

InputBox所開啟的視窗有辨法設在目前所有視窗的最上層嗎

clio

帖子
132 
主題
31 
精華
0 
積分
167 
點名
0  
作業系統
XP 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
Taipei 
註冊時間
2011-4-14 
最後登錄
2024-2-28 

2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章
1# 跳轉到 » 正序看帖
打印
tT
發表於 2018-8-28 18:40 | 只看該作者

InputBox所開啟的視窗有辨法設在目前所有視窗的最上層嗎

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

faye59
　暱稱: 温奇
　頭銜: 議論者

中學生Rank: 2

帖子
104 
主題
5 
精華
0 
積分
110 
點名
0  
作業系統
win7 
軟體版本
Office2007 
閱讀權限
20 
性別
男 
註冊時間
2017-11-14 
最後登錄
2019-4-30 

論壇榮譽勳章論壇贊助勳章
4#
發表於 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
複製代碼
一分努力，一分收穫。
發問題前可以先搜索內文是否有相關範例。

TOP

clio

帖子
132 
主題
31 
精華
0 
積分
167 
點名
0  
作業系統
XP 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
Taipei 
註冊時間
2011-4-14 
最後登錄
2024-2-28 

2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章
3#
發表於 2018-8-29 09:38 | 只看該作者
回復 2# faye59
Hi faye59大大
不好意思，我還是不太清楚怎麼使用說，能否再說明清楚一下呢？感謝您
clio

TOP

faye59
　暱稱: 温奇
　頭銜: 議論者

中學生Rank: 2

帖子
104 
主題
5 
精華
0 
積分
110 
點名
0  
作業系統
win7 
軟體版本
Office2007 
閱讀權限
20 
性別
男 
註冊時間
2017-11-14 
最後登錄
2019-4-30 

論壇榮譽勳章論壇贊助勳章
2#
發表於 2018-8-28 23:15 | 只看該作者
回復 1# clio


試試這個看能不能解決。
  1. TopMost = True
複製代碼
一分努力，一分收穫。
發問題前可以先搜索內文是否有相關範例。

TOP

        靜思自在 : 【蒙蔽的自由】人常在什麼都可以自由自在的時候，卻被這種隨心所欲的自由蒙蔽，虛擲時光而毫無覺知。
返回列表 上一主題