純API自繪窗體的進度條類，廢話少說，直接上代碼

這個進度條類的調用方式：

Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hParent As Long, ByVal hChildAfter As Long, ByVal sClass As String, ByVal sTitle As String) As LongPrivate c As cProgressBarPrivate m_hWnd As LongPrivate Function StatusBarHWnd() As Long '獲取Excel2010的狀態欄句柄 Dim hWnd& hWnd = Application.hWnd hWnd = FindWindowEx(hWnd, 0&, "Excel2 與50位技術專家面對面20年技術見證，附贈技術全景圖

總結

以上是生活随笔為你收集整理的vbs获取程序窗体句柄_[VBA][高阶应用][类模块]自绘窗体进度条类cProgressBar.cls的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。