【VB新手向】自制进度条

0xAA55

进度条的作用就是显示一个进度，我觉得这东西我们没必要做得和别的程序一样。不就是个UI么。
要有自己的个性，没必要跟风，微软提供的那个进度条问题很多。不如自己做一个这种东西。

图中的这个进度条是用图片框和命令按钮做的。很美观，而且也起到了显示进度的功能，也很简单。

1. VERSION 5.00
   
2. Begin VB.Form frmMain
   
3.    BorderStyle     =   1  'Fixed Single
   
4.    Caption         =   "自制进度条"
   
5.    ClientHeight    =   1095
   
6.    ClientLeft      =   45
   
7.    ClientTop       =   375
   
8.    ClientWidth     =   4575
   
9.    LinkTopic       =   "Form1"
   
10.    MaxButton       =   0   'False
    
11.    ScaleHeight     =   73
    
12.    ScaleMode       =   3  'Pixel
    
13.    ScaleWidth      =   305
    
14.    StartUpPosition =   3  '窗口缺省
    
15.    Begin VB.HScrollBar HSValue
    
16.       Height          =   255
    
17.       LargeChange     =   2048
    
18.       Left            =   120
    
19.       TabIndex        =   2
    
20.       TabStop         =   0   'False
    
21.       Top             =   720
    
22.       Width           =   4335
    
23.    End
    
24.    Begin VB.PictureBox picProgress
    
25.       Height          =   255
    
26.       Left            =   120
    
27.       ScaleHeight     =   13
    
28.       ScaleMode       =   3  'Pixel
    
29.       ScaleWidth      =   285
    
30.       TabIndex        =   0
    
31.       Top             =   120
    
32.       Width           =   4335
    
33.       Begin VB.CommandButton cmdProgress
    
34.          Enabled         =   0   'False
    
35.          Height          =   195
    
36.          Left            =   0
    
37.          Style           =   1  'Graphical
    
38.          TabIndex        =   1
    
39.          Top             =   0
    
40.          Width           =   735
    
41.       End
    
42.    End
    
43.    Begin VB.Label lblPrompt
    
44.       AutoSize        =   -1  'True
    
45.       Caption         =   "拖动下面的这个滚动条可以看到上面的进度条的变化。"
    
46.       Height          =   180
    
47.       Left            =   120
    
48.       TabIndex        =   3
    
49.       Top             =   480
    
50.       Width           =   4320
    
51.    End
    
52. End
    
53. Attribute VB_Name = "frmMain"
    
54. Attribute VB_GlobalNameSpace = False
    
55. Attribute VB_Creatable = False
    
56. Attribute VB_PredeclaredId = True
    
57. Attribute VB_Exposed = False
    
58. Option Explicit
    
59. 
    
60. Private Sub Form_Load()
    
61. SetProgressValue 0
    
62. End Sub
    
63. 
    
64. Sub SetProgressValue(ByVal Value As Double)
    
65. cmdProgress.Width = Value * picProgress.ScaleWidth
    
66. End Sub
    
67. 
    
68. Private Sub HSValue_Change()
    
69. SetProgressValue CDbl(HSValue.Value) / HSValue.Max
    
70. End Sub
    
71. 
    
72. Private Sub HSValue_Scroll()
    
73. HSValue_Change
    
74. End Sub

复制代码

SRC: 自制进度条.7z (4.13 KB, 下载次数: 5, 售价: 1 个宅币)

2014-7-29 16:14 上传

点击文件名下载附件

搬砖工

这个还不错

xiawan

论坛有你真的精彩~