如何在程序中加入进度条呢

Option:

OptionPublic

声明部分(Declaration)

DeclarePublicFunctionNEMProgressBeginLib\"l\"(ByvalwFlagsAsInteger)AsLong

DeclarePublicSubNEMProgressDeltaPosLib\"l\"(ByvalhwndAsLong,ByvaldwIncrementAsLong)

DeclarePublicSubNEMProgressEndLib\"l\"(ByvalhwndAsLong)

一开始都需要选择语言 DeclarePublicSubNEMProgressSetBarPosLib\"l\"(ByvalhwndAsLong,ByvaldwPosAsLong)

DeclarePublicSubNEMProgressSetBarRangeLib\"l\"(ByvalhwndAsLong,ByvaldwMaxAsLong)

DeclarePublicSubNEMProgressSetTextLib\"l\"(ByvalhwndAsLong,ByvalpcszLine1AsLmbcsString,ByvalpcszLine2AsLmbcsString)

ConstNPB_TWOLINE=3

ConstNPB_ONELINE=2

PublicClassLNProgressbar

hwndAsLong

SubNew(SecondLineVisibleAsInteger)

\'Set-uptheprogressbaronthescreen

IfSecondLineVisibleThen

hwnd=NEMProgressBegin(NPB_TWOLINE)

Else

hwnd=NEMProgressBegin(NPB_ONELINE)

EndIf

EndSub

SubSetText(FirstLineTextAsString,SecondLineTextAsString)

\'Displaythetextinprogressbar

NemProgressSetTexthwnd,FirstLineTExt,SecondLineText

EndSub

SubSetProgressPos(ProgressposAsLong)

NEMProgressSetBarPoshwnd,ProgressPos

EndSub

SubSetProgressRange(ProgressMaxElementsAsLong)

\'Set-upthemaxelementsintheprogressbar,ifyouhave

\'alistwith230elementsthensettheMAXto230elements.

\'ForeveryelementyouproceedincreasetheSetProgressPos

\'byonetoreached230

NEMProgressSetBarRangehwnd,ProgressMaxElements

EndSub

SubDeltaPos(DPosAsLong)

\'ThisfunctionaddsthenumberinDPOStothecurrentProgressPos

NEMProgressDeltaPoshwnd,DPos

EndSub

SubDelete

\'Terminatetheprogressbaronthescreen

NEMProgressEndhwnd

EndSub

EndClass

操作按钮的Click事件:

SubClick(SourceAsButton)

DimpbAsNewLNProgressBar(True)

DimiAsLong

tText(\"这是一个测试\",\"来自\")

\'settherangeto10000elements

tProgressRange(10000)

Fori=1To10000

\'processtheelements

tProgressPos(i)

Next

\'Terminatetheprogressbar

Deletepb

EndSub