^^ 创建setup类型的进度条(vb6)
来源:互联网 发布:mac怎样取消开机密码 编辑:程序博客网 时间:2024/06/06 02:07
<script type="text/javascript"><!--google_ad_client = "pub-2947489232296736";/* 728x15, 创建于 08-4-23MSDN */google_ad_slot = "3624277373";google_ad_width = 728;google_ad_height = 15;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>
<script type="text/javascript"><!--google_ad_client = "pub-2947489232296736";/* 160x600, 创建于 08-4-23MSDN */google_ad_slot = "4367022601";google_ad_width = 160;google_ad_height = 600;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>
- 新建一个工程
- 增加一个picture box和command button
加入下面的代码:Dim tenth As Long'条件编译#If Win32 ThenPrivate Declare Function BitBlt Lib "gdi32" _(ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, _ByVal nWidth As Long, ByVal nHeight As Long, _ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, _ByVal dwRop As Long) As Long#ElsePrivate Declare Function BitBlt Lib "GDI" (ByVal hDestDC As _Integer, ByVal x As Integer, ByVal y As Integer, ByVal nWidth _As Integer, ByVal nHeight As Integer, ByVal hSrcDC As Integer, _ByVal xSrc As Integer, ByVal ySrc As Integer, ByVal dwRop As _Long) As Integer#End IfSub UpdateStatus(FileBytes As Long)'--------------------------------------------------------------------' 更新Picture1 status bar'-------------------------------------------------------------------- Static progress As Long Dim r As Long Const SRCCOPY = &HCC0020 Dim Txt$ progress = progress + FileBytes If progress > Picture1.ScaleWidth Then progress = Picture1.ScaleWidth End If Txt$ = Format$(CLng((progress / Picture1.ScaleWidth) * 100)) + "%" Picture1.Cls Picture1.CurrentX = _ (Picture1.ScaleWidth - Picture1.TextWidth(Txt$)) 2 Picture1.CurrentY = _ (Picture1.ScaleHeight - Picture1.TextHeight(Txt$)) 2 Picture1.Print Txt$ Picture1.Line (0, 0)-(progress, Picture1.ScaleHeight), _ Picture1.ForeColor, BF r = BitBlt(Picture1.hDC, 0, 0, Picture1.ScaleWidth, _ Picture1.ScaleHeight, Picture1.hDC, 0, 0, SRCCOPY)End SubPrivate Sub Command1_Click() Picture1.ScaleWidth = 109 tenth = 10 For i = 1 To 11 Call UpdateStatus(tenth) x = Timer While Timer < x + 0.75 DoEvents Wend NextEnd SubPrivate Sub Form_Load() Picture1.FontBold = True Picture1.AutoRedraw = True Picture1.BackColor = vbWhite Picture1.DrawMode = 10 Picture1.FillStyle = 0 Picture1.ForeColor = vbBlueEnd Sub
- F5 运行, 点击 Command1就可以看到效果.
<script type="text/javascript"><!--google_ad_client = "pub-2947489232296736";/* 160x600, 创建于 08-4-23MSDN */google_ad_slot = "4367022601";google_ad_width = 160;google_ad_height = 600;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>
- ^^ 创建setup类型的进度条(vb6) ^^
- ^^ 创建setup类型的进度条(vb6) ^^
- ^^ 创建setup类型的进度条(vb6)
- 双色进度条控件,很酷的效果 开发:VB6
- VB6调用Windows7任务栏进度条的ITaskbarList3接口
- 【原创】VB6.0应用程序安装包的生成(Setup Factory 9.0制作安装包的方法)
- 进度条的创建与使用
- Android ProgressBar进度条的创建
- bootstrap创建带遮罩层的进度条
- INNO SETUP数据库的连接与创建
- VB6--RECORDSET游标类型
- VB6中ByRef 参数类型不正确的处理方法
- VB6 自动创建 ODBC
- 【VB6】动态创建RichTextBox
- vb6.0 excel连接的创建,内容的读取
- 利用vb6创建一个简单的ole db提供者
- 解决vb6 Active不能创建对象的方法
- vb6创建子进程并等待子进程的退出。
- XML初学进阶学习笔记(6)
- 一种调用Win95 API实现串行通信的查询方法
- XML初学进阶学习笔记(4)
- 一段精简的使用 ADODB.Stream 读写"大字段"的 VB 代码
- XML初学进阶学习笔记(3)
- ^^ 创建setup类型的进度条(vb6)
- XML初学进阶学习笔记(2)
- 怎样让移动图像显示更快一些...
- XML初学进阶学习笔记(1)
- 开发基于XML的留言板
- 用VB进行多媒体程序设计初步
- xml中的空格之完全解说
- 使用Win95的动画光标
- 如何建立一个 XML 的开发环境