返回列表下一主題上一主題發帖

[發問] 如何下指令可將所有視窗收起

yangjie

中學生 Rank: 2

帖子: 258
主題: 77
精華: 0
積分: 385
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-8-8
最後登錄: 2021-1-25

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2014-12-4 13:23 | 只看該作者

[發問] 如何下指令可將所有視窗收起

請教諸位版主大大:
VB中想在Sub Main() 的第一列下指令將所有視窗收到最下面的工作列裡
(目的讓接下來本程式所引發的視窗在最上層)
Sub Main()
指令 '將所有視窗收到最下面的工作列裡
Dim f1
f1 = App.EXEName
Dim fso, f As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(f1 & ".exe")
Dim n
n = fso.GetParentFolderName(f.Path)
Set objXLApp = CreateObject("Excel.Application")
objXLApp.Visible = True
objXLApp.Workbooks.Open (n & "\" & f1 & "資料庫\" & f1 & ".xls")
End Sub

敬請協助應如何下指令?
謝謝指導謝謝

樓主熱帖

yangjie

中學生 Rank: 2

帖子: 258
主題: 77
精華: 0
積分: 385
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-8-8
最後登錄: 2021-1-25

2^#

發表於 2014-12-8 15:40 | 只看該作者

如何使userform1出現為在最上頭的視窗?

請教大大:
我在桌面開一視窗(檔案總管)，
雙擊A.exe去啟動A.xls,
book_open before會自動執行application.visible=false,userform1.show
結果是因為userform1版面小,常躲在視窗(檔案總管)的後面，變看不到，
如何使userform1出現為在最上頭的視窗???
(目的不讓使用者誤以為不見了,以為沒有反應)
煩惱很久,敬請教導,謝謝

TOP

yangjie

中學生 Rank: 2

帖子: 258
主題: 77
精華: 0
積分: 385
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-8-8
最後登錄: 2021-1-25

3^#

發表於 2014-12-9 20:45 | 只看該作者

回復 1# yangjie
自行邊翻書邊try  發現此方法不錯  大家參考
Private Sub UserForm_Initialize()
      Dim mysh As Object
      Set mysh = CreateObject("Shell.Application")
      mysh.minimizeAll
      Set mysh = Nothing
End Sub

TOP

yangjie