標題: [發問] 如何下指令 可將所有視窗收起 [打印本頁]

---

作者: yangjie    時間: 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    時間: 2014-12-8 15:40     標題: 如何使userform1出現為在最上頭的視窗?

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

---

作者: yangjie    時間: 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

---

作者: yangjie    時間: 2014-12-9 20:47

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

---

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