home *** CD-ROM | disk | FTP | other *** search
/ ActiveX Programming Unleashed CD / AXU.iso / activex / demos / oletrial / samples / vb / mhtinp / abttinp.frm (.txt) next >
Encoding:
Visual Basic Form  |  1995-11-30  |  5.5 KB  |  170 lines

  1. VERSION 4.00
  2. Begin VB.Form frmAbout 
  3.    BorderStyle     =   0  'None
  4.    Caption         =   "About"
  5.    ClientHeight    =   2640
  6.    ClientLeft      =   2364
  7.    ClientTop       =   3072
  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            =   "abttinp.frx":0000
  21.    KeyPreview      =   -1  'True
  22.    Left            =   2316
  23.    LinkTopic       =   "Form1"
  24.    LockControls    =   -1  'True
  25.    ScaleHeight     =   2640
  26.    ScaleWidth      =   4680
  27.    Top             =   2748
  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.       RoundedCorners  =   0   'False
  42.       Outline         =   -1  'True
  43.       Begin Threed.SSPanel panDescription 
  44.          Height          =   792
  45.          Left            =   144
  46.          TabIndex        =   1
  47.          Top             =   144
  48.          Width           =   4212
  49.          _Version        =   65536
  50.          _ExtentX        =   7430
  51.          _ExtentY        =   1397
  52.          _StockProps     =   15
  53.          Caption         =   "MicroHelp MhTimeInput Example"
  54.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  55.             name            =   "MS Sans Serif"
  56.             charset         =   0
  57.             weight          =   700
  58.             size            =   13.8
  59.             underline       =   0   'False
  60.             italic          =   0   'False
  61.             strikethrough   =   0   'False
  62.          EndProperty
  63.          BevelWidth      =   2
  64.          Font3D          =   2
  65.       End
  66.       Begin Threed.SSPanel lblName 
  67.          Height          =   252
  68.          Left            =   144
  69.          TabIndex        =   2
  70.          Top             =   2124
  71.          Width           =   4212
  72.          _Version        =   65536
  73.          _ExtentX        =   7430
  74.          _ExtentY        =   445
  75.          _StockProps     =   15
  76.          Caption         =   "By Hassan Davis"
  77.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  78.             name            =   "MS Sans Serif"
  79.             charset         =   0
  80.             weight          =   400
  81.             size            =   7.8
  82.             underline       =   0   'False
  83.             italic          =   0   'False
  84.             strikethrough   =   0   'False
  85.          EndProperty
  86.          BevelWidth      =   0
  87.          Font3D          =   3
  88.          Alignment       =   8
  89.       End
  90.       Begin VB.Label lblPhoneNumber 
  91.          Alignment       =   2  'Center
  92.          Caption         =   "1-800-922-3383"
  93.          BeginProperty Font 
  94.             name            =   "MS Sans Serif"
  95.             charset         =   0
  96.             weight          =   400
  97.             size            =   9.6
  98.             underline       =   0   'False
  99.             italic          =   0   'False
  100.             strikethrough   =   0   'False
  101.          EndProperty
  102.          Height          =   252
  103.          Left            =   216
  104.          TabIndex        =   4
  105.          Top             =   1692
  106.          Width           =   4092
  107.       End
  108.       Begin VB.Label lblDescription 
  109.          Alignment       =   2  'Center
  110.          Caption         =   "For information on our other Cool Tools give our pre-sales technicians a call at:"
  111.          BeginProperty Font 
  112.             name            =   "MS Sans Serif"
  113.             charset         =   0
  114.             weight          =   400
  115.             size            =   9.6
  116.             underline       =   0   'False
  117.             italic          =   0   'False
  118.             strikethrough   =   0   'False
  119.          EndProperty
  120.          Height          =   480
  121.          Left            =   144
  122.          TabIndex        =   3
  123.          Top             =   1152
  124.          Width           =   4212
  125.       End
  126.    End
  127. Attribute VB_Name = "frmAbout"
  128. Attribute VB_Creatable = False
  129. Attribute VB_Exposed = False
  130. Option Explicit ' always
  131. Private Sub Form_Click()
  132.     ' unload the about box
  133.     Unload Me
  134. End Sub
  135. Private Sub Form_KeyPress(KeyAscii As Integer)
  136.     ' unload the about box
  137.     Unload Me
  138. End Sub
  139. Private Sub Form_Load()
  140.     ' resize the form to the background panel's size
  141.     Width = panBackGround.Width
  142.     Height = panBackGround.Height
  143.     ' center the form to the screen
  144.     Move Abs(Screen.Width - Width) \ 2, Abs(Screen.Height - Height) \ 2
  145. End Sub
  146. Private Sub Form_LostFocus()
  147.     ' close the about box
  148.     Unload Me
  149. End Sub
  150. Private Sub lblDescription_Click()
  151.     ' close the about box
  152.     Unload Me
  153. End Sub
  154. Private Sub lblName_Click()
  155.     ' close the about box
  156.     Unload Me
  157. End Sub
  158. Private Sub lblPhoneNumber_Click()
  159.     ' close the about box
  160.     Unload Me
  161. End Sub
  162. Private Sub panBackground_Click()
  163.     ' close the about box
  164.     Unload Me
  165. End Sub
  166. Private Sub panDescription_Click()
  167.     ' close the about box
  168.     Unload Me
  169. End Sub
  170.