home *** CD-ROM | disk | FTP | other *** search
/ ActiveX Programming Unleashed CD / AXU.iso / activex / demos / oletrial / samples / vb / mhwave / abtwave.frm (.txt) next >
Encoding:
Visual Basic Form  |  1995-11-30  |  6.1 KB  |  192 lines
  1. VERSION 4.00
  2. Begin VB.Form frmAbout 
  3.    BorderStyle     =   0  'None
  4.    Caption         =   "About"
  5.    ClientHeight    =   2640
  6.    ClientLeft      =   6948
  7.    ClientTop       =   1632
  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          =   3024
  20.    Icon            =   "abtwave.frx":0000
  21.    KeyPreview      =   -1  'True
  22.    Left            =   6900
  23.    LinkTopic       =   "Form1"
  24.    LockControls    =   -1  'True
  25.    ScaleHeight     =   2640
  26.    ScaleWidth      =   4680
  27.    Top             =   1296
  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 MhWave 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_Activate()
  132.     ' play the 800 number!!!
  133.     With frmMhWaveOCX_Demo
  134.         frmMhWaveOCX_Demo.AboutBoxShowing = True
  135.         If .NumbersFileLoaded Then
  136.             With !MhWaveDemo
  137.                 .Number = "1"
  138.                 .Number = "800"
  139.                 .Number = "9"
  140.                 .Number = "2"
  141.                 .Number = "2"
  142.                 .Number = "3"
  143.                 .Number = "3"
  144.                 .Number = "8"
  145.                 .Number = "3"
  146.             End With ' !MhWaveDemo
  147.         End If
  148.     End With ' frmMhWaveOCX_Demo
  149. End Sub
  150. Private Sub Form_Click()
  151.     ' unload the about box
  152.     Unload Me
  153. End Sub
  154. Private Sub Form_KeyPress(KeyAscii As Integer)
  155.     ' unload the about box
  156.     Unload Me
  157. End Sub
  158. Private Sub Form_Load()
  159.     ' resize the form to the background panel's size
  160.     Width = panBackGround.Width
  161.     Height = panBackGround.Height
  162.     ' center the form to the screen
  163.     Move Abs(Screen.Width - Width) \ 2, Abs(Screen.Height - Height) \ 2
  164. End Sub
  165. Private Sub Form_LostFocus()
  166.     ' close the about box
  167.     Unload Me
  168. End Sub
  169. Private Sub Form_Unload(Cancel As Integer)
  170.     frmMhWaveOCX_Demo.AboutBoxShowing = False
  171. End Sub
  172. Private Sub lblDescription_Click()
  173.     ' close the about box
  174.     Unload Me
  175. End Sub
  176. Private Sub lblName_Click()
  177.     ' close the about box
  178.     Unload Me
  179. End Sub
  180. Private Sub lblPhoneNumber_Click()
  181.     ' close the about box
  182.     Unload Me
  183. End Sub
  184. Private Sub panBackground_Click()
  185.     ' close the about box
  186.     Unload Me
  187. End Sub
  188. Private Sub panDescription_Click()
  189.     ' close the about box
  190.     Unload Me
  191. End Sub
  192.