home *** CD-ROM | disk | FTP | other *** search
/ ActiveX Programming Unleashed CD / AXU.iso / activex / demos / oletrial / samples / vb / mhalrm / abtalrm.frm (.txt) next >
Encoding:
Visual Basic Form  |  1995-11-30  |  5.4 KB  |  169 lines
  1. VERSION 4.00
  2. Begin VB.Form frmAbout 
  3.    BorderStyle     =   0  'None
  4.    Caption         =   "About"
  5.    ClientHeight    =   2640
  6.    ClientLeft      =   2028
  7.    ClientTop       =   2304
  8.    ClientWidth     =   4680
  9.    BeginProperty Font 
  10.       name            =   "MS Sans Serif"
  11.       charset         =   0
  12.       weight          =   700
  13.       size            =   7.8
  14.       underline       =   0   'False
  15.       italic          =   0   'False
  16.       strikethrough   =   0   'False
  17.    EndProperty
  18.    ForeColor       =   &H80000008&
  19.    Height          =   3012
  20.    Icon            =   "ABTALRM.frx":0000
  21.    KeyPreview      =   -1  'True
  22.    Left            =   1980
  23.    LinkTopic       =   "Form1"
  24.    LockControls    =   -1  'True
  25.    ScaleHeight     =   2640
  26.    ScaleWidth      =   4680
  27.    Top             =   1980
  28.    Width           =   4776
  29.    Begin Threed.SSPanel panBackground 
  30.       Height          =   2460
  31.       Left            =   0
  32.       TabIndex        =   0
  33.       Top             =   0
  34.       Width           =   4488
  35.       _Version        =   65536
  36.       _ExtentX        =   7916
  37.       _ExtentY        =   4339
  38.       _StockProps     =   15
  39.       Caption         =   "SSPanel1"
  40.       BevelWidth      =   3
  41.       Outline         =   -1  'True
  42.       Begin Threed.SSPanel panDescription 
  43.          Height          =   792
  44.          Left            =   144
  45.          TabIndex        =   1
  46.          Top             =   144
  47.          Width           =   4212
  48.          _Version        =   65536
  49.          _ExtentX        =   7430
  50.          _ExtentY        =   1397
  51.          _StockProps     =   15
  52.          Caption         =   "MicroHelp MhAlarm Example"
  53.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  54.             name            =   "MS Sans Serif"
  55.             charset         =   0
  56.             weight          =   700
  57.             size            =   13.8
  58.             underline       =   0   'False
  59.             italic          =   0   'False
  60.             strikethrough   =   0   'False
  61.          EndProperty
  62.          BevelWidth      =   2
  63.          Font3D          =   2
  64.       End
  65.       Begin Threed.SSPanel lblName 
  66.          Height          =   252
  67.          Left            =   144
  68.          TabIndex        =   2
  69.          Top             =   2124
  70.          Width           =   4212
  71.          _Version        =   65536
  72.          _ExtentX        =   7430
  73.          _ExtentY        =   445
  74.          _StockProps     =   15
  75.          Caption         =   "By Hassan Davis"
  76.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  77.             name            =   "MS Sans Serif"
  78.             charset         =   0
  79.             weight          =   400
  80.             size            =   7.8
  81.             underline       =   0   'False
  82.             italic          =   0   'False
  83.             strikethrough   =   0   'False
  84.          EndProperty
  85.          BevelWidth      =   0
  86.          Font3D          =   3
  87.          Alignment       =   8
  88.       End
  89.       Begin VB.Label lblPhoneNumber 
  90.          Alignment       =   2  'Center
  91.          Caption         =   "1-800-922-3383"
  92.          BeginProperty Font 
  93.             name            =   "MS Sans Serif"
  94.             charset         =   0
  95.             weight          =   400
  96.             size            =   9.6
  97.             underline       =   0   'False
  98.             italic          =   0   'False
  99.             strikethrough   =   0   'False
  100.          EndProperty
  101.          Height          =   252
  102.          Left            =   216
  103.          TabIndex        =   4
  104.          Top             =   1692
  105.          Width           =   4092
  106.       End
  107.       Begin VB.Label lblDescription 
  108.          Alignment       =   2  'Center
  109.          Caption         =   "For information on our other Cool Tools give our pre-sales technicians a call at:"
  110.          BeginProperty Font 
  111.             name            =   "MS Sans Serif"
  112.             charset         =   0
  113.             weight          =   400
  114.             size            =   9.6
  115.             underline       =   0   'False
  116.             italic          =   0   'False
  117.             strikethrough   =   0   'False
  118.          EndProperty
  119.          Height          =   480
  120.          Left            =   144
  121.          TabIndex        =   3
  122.          Top             =   1152
  123.          Width           =   4212
  124.       End
  125.    End
  126. Attribute VB_Name = "frmAbout"
  127. Attribute VB_Creatable = False
  128. Attribute VB_Exposed = False
  129. Option Explicit ' always
  130. Private Sub Form_Click()
  131.     ' unload the about box
  132.     Unload Me
  133. End Sub
  134. Private Sub Form_KeyPress(KeyAscii As Integer)
  135.     ' unload the about box
  136.     Unload Me
  137. End Sub
  138. Private Sub Form_Load()
  139.     ' resize the form to the background panel's size
  140.     Width = panBackGround.Width
  141.     Height = panBackGround.Height
  142.     ' center the form to the screen using the parent object's CenterForm method
  143.     Call DemoMain.CenterForm(Me)
  144. End Sub
  145. Private Sub Form_LostFocus()
  146.     ' close the about box
  147.     Unload Me
  148. End Sub
  149. Private Sub lblDescription_Click()
  150.     ' close the about box
  151.     Unload Me
  152. End Sub
  153. Private Sub lblName_Click()
  154.     ' close the about box
  155.     Unload Me
  156. End Sub
  157. Private Sub lblPhoneNumber_Click()
  158.     ' close the about box
  159.     Unload Me
  160. End Sub
  161. Private Sub panBackground_Click()
  162.     ' close the about box
  163.     Unload Me
  164. End Sub
  165. Private Sub panDescription_Click()
  166.     ' close the about box
  167.     Unload Me
  168. End Sub
  169.