home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 2000 February / sharewareesp1.iso / share / AppExpire / data1.cab / VBExample / TestApp.frm (.txt) < prev   
Encoding:
Visual Basic Form  |  1999-11-10  |  4.0 KB  |  137 lines
  1. VERSION 5.00
  2. Object = "{6B94BFC0-C838-11D2-A9B4-0000B454B114}#1.0#0"; "APPEXP~1.OCX"
  3. Begin VB.Form TestApp 
  4.    Caption         =   "Test Application"
  5.    ClientHeight    =   2535
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   7725
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   2535
  11.    ScaleWidth      =   7725
  12.    StartUpPosition =   3  'Windows Default
  13.    Begin VB.CommandButton Command3 
  14.       Caption         =   "Register App"
  15.       Height          =   375
  16.       Left            =   6000
  17.       TabIndex        =   9
  18.       Top             =   1800
  19.       Width           =   1335
  20.    End
  21.    Begin VB.CommandButton pbExit 
  22.       Caption         =   "Exit Test App"
  23.       Height          =   375
  24.       Left            =   4200
  25.       TabIndex        =   8
  26.       Top             =   1800
  27.       Width           =   1455
  28.    End
  29.    Begin VB.TextBox ebDaysRun 
  30.       Height          =   285
  31.       Left            =   2880
  32.       TabIndex        =   7
  33.       Text            =   "Text3"
  34.       Top             =   1200
  35.       Width           =   855
  36.    End
  37.    Begin VB.TextBox ebTimesRun 
  38.       Height          =   285
  39.       Left            =   2880
  40.       TabIndex        =   6
  41.       Text            =   "Text2"
  42.       Top             =   840
  43.       Width           =   855
  44.    End
  45.    Begin VB.TextBox ebInstDays 
  46.       Height          =   285
  47.       Left            =   2880
  48.       TabIndex        =   5
  49.       Text            =   "Text1"
  50.       Top             =   480
  51.       Width           =   855
  52.    End
  53.    Begin VB.CommandButton Command2 
  54.       Caption         =   "Write Registry"
  55.       Height          =   375
  56.       Left            =   2280
  57.       TabIndex        =   1
  58.       Top             =   1800
  59.       Width           =   1575
  60.    End
  61.    Begin VB.CommandButton Command1 
  62.       Caption         =   "Read Registry"
  63.       Height          =   375
  64.       Left            =   360
  65.       TabIndex        =   0
  66.       Top             =   1800
  67.       Width           =   1575
  68.    End
  69.    Begin EXPIREOCXLib.ExpireOCX TestExp 
  70.       Left            =   6000
  71.       Top             =   600
  72.       _Version        =   65536
  73.       _ExtentX        =   873
  74.       _ExtentY        =   661
  75.       _StockProps     =   0
  76.       DeveloperCode   =   "DevCode"
  77.       EndUserName     =   "Unregistered"
  78.       ExpireOn        =   1
  79.       LastRunMonth    =   12
  80.       LastRunDay      =   31
  81.       LastRunYear     =   2035
  82.       Prefix          =   ""
  83.       RegistryCode    =   "AppExpireTestApp"
  84.       SerialNumber    =   ""
  85.       UserCode        =   ""
  86.       CurrentVersion  =   "1.55"
  87.       MaxVersion      =   "1.99"
  88.       EncryptReg      =   -1  'True
  89.       HideSN          =   0   'False
  90.    End
  91.    Begin VB.Label Label3 
  92.       Caption         =   "Number of days run:"
  93.       Height          =   255
  94.       Left            =   360
  95.       TabIndex        =   4
  96.       Top             =   1200
  97.       Width           =   1575
  98.    End
  99.    Begin VB.Label Label2 
  100.       Caption         =   "Number of times run:"
  101.       Height          =   255
  102.       Left            =   360
  103.       TabIndex        =   3
  104.       Top             =   840
  105.       Width           =   1575
  106.    End
  107.    Begin VB.Label Label1 
  108.       Caption         =   "Number of days since Installion"
  109.       Height          =   255
  110.       Left            =   360
  111.       TabIndex        =   2
  112.       Top             =   480
  113.       Width           =   2295
  114.    End
  115. Attribute VB_Name = "TestApp"
  116. Attribute VB_GlobalNameSpace = False
  117. Attribute VB_Creatable = False
  118. Attribute VB_PredeclaredId = True
  119. Attribute VB_Exposed = False
  120. Private Sub Command1_Click()
  121.     TestExp.ReadRegistry
  122. End Sub
  123. Private Sub Command2_Click()
  124.     TestExp.WriteRegistry
  125. End Sub
  126. Private Sub Command3_Click()
  127.     TestExp.ShowRegistrationDialog
  128. End Sub
  129. Private Sub Form_Load()
  130.     ebInstDays.Text = TestExp.DaysSinceInstall
  131.     ebTimesRun.Text = TestExp.GetTimesExcuted
  132.     ebDaysRun.Text = TestExp.GetDaysExecuted
  133. End Sub
  134. Private Sub pbExit_Click()
  135.     Unload TestApp
  136. End Sub
  137.