二、  projNewMain.vbp工程:

说明：这个是新的主程序，即升级后的主程序，由于我目前没有服务器，故将该程序放在projUpdate.vbp工程的资源文件中。

正在装载数据……

在projUpdate.vbp中模拟网络升级。

 

用记事本打开frmNewMain.frm文件，copy以下内容到其中：

 

VERSION 5.00

Begin VB.Form frmNewMain

   Appearance      =   0  'Flat

   BackColor       =   &H80000005&

   Caption         =   "Form1"

   ClientHeight    =   1365

   ClientLeft      =   60

   ClientTop       =   345

   ClientWidth     =   4680

   LinkTopic       =   "Form1"

   ScaleHeight     =   1365

   ScaleWidth      =   4680

   StartUpPosition =   3  '窗口缺省

   Begin VB.CommandButton Command1

      Caption         =   "升级"

      Height          =   525

      Left            =   1410

      TabIndex        =   0

      Top             =   660

      Width           =   1245

   End

   Begin VB.Label lblCap

      Caption         =   "告诉你，我已经升级了，没看出和以前不一样了吗？"

      Height          =   255

      Left            =   120

      TabIndex        =   1

      Top             =   60

      Width           =   4275

   End

End

Attribute VB_Name = "frmNewMain"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Option Explicit

 

' ------------------------------------------

' 升级程序的例子

' 作者:   谢家峰

' 日期:   2003/12/19

'

' 这里是升级后的主程序

'

' ------------------------------------------

 

 

Private Sub Command1_Click()

  Command1.Enabled = False

   

  ' 运行更新程序

  Shell App.Path & "\update.exe", vbNormalFocus

 

End Sub

 

 

 

Private Sub Form_Load()

  Dim i As Integer

 

  If App.PrevInstance Then End

  UpdateIniPath = App.Path & "\Update.ini"

   

  ' 记录主程序的名字

  WritePrivateProfileString "Main", "Name", App.EXEName, UpdateIniPath

  ' 记录运行状态

  WritePrivateProfileString "Main", "Active", "-1", UpdateIniPath

 

  Me.Caption = App.EXEName

 

End Sub

 

Private Sub Form_Unload(Cancel As Integer)

  ' 记录运行状态

  WritePrivateProfileString "Main", "Active", "0", UpdateIniPath

End Sub

 

 

三、 projUpdate.vbp工程:

说明：这是升级程序，含有一个资源文件。

 

用记事本打开frmUpdate.frm文件，copy以下内容到其中：