十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
visual basic 本身的问题,
创新互联-专业网站定制、快速模板网站建设、高性价比保德网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式保德网站制作公司更省心,省钱,快速模板网站建设找我们,业务覆盖保德地区。费用合理售后完善,十载实体公司更值得信赖。
win7不支持VB是误导的,我很不明白楼上为什呢这么说。微软官方声称win7是支持VB6的最后一个windows版本,会提示兼容性问题,不过可以通过直接忽略强制安装解决。我的win7 装的visual basic6.0 截图如下:
也就是说,跟操作系统没关系,你只要下载一个比较好的vb6,肯定没问题。
1、点击系统菜单“工具”->“选项”,调出选项对话匡后选择“控件”页,再选择ActiveX控件,选定列表栏里的Microsoft ProgressBar Control控件,一般里面有两个版本的,分别是V5.0(SP2)和v6.0。建议用V5.0(SP2)版的,这个控件的风格可以根据WIN的主题风格的变化而变化,而V6.0是固定的一个格子一个格子的跳。
选定后,前面的小匡内会有个‘X’,点确定。
Private Sub Command1_Click()
Dim A As Double
Dim B As Double
Dim C As Double
Dim D
Dim p As Single
ProgressBar1.Min = 0
ProgressBar1.Max = 1000
ProgressBar1.Value = ProgressBar1.Min
ProgressBar1.Scrolling = ccScrollingSmooth
' 定义 进度条 最小值,最大值,当前进度 和样式
Dim Mx As Long
Mx = 1000000
For A = 1 To Mx
For B = 1 To 10000000
C = B + A
Next B
If A Mod (Mx / ProgressBar1.Max) = 1 Then
' 不需要每次都做, 只要进行到某个时候做一次就好了.
' 计算出当前进度
ProgressBar1.Value = A * ProgressBar1.Max \ Mx
DoEvents
End If
Next A
ProgressBar1.Value = ProgressBar1.Max
' 最后, 进度=进度条最大值.
MsgBox C
End Sub
你试运行的循环数量大 程序可能会有点慢, 要等他一下才看到效果,
或者把内循环设置成 100 效果会好一点
我给你个建议
第一 可以写一个导入的类调用导入 蛮麻烦 但快捷
第二 可以用js 但不保证每种浏览器支持
呵呵 至于实现 我不知道你的代码具体怎样
需要帮助 给我百度消息 我一定回复!