国产探花免费观看_亚洲丰满少妇自慰呻吟_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軟硬件環境下運行通過。->

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 文安县| 鹤庆县| 涿鹿县| 扶风县| 仪征市| 肥东县| 镇原县| 平昌县| 海林市| 观塘区| 崇阳县| 昌宁县| 渝北区| 深州市| 东台市| 赤水市| 竹山县| 唐海县| 兴安盟| 阳曲县| 和硕县| 冕宁县| 南阳市| 乌鲁木齐县| 穆棱市| 台东县| 太原市| 含山县| 平阳县| 桂林市| 甘谷县| 京山县| 广元市| 陇川县| 湟源县| 大新县| 张家口市| 黔江区| 望谟县| 姜堰市| 贵港市|