標題: [發問] 如何使該資料夾畫面縮小至(幕後)螢幕最下一列或(消失) [打印本頁]

---

作者: yangjie    時間: 2017-12-1 01:00     標題: 如何使該資料夾畫面縮小至(幕後)螢幕最下一列或(消失)

本帖最後由 yangjie 於 2017-12-1 01:03 編輯

就教於先進們
用VB製作開一個exe執行檔
可否在VB程式碼中  Sub Main()..........
一開頭要使螢幕上其他所有總管視窗縮小至螢幕最下一列
因為要執行exe執行檔一定要先打開資料夾
然後再exe執行檔上點兩下執行exe
如何使該資料夾畫面(縮小至螢幕最下一列)或(消失)
而使新執行的form呈現在最上層
而VB語法為?
實在是嘗試多次失敗'
求救無門,就教於先進們版主們
謝謝指導

---

作者: adrian_9832    時間: 2017-12-1 08:28

我覺得思維上你有些誤區  應該以run 或 call 的形式 起動exe   
而你現在的想法是以腳本形式來發動 ; 若堅持要以腳本形式起動exe
vb 不是一個好的腳本語言  你可以考慮其他比較上簡單的

---

作者: yangjie    時間: 2017-12-1 09:14

本帖最後由 yangjie 於 2017-12-1 09:23 編輯

回復 2# adrian_9832
主要是要跳離Excel安全性選項
如下
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
    Dim objXLBook
    Set objXLApp = CreateObject("Excel.Application")
    objXLApp.Visible = True
    Set objXLBook = objXLApp.Workbooks.Open(n & "\M1 資料庫\" & f1 & ".xls")
End Sub
VB可有法子處裡資料夾畫面或使所開Excel為最上層?
(若用*.xls直接開,所開Excel為最上層沒問題)
(次要我在處裡一個1.xls 可讓兩人同時開,處理2.xls資料而閃避唯讀)

---

作者: adrian_9832    時間: 2017-12-1 10:25

本帖最後由 adrian_9832 於 2017-12-1 10:28 編輯

其實我不太懂你想做什麼.........
只知道你希望把window 畫面上所有的畫面/程式/資料夾 都收起 , 就好比顯示桌面的功能   
或者是 把你自己設計的from 呈現 在 最上表層 即是在winactive  是吧?

以vb 的方向 你可以找一下always on top 的功能    always on top 即是 總在最前面 無論你打開什麼軟件 你有always on top那個總在最前面 不會被蓋過
我只以腳本上的語言嘗試過 ; vb 沒實際試驗過

---

作者: yangjie    時間: 2017-12-9 13:32

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

---

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