home *** CD-ROM | disk | FTP | other *** search
/ Programmers Heaven 2 / Programmers Heaven 2.iso / files / windows / ocx / tips.exe / TIPSS1.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-05-03  |  5.2 KB  |  167 lines
  1. VERSION 4.00
  2. Begin VB.Form FrmTipsSample1 
  3.    Appearance      =   0  'Flat
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Tips Sample"
  6.    ClientHeight    =   1455
  7.    ClientLeft      =   1680
  8.    ClientTop       =   2115
  9.    ClientWidth     =   4455
  10.    BeginProperty Font 
  11.       name            =   "MS Sans Serif"
  12.       charset         =   0
  13.       weight          =   700
  14.       size            =   8.25
  15.       underline       =   0   'False
  16.       italic          =   0   'False
  17.       strikethrough   =   0   'False
  18.    EndProperty
  19.    ForeColor       =   &H80000008&
  20.    Height          =   1860
  21.    Left            =   1620
  22.    LinkTopic       =   "Form1"
  23.    ScaleHeight     =   1455
  24.    ScaleWidth      =   4455
  25.    Top             =   1770
  26.    Width           =   4575
  27.    Begin VB.TextBox Text2 
  28.       Appearance      =   0  'Flat
  29.       Height          =   285
  30.       Left            =   1080
  31.       TabIndex        =   5
  32.       Tag             =   "Enter Your Title Here"
  33.       Top             =   720
  34.       Width           =   1575
  35.    End
  36.    Begin VB.TextBox Text1 
  37.       Appearance      =   0  'Flat
  38.       Height          =   285
  39.       Left            =   1080
  40.       TabIndex        =   3
  41.       Tag             =   "Enter Your Name Here"
  42.       Top             =   240
  43.       Width           =   1575
  44.    End
  45.    Begin VB.CommandButton Command2 
  46.       Appearance      =   0  'Flat
  47.       BackColor       =   &H80000005&
  48.       Cancel          =   -1  'True
  49.       Caption         =   "Close"
  50.       BeginProperty Font 
  51.          name            =   "MS Sans Serif"
  52.          charset         =   0
  53.          weight          =   400
  54.          size            =   8.25
  55.          underline       =   0   'False
  56.          italic          =   0   'False
  57.          strikethrough   =   0   'False
  58.       EndProperty
  59.       Height          =   375
  60.       Left            =   3000
  61.       TabIndex        =   1
  62.       Tag             =   "Abandon Record"
  63.       Top             =   720
  64.       Width           =   1215
  65.    End
  66.    Begin VB.CommandButton Command1 
  67.       Appearance      =   0  'Flat
  68.       BackColor       =   &H80000005&
  69.       Caption         =   "OK"
  70.       Default         =   -1  'True
  71.       BeginProperty Font 
  72.          name            =   "MS Sans Serif"
  73.          charset         =   0
  74.          weight          =   400
  75.          size            =   8.25
  76.          underline       =   0   'False
  77.          italic          =   0   'False
  78.          strikethrough   =   0   'False
  79.       EndProperty
  80.       Height          =   375
  81.       Left            =   3000
  82.       TabIndex        =   0
  83.       Tag             =   "Save Record"
  84.       Top             =   240
  85.       Width           =   1215
  86.    End
  87.    Begin TipsLib.Tips Tips1 
  88.       Left            =   120
  89.       Top             =   1080
  90.       _Version        =   65538
  91.       _ExtentX        =   820
  92.       _ExtentY        =   476
  93.       _StockProps     =   78
  94.       Caption         =   "Tips1"
  95.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  96.          name            =   "MS Sans Serif"
  97.          charset         =   0
  98.          weight          =   400
  99.          size            =   8.25
  100.          underline       =   0   'False
  101.          italic          =   0   'False
  102.          strikethrough   =   0   'False
  103.       EndProperty
  104.       BackColor       =   8454143
  105.    End
  106.    Begin VB.Label Label2 
  107.       Alignment       =   1  'Right Justify
  108.       Appearance      =   0  'Flat
  109.       BackColor       =   &H80000005&
  110.       BackStyle       =   0  'Transparent
  111.       Caption         =   "Title:"
  112.       BeginProperty Font 
  113.          name            =   "MS Sans Serif"
  114.          charset         =   0
  115.          weight          =   400
  116.          size            =   8.25
  117.          underline       =   0   'False
  118.          italic          =   0   'False
  119.          strikethrough   =   0   'False
  120.       EndProperty
  121.       ForeColor       =   &H80000008&
  122.       Height          =   255
  123.       Left            =   120
  124.       TabIndex        =   4
  125.       Top             =   720
  126.       Width           =   855
  127.    End
  128.    Begin VB.Label Label1 
  129.       Alignment       =   1  'Right Justify
  130.       Appearance      =   0  'Flat
  131.       BackColor       =   &H80000005&
  132.       BackStyle       =   0  'Transparent
  133.       Caption         =   "Name:"
  134.       BeginProperty Font 
  135.          name            =   "MS Sans Serif"
  136.          charset         =   0
  137.          weight          =   400
  138.          size            =   8.25
  139.          underline       =   0   'False
  140.          italic          =   0   'False
  141.          strikethrough   =   0   'False
  142.       EndProperty
  143.       ForeColor       =   &H80000008&
  144.       Height          =   255
  145.       Left            =   120
  146.       TabIndex        =   2
  147.       Top             =   240
  148.       Width           =   855
  149.    End
  150. Attribute VB_Name = "FrmTipsSample1"
  151. Attribute VB_Creatable = False
  152. Attribute VB_Exposed = False
  153. Option Explicit
  154. Private Sub Command1_Click()
  155.     End
  156. End Sub
  157. Private Sub Command2_Click()
  158.     End
  159. End Sub
  160. Private Sub Tips1_TipDisplay(ByVal ControlName As String, ByVal HelpContextID As Long, Tag As String)
  161.     If Left(ControlName, 4) = "Text" Then
  162.         Tips1.YOffset = 6
  163.     Else
  164.         Tips1.YOffset = 16
  165.     End If
  166. End Sub
  167.