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