VB学习-图形进度条的制作
VB内部虽然有内部自带的进度条控件,但不太美观,而且使用起来必须要经过控件注册,否则用不了进而影响程序的正确使用.因此有必要学习制作图形进度条
1.启动VB6.0开发环境-标准exe
2给form窗体添加shape和timer控件
3.后台写程序,
Private Sub Form_Load()
Form1.ScaleMode = 3
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Static s
s = s + 1
If s <= 10 Then
Shape1.Width = 250 * s / 10
End If
If Shape1.Width = 250 Then
If MsgBox("进度条加载成功！", vbInformation, "系统提示") = vbYes Then
MsgBox "进度条加载成功！", vbInformation, "系统提示"
End If
Ok = 1
End
End If
End Sub
4.附程序exe标准文件
[ 本帖最后由 xryj 于 2008-9-4 22:32 编辑 ]
附件: 您所在的用户组无法下载或查看附件
