返回列表 上一主題 發帖

[發問] VB有無辦法使檔案總管資料夾視窗自動縮至最小化

[發問] 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有無辦法 或語法加入上述內
使檔案總管資料夾視窗或其他視窗自動縮至最小化
請大家賜教   謝謝指導  (有點急)

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

TOP

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

TOP

        靜思自在 : 好事要提得起,是非要放得下,成就別人即是成就自己。
返回列表 上一主題