標題: [發問] VB有無辦法使檔案總管資料夾視窗自動縮至最小化 [打印本頁]

---

作者: yangjie    時間: 2017-11-27 23:28     標題: VB有無辦法使檔案總管資料夾視窗自動縮至最小化

請教諸位大大
如下列 在VB6.0下 製成  exe執行檔
Option Explicit
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)
    Dim objXLApp
    Set objXLApp = CreateObject("Excel.Application")
    objXLApp.Visible = True
    Dim objXLBook
    Set objXLBook = objXLApp.Workbooks.Open(n & "\" & f1 & "資料庫\" & f1 & ".xls")
    Set objXLBook = Nothing
    Set objXLApp = Nothing
    Set fso = Nothing
    Set n = Nothing
    Set f = Nothing
End Sub
若想執行該執行檔時
檔案總管資料夾視窗總是擋住所開出的表單
VB有無辦法 或語法加入上述內
使檔案總管資料夾視窗或其他視窗自動縮至最小化
請大家賜教   謝謝指導  (有點急)

---

作者: yangjie    時間: 2017-11-29 14:49

回復 1# yangjie
應該說
用VB開一個Excel檔
程式碼一開頭要使桌面上其他所有視窗縮小至螢幕最下一列(有如使此Excel檔
在最上一層亦可)

---

作者: yangjie    時間: 2017-12-9 23:50

回復 1# yangjie
找到了,只要加上
CreateObject("Shell.Application").MinimizeAll
即可
供大家參考

---

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