操作过程动态显示

页面导航:首页 > 软件编程 > vb.net > 操作过程动态显示

操作过程动态显示

来源: 作者: 时间:2016-01-21 10:23 【

在程序设计中,经常遇到这种情况:计算机在处理大量数据时,用户等待处理结果,而此时的用户界面往往显得单调乏味。如果有一个能动态显示操作过程的进度条就好了,它既使用户
在程序设计中,经常遇到这种情况:计算机在处理大量数据时,用户等待处理结果,而此时的用户界面往往显得单调乏味。如果有一个能动态显示操作过程的进度条就好了,它既使用户界面具有动感,又增加了程序的趣味性。笔者用VB5.0编制应用时,分别用VB5.0的进度条控件和滑动片控件,以及API函数BitBlt()三种方法实现操作过程动态显示。实现效果如图所示。现用两个应用实例说明如下。
★应用实例一:用VB5.0的进度条控件和滑动片控件分别实现操作过程动态显示。
(1)插入进度条控件和滑动片控件的方法:在VB5.0主菜单的“工程"项中,选择“部件(0)",在弹出的控件栏中,双击“MicrosoftWindowsCommonControl5.0"项,按“确定"键返回。那么在窗体工具箱中就有了上述控件。
(2)建立含有如下控件的窗体:
控件NAMECAPTIONINTERVALMAXFONTFORECOLOR
窗体FORM1用VB5.0实现操作过程动态显示
进度条PROGRESSBAR1100
滑动片SLIDER1100
计时器TIMER150
标签LABEL1宋体(小四)&H00FF0000&(蓝色)
标签LABEL2宋体(小四)&H00FF0000&(蓝色)
命令按钮COMMAND1退出
(3)输入计时器的程序代码:
PrivateSubTimer1_Timer()
StaticcountAsInteger
count=count+1
Label1.Caption=Str$(count)+“%"进度条显示百分比
Label2.Caption=Str$(count)+“%"滑动片显示百分比
Ifcount=100Then
count=0
Else
ProgressBar1.Value=count
Slider1.Value=count
EndIf
EndSub
(4)输入退出按钮的程序代码:
PrivateSubCommand1_Click()
End
EndSub
★应用实例二:用VB5.0的API函数BitBlt()实现操作过程动态显示。
BitBlt()函数格式:
PrivateDeclareFunctionBitBltLib“gdi32"(ByValhDestDCAsLong,ByValxAsLong,ByValyAsLong,ByValnWidthAsLong,ByValnHeightAsLong,ByValhSrcDCAsLong,ByValxSrcAsLong,ByValySrcAsLong,ByValdwRopAsLong)AsLong
该函数将点位图从由hSrcDC参数给出的源设备上拷贝到由hDestDC参数给出的目标设备上。xSrc,ySrc指出被移动的点位图在源设备上的原点坐标。X,y,nWidth,nHeight指出目标设备的原点坐标、宽度和高度。dwRop参数定义源位图和目标位图是如何结合的。参数值&HCC0020表示将源位图复制到目标位图上。
(1)建立含有如下控件的窗体:
控件NAMECAPTIONINTERVALFORECOLORBACKCOLOR窗体FORM1用BitBlt()函数实现操作过程动态显示
图片框PICTURE2&H00FFFFFF&(白色)&H00FF0000&(蓝色)
图片框PICTURE1&H00000000&(黑色)&H00FFFFFF&(白色)
计时器TIMER110
命令按钮COMMAND1退出
(2)定义窗体级函数和常量:
OptionExplicit
PrivateDeclareFunctionBitBltLib“gdi32"(ByValhDestDCAsLong,ByValxAsLong,ByValyAsLong,ByValnWidthAsLong,ByValnHeightAsLong,ByValhSrcDCAsLong,ByValxSrcAsLong,ByValySrcAsLong,ByValdwRopAsLong)AsLong
Constsrccopy=&HCC0020
(3)输入窗体装入的程序代码:
PrivateSubForm_Load()
Picture2.Width=Picture1.Width
Picture2.Height=Picture1.Height
EndSub
(4)输入计时器的程序代码:
PrivateSubTimer1_Timer()
Staticcounts,rAsInteger
StatichhAsSingle
StaticpercentAsString
hh!=counts/100
percent$=Format(hh!,“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软硬件环境下运行通过。->
Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <