home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / Program th234947252001.psc / frmProject.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2001-07-25  |  5.3 KB  |  184 lines
  1. VERSION 5.00
  2. Begin VB.Form frmProject 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Update DLL Example"
  5.    ClientHeight    =   3585
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   8625
  9.    LinkTopic       =   "Form1"
  10.    LockControls    =   -1  'True
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   3585
  14.    ScaleWidth      =   8625
  15.    StartUpPosition =   3  'Windows Default
  16.    Begin VB.TextBox Text1 
  17.       Height          =   285
  18.       Index           =   2
  19.       Left            =   3030
  20.       TabIndex        =   8
  21.       Top             =   1005
  22.       Width           =   5460
  23.    End
  24.    Begin VB.TextBox Text1 
  25.       Height          =   285
  26.       Index           =   1
  27.       Left            =   3030
  28.       TabIndex        =   7
  29.       Top             =   405
  30.       Width           =   5460
  31.    End
  32.    Begin VB.CommandButton Command1 
  33.       Caption         =   "Rollback to v1.0.0"
  34.       Height          =   360
  35.       Index           =   4
  36.       Left            =   5760
  37.       TabIndex        =   4
  38.       Top             =   1575
  39.       Width           =   2250
  40.    End
  41.    Begin VB.CommandButton Command1 
  42.       Caption         =   "Update to v1.0.1"
  43.       Height          =   360
  44.       Index           =   3
  45.       Left            =   3345
  46.       TabIndex        =   3
  47.       Top             =   1575
  48.       Width           =   2250
  49.    End
  50.    Begin VB.CommandButton Command1 
  51.       Caption         =   "Unload DLL"
  52.       Enabled         =   0   'False
  53.       Height          =   360
  54.       Index           =   2
  55.       Left            =   165
  56.       TabIndex        =   2
  57.       Top             =   990
  58.       Width           =   2250
  59.    End
  60.    Begin VB.CommandButton Command1 
  61.       Caption         =   "Use DLL"
  62.       Enabled         =   0   'False
  63.       Height          =   360
  64.       Index           =   1
  65.       Left            =   165
  66.       TabIndex        =   1
  67.       Top             =   570
  68.       Width           =   2250
  69.    End
  70.    Begin VB.CommandButton Command1 
  71.       Caption         =   "Load DLL"
  72.       Height          =   360
  73.       Index           =   0
  74.       Left            =   165
  75.       TabIndex        =   0
  76.       Top             =   150
  77.       Width           =   2250
  78.    End
  79.    Begin VB.Label Label1 
  80.       BorderStyle     =   1  'Fixed Single
  81.       Caption         =   $"frmProject.frx":0000
  82.       Height          =   930
  83.       Left            =   360
  84.       TabIndex        =   9
  85.       Top             =   2280
  86.       Width           =   7800
  87.    End
  88.    Begin VB.Label Label4 
  89.       Caption         =   "Current DLL File"
  90.       Height          =   240
  91.       Left            =   3075
  92.       TabIndex        =   6
  93.       Top             =   765
  94.       Width           =   3060
  95.    End
  96.    Begin VB.Label Label3 
  97.       Caption         =   "New DLL File (v1.0.1)"
  98.       Height          =   240
  99.       Left            =   3075
  100.       TabIndex        =   5
  101.       Top             =   165
  102.       Width           =   3060
  103.    End
  104. Attribute VB_Name = "frmProject"
  105. Attribute VB_GlobalNameSpace = False
  106. Attribute VB_Creatable = False
  107. Attribute VB_PredeclaredId = True
  108. Attribute VB_Exposed = False
  109. Option Explicit
  110. Private Sub Command1_Click(Index As Integer)
  111.     Dim up As New clsUpdate
  112.     up.SourceLib = Text1(1).Text
  113.     up.DestLib = Text1(2).Text
  114.     Select Case Index
  115.         Case 0 'load dll
  116.             Load frmDLL
  117.             Command1(0).Enabled = False
  118.             Command1(1).Enabled = True
  119.             Command1(2).Enabled = False
  120.             Command1(3).Enabled = False
  121.             Command1(4).Enabled = False
  122.             Text1(1).Enabled = False
  123.             Text1(2).Enabled = False
  124.         
  125.         Case 1 'use dll
  126.             MsgBox frmDLL.MyDLL.VersionInfo
  127.             Command1(0).Enabled = False
  128.             Command1(1).Enabled = False
  129.             Command1(2).Enabled = True
  130.             Command1(3).Enabled = False
  131.             Command1(4).Enabled = False
  132.         
  133.         Case 2 'unload dll
  134.             Unload frmDLL
  135.             Command1(0).Enabled = True
  136.             Command1(1).Enabled = False
  137.             Command1(2).Enabled = False
  138.             Text1(1).Enabled = True
  139.             Text1(2).Enabled = True
  140.             
  141.             SetUpdateButtons
  142.             
  143.         Case 3 'update dll
  144.             
  145.             up.Update
  146.                     
  147.             SetUpdateButtons
  148.                     
  149.             MsgBox "Updated!"
  150.         
  151.         Case 4 'rollback dll
  152.             
  153.             up.Rollback
  154.                     
  155.             SetUpdateButtons
  156.                     
  157.             MsgBox "Rollback!"
  158.             
  159.     End Select
  160.     Set up = Nothing
  161. End Sub
  162. Private Sub Form_Load()
  163.     Command1(0).Enabled = True
  164.     Command1(1).Enabled = False
  165.     Command1(2).Enabled = False
  166.     SetUpdateButtons
  167.     Text1(1).Text = App.Path & "\DLL Code\UpdateDLLv101_dll"
  168.     Text1(2).Text = App.Path & "\DLL Code\UpdateDLL.dll"
  169. End Sub
  170. Private Sub SetUpdateButtons()
  171.     Load frmDLL
  172.     If frmDLL.MyDLL.VersionInfo = "1.0.0" Then
  173.         Command1(3).Enabled = True
  174.         Command1(4).Enabled = False
  175.     Else
  176.         Command1(3).Enabled = False
  177.         Command1(4).Enabled = True
  178.     End If
  179.     Unload frmDLL
  180. End Sub
  181. Private Sub Form_Unload(Cancel As Integer)
  182.     End
  183. End Sub
  184.