frmupload.frm

短信平台管理系统是一个短信收发的平台,用户可以找一些代理的短信平台(IP),在系统里修改一些设置就可以进行短信的收发,有短信服务器的IP,服务器端口.系统还有一些常用用户的设置,包括客户资料,客户分类

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmupload 
   BorderStyle     =   1  'Fixed Single
   ClientHeight    =   1365
   ClientLeft      =   2190
   ClientTop       =   4725
   ClientWidth     =   5895
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1365
   ScaleWidth      =   5895
   StartUpPosition =   2  '屏幕中心
   Begin MSComctlLib.ProgressBar Prob 
      Height          =   375
      Left            =   120
      TabIndex        =   1
      Top             =   720
      Width           =   5655
      _ExtentX        =   9975
      _ExtentY        =   661
      _Version        =   393216
      BorderStyle     =   1
      Appearance      =   0
      Max             =   30
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "需要一些时间，请稍侯。"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9.75
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   195
      Left            =   120
      TabIndex        =   0
      Top             =   240
      Width           =   2325
   End
End
Attribute VB_Name = "frmupload"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public Sub setCaption(c As String)
    Me.Label1.caption = c
End Sub
Public Sub setmax(max As Integer)
    Me.Prob.max = max
    Me.Prob.Min = 0
    Me.Prob.value = 0
End Sub

Public Sub setProcess(Optional p As Integer = 1)
    On Error Resume Next
    Me.Prob.value = Me.Prob.value + p
End Sub