纯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