progressview.bas

来自「一个交通专用的gis-T系统」· BAS 代码 · 共 21 行

Attribute VB_Name = "ProgressView"
'*********************************************************************
'*
'*                本源码完全免费，共交通同仁学习参考                 *
'*                      www.tranbbs.com                              *
'*                   Developed by Yang Ming                          *
'*       Nanjing Institute of City Transportation Planning           *
'*                 请保留本版权信息，谢谢合作                        *
'*                      中国交通技术论坛                             *
'*                                                                   *
'*                                                                   *
'*********************************************************************
Public Sub Progress(ByVal ProgressValue As Integer, ByVal NowStr As String)
    
    FrmProgress.PbView.Value = ProgressValue
    FrmProgress.Caption = "进度察看：  [ " & NowStr & "已完成:" & ProgressValue & "% ]"


End Sub