在线急等,vb进度条怎么使用?
前些时间在网上看见一篇用pic控件制作进度条的文章,照此试了一下觉得非常不错,要是会Photoshop的朋友很容易做出非常漂亮的进度条。这里特奉献给大家。 步骤一:在窗体上绘制一个PictureBox,按自己的喜爱设置其背景色并调整其宽度和长度,将其命名为picProgress; 步骤二:按如下所述绘制另一个PictureBox。 右键单击picProgress,选取“复制”,在picProgress区域内再次单击右键,选取“粘贴”,在弹出的询问对话框中单击“否”。将新绘制的PictureBox更名为picFill,注意将其背景色设置成与picProgress不同的颜色 步骤三:缺...全部
前些时间在网上看见一篇用pic控件制作进度条的文章,照此试了一下觉得非常不错,要是会Photoshop的朋友很容易做出非常漂亮的进度条。这里特奉献给大家。 步骤一:在窗体上绘制一个PictureBox,按自己的喜爱设置其背景色并调整其宽度和长度,将其命名为picProgress; 步骤二:按如下所述绘制另一个PictureBox。
右键单击picProgress,选取“复制”,在picProgress区域内再次单击右键,选取“粘贴”,在弹出的询问对话框中单击“否”。将新绘制的PictureBox更名为picFill,注意将其背景色设置成与picProgress不同的颜色 步骤三:缺省绘制一个Timer控件; 步骤四:编写代码—— Private Sub Form_Load() Me。
Caption = "单击窗体开始演示" picFill。Appearance = 0 picFill。Height = picProgress。Height picFill。BackColor = vbBlue Timer1。
Enabled = False Timer1。Interval = 100 picFill。Move 0, 0, 0 '进度条初始状态 End Sub Private Sub Form_Click() Timer1。
Enabled = True End Sub Private Sub Timer1_Timer() Dim Max, Value, L Static P 'Max和Value:进度条的最大值、进度值 Max = picProgress。
Width P = P 1 L = 100 Value = Max * P / L If P = L Then MsgBox "进度完成" Timer1。Enabled = False Else picFill。
Move 0, 0, Value '按进度值填充 End If End Sub。收起