国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學院 > 開發設計 > 正文

操作過程動態顯示

2019-11-18 17:26:35
字體：大 中 小
來源：轉載
供稿：網友
在程序設計中，經常遇到這種情況：計算機在處理大量數據時，用戶等待處理結果，而此時的用戶界面往往顯得單調乏味。如果有一個能動態顯示操作過程的進度條就好了，它既使用戶界面具有動感，又增加了程序的趣味性。筆者用VB5.0編制應用系統時，分別用VB5.0的進度條控件和滑動片控件，以及API函數BitBlt()三種方法實現操作過程動態顯示。實現效果如圖所示。現用兩個應用實例說明如下。
★應用實例一:用VB5.0的進度條控件和滑動片控件分別實現操作過程動態顯示。
(1)插入進度條控件和滑動片控件的方法:在VB5.0主菜單的“工程"項中,選擇“部件(0)",在彈出的控件欄中,雙擊“MicrosoftWindowsCommonControl5.0"項，按“確定"鍵返回。那么在窗體工具箱中就有了上述控件。
(2)建立含有如下控件的窗體：
控件NAMECAPTIONINTERVALMAXFONTFORECOLOR
窗體FORM1用VB5.0實現操作過程動態顯示
進度條Picture1.Cls
Picture2.Cls
Picture1.CurrentX=(Picture1.Width－Picture1.TextHeight(percent＄))/2
Picture2.CurrentX=Picture1.CurrentX
Picture1.CurrentY=(Picture1.Height－Picture1.TextHeight(percent＄))/2
Picture2.CurrentY=Picture1.CurrentY
Picture1.Printpercent＄
Picture2.Printpercent＄
r％=BitBlt(Picture1.hDC,0,0,Picture2.Width＊hh!,Picture2.Height,Picture2.hDC,0,0,srccopy)
counts=counts＋1
Ifcounts=100Then
counts=0
EndIf
EndSub
(5)輸入退出按鈕的程序代碼:
PrivateSubCommand1_Click()
End
EndSub
上述程序在同創P/200,中文Windows95、WindowsNT4.0,VisualBasic5.0軟硬件環境下運行通過。->

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 抚松县| 明光市| 正镶白旗| 秦安县| 根河市| 浦北县| 班玛县| 茂名市| 得荣县| 友谊县| 黑河市| 广元市| 宁安市| 芦溪县| 四会市| 同德县| 水富县| 涞水县| 宁德市| 兴文县| 崇明县| 宝鸡市| 中超| 高台县| 兖州市| 临夏市| 北流市| 青铜峡市| 肥城市| 龙里县| 静安区| 铜鼓县| 义马市| 彭水| 奉新县| 绥滨县| 成安县| 错那县| 怀集县| 沛县| 潼关县|