可视化编程应用VisualBasic06 案例库 案例十二 将progressbar嵌入statusbar中.docx

《可视化编程应用VisualBasic06 案例库 案例十二 将progressbar嵌入statusbar中.docx》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、案例十二将progressbar嵌入statusbar中将progressbar嵌入statusbar中。PrivateDeclareFunctionSetParentLib(ByValhWndChildAsLong,ByVal_hWndNewParentAsLong)AsLongPrivateSubCommand1_Click()WithProgressBar1.Max=1000DimiAsIntegerFori=1To1000.Value=iNextiEndWithEndSubPrivateSubForm_Load()Progre

2、ssBar1.Appearance=ccFlatSetParentProgressBar1.hWnd,StatusBar1.hWndProgressBar1.Left=StatusBar1.Panels(1).LeftProgressBar1.Top=100ProgressBar1.Width=StatusBar1.Panels(1).Width-50ProgressBar1.Height=StatusBar1.Height-150EndSub'相对位置你可以自己再调一下。