VB6的一个奇技淫巧

网上找到的一段代码，某个高人写的，太牛逼了。貌似是百度贴吧VB6，精巧犀利。。。。。

https://tieba.baidu.com/p/4731580018

VB6这么老旧的语言平台，不要以为很垃圾，有时候写精巧小代码还是一个很顺手的得力工具。

回归正题，直接用一个原生PictiureBox控件生成自定义进度条，不再依赖外部MSCOMCTL.OCX控件。不但能模拟彩色进度条，还支持字符反显！！！

Public Sub SetProgress(PBar As PictureBox, ByVal Value As Long, ByVal Max As Long, Optional ByVal Describe As String = "")
Dim showText As String
Dim drawLength As Long
drawLength = (Value * PBar.ScaleWidth / Max)
If Describe = "" Then
showText = Format(Value * 100 / Max, "#0.00") & "%"   '改小数点
Else
showText = Describe
End If With PBar
.AutoRedraw = True
.Cls
.CurrentX = (.ScaleWidth - .TextWidth(showText)) / 2
.CurrentY = (.ScaleHeight - .TextHeight(showText)) / 2
.FontBold = True
PBar.Print showText .DrawMode = 8
PBar.Line (0, 0)-(drawLength, .ScaleHeight), Not RGB(51, 153, 255), BF   '改背景色
.AutoRedraw = False
.Refresh
End With
End Sub

效果：

VB6的一个奇技淫巧相关推荐

office插件开发_[插件开发]用VB6开发一个插件同时给32位和64位Office使用
VB6只能编译32位DLL 目前已经有部分用户开始使用64位Office了用VB6给64位Office写插件将是一个痛苦的事所以很多开发者都望而却步,在没有转.net正营的前提下,都会告知用户,产 ...
【数学】一个奇技淫巧：如果用一枚硬币生成任意概率——比如1/π？
刚才舍友拿Matrix67博客里的一个问题来考我--如果用一枚硬币产生1/π的概率,没想出来怎么做,看了下解答感觉非常简单而且巧妙. Matrix67原博客里的文章--26 个比较概率大小的问题,这个 ...
用VB6编写一个日志编辑器
P.S.我是一个写代码很懒的孩纸,懒得写函数,也懒得加注释,敬请谅解
一个“蝇量级” C 语言协程库
协程(coroutine)顾名思义就是"协作的例程"(co-operative routines).跟具有操作系统概念的线程不一样,协程是在用户空间利用程序语言的语法语义就能实现逻 ...
VB6 调用 Nim 生成的 DLL
2019独角兽企业重金招聘Python工程师标准>>> 关于 Nim Nim 是德国人开发的编程语言,最初叫 Nimrod.Nim 有下面几个特点: 强制缩进语法 AST 操控编 ...
老歌新唱--使用VB6开发的ActiveX实现.NET程序的混淆加密
代码下载地址:http://files.cnblogs.com/wuhuacong/VBActiveX.rar 由于存在一下几种特点: 1..NET程序反编译容易,而使用一些混淆工具会导致有些程序不能 ...
VB6.0如何使用正则表达式
VB6.0如何使用正则表达式最近在用VB6解决一个网页解析的应用,涉及到了正则.如何在VB6中使用正则表达式,这个在MS网站上有介绍,不过介绍的不是很全面.下面结合MS网站的内容和搜索到的东西,自己 ...
基金指数温度怎么算_投资指数基金的奇技淫巧——指数温度实战详解
本文首发于公众号:下班经济学什么是指数温度很多朋友都已经认识到普通人,上班族,投资小白要想要在投资中获得可观的收益最好的方法就是投资股票指数基金.虽然定时定额的投资,即我们经常听到的"定 ...
手写一个微前端框架（内含源码地址）
来源:伊撒尔 https://zhuanlan.zhihu.com/p/169800579 halo,大家好,我是 132,前阵子冥思了一会儿微前端,然后周六日趁热打铁,马上写了一个微前端框架,名叫 ...

VB6的一个奇技淫巧

VB6的一个奇技淫巧相关推荐

最新文章

热门文章