home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / balloo1 / form1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-09-05  |  5.0 KB  |  167 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Balloon Tool Tip Testing"
  4.    ClientHeight    =   4710
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   8400
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   4710
  10.    ScaleWidth      =   8400
  11.    StartUpPosition =   2  'CenterScreen
  12.    Begin Project1.BalloonTip BalloonTip1 
  13.       Left            =   3360
  14.       Top             =   1200
  15.       _ExtentX        =   423
  16.       _ExtentY        =   423
  17.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  18.          Name            =   "MS Sans Serif"
  19.          Size            =   8.25
  20.          Charset         =   0
  21.          Weight          =   400
  22.          Underline       =   0   'False
  23.          Italic          =   0   'False
  24.          Strikethrough   =   0   'False
  25.       EndProperty
  26.    End
  27.    Begin VB.CommandButton Command2 
  28.       Caption         =   "Exit"
  29.       Height          =   495
  30.       Left            =   5400
  31.       TabIndex        =   13
  32.       ToolTipText     =   "Exit Tool Tip Testing"
  33.       Top             =   4080
  34.       Width           =   2775
  35.    End
  36.    Begin VB.CheckBox Check1 
  37.       Caption         =   "Check1"
  38.       Height          =   255
  39.       Index           =   2
  40.       Left            =   2160
  41.       TabIndex        =   12
  42.       ToolTipText     =   "Check Control"
  43.       Top             =   960
  44.       Width           =   975
  45.    End
  46.    Begin VB.CheckBox Check1 
  47.       Caption         =   "Check1"
  48.       Height          =   255
  49.       Index           =   1
  50.       Left            =   2160
  51.       TabIndex        =   11
  52.       ToolTipText     =   "Check Control"
  53.       Top             =   600
  54.       Width           =   975
  55.    End
  56.    Begin VB.Frame Frame1 
  57.       Caption         =   "Frame1"
  58.       Height          =   1455
  59.       Left            =   120
  60.       TabIndex        =   0
  61.       ToolTipText     =   "Frame Control"
  62.       Top             =   120
  63.       Width           =   1935
  64.    End
  65.    Begin VB.DirListBox Dir1 
  66.       Height          =   765
  67.       Left            =   2280
  68.       TabIndex        =   10
  69.       ToolTipText     =   "Dir Control"
  70.       Top             =   3240
  71.       Width           =   3015
  72.    End
  73.    Begin VB.PictureBox Picture1 
  74.       Height          =   855
  75.       Left            =   2280
  76.       ScaleHeight     =   795
  77.       ScaleWidth      =   5955
  78.       TabIndex        =   9
  79.       ToolTipText     =   "Remember that Balloon Tool Tip can automatically adjust its size. Keep all at sight!."
  80.       Top             =   1680
  81.       Width           =   6015
  82.    End
  83.    Begin VB.FileListBox File1 
  84.       Height          =   1260
  85.       Left            =   5400
  86.       TabIndex        =   8
  87.       ToolTipText     =   "File Control "
  88.       Top             =   2640
  89.       Width           =   2895
  90.    End
  91.    Begin VB.ComboBox Combo1 
  92.       Height          =   315
  93.       Left            =   4800
  94.       TabIndex        =   7
  95.       Text            =   "Combo1"
  96.       ToolTipText     =   "Combo Control"
  97.       Top             =   960
  98.       Width           =   2535
  99.    End
  100.    Begin VB.TextBox Text1 
  101.       Height          =   495
  102.       Left            =   2280
  103.       TabIndex        =   6
  104.       Text            =   "Text1"
  105.       ToolTipText     =   "Text Control"
  106.       Top             =   2640
  107.       Width           =   3015
  108.    End
  109.    Begin VB.OptionButton Option1 
  110.       Caption         =   "Option1"
  111.       Height          =   255
  112.       Left            =   3360
  113.       TabIndex        =   5
  114.       ToolTipText     =   "Option Control"
  115.       Top             =   240
  116.       Width           =   855
  117.    End
  118.    Begin VB.CheckBox Check1 
  119.       Caption         =   "Check1"
  120.       Height          =   255
  121.       Index           =   0
  122.       Left            =   2160
  123.       TabIndex        =   4
  124.       ToolTipText     =   "Check Control"
  125.       Top             =   240
  126.       Width           =   975
  127.    End
  128.    Begin VB.ListBox List1 
  129.       Height          =   2400
  130.       Left            =   120
  131.       TabIndex        =   3
  132.       ToolTipText     =   "List Control"
  133.       Top             =   1680
  134.       Width           =   1935
  135.    End
  136.    Begin VB.CommandButton Command1 
  137.       Caption         =   "Command1"
  138.       Height          =   615
  139.       Left            =   4560
  140.       TabIndex        =   1
  141.       ToolTipText     =   "Command Control"
  142.       Top             =   120
  143.       Width           =   3735
  144.    End
  145.    Begin VB.Label Label1 
  146.       Caption         =   "Label1"
  147.       Height          =   255
  148.       Left            =   4200
  149.       TabIndex        =   2
  150.       ToolTipText     =   "label Control"
  151.       Top             =   960
  152.       Width           =   495
  153.    End
  154. Attribute VB_Name = "Form1"
  155. Attribute VB_GlobalNameSpace = False
  156. Attribute VB_Creatable = False
  157. Attribute VB_PredeclaredId = True
  158. Attribute VB_Exposed = False
  159. Private Sub Command1_Click()
  160. l = Len(Command1.Caption)
  161. Command1.Caption = Right(Command1.Caption, l - 1)
  162. End Sub
  163. Private Sub Command2_Click()
  164. Unload Me
  165. Set Form1 = Nothing
  166. End Sub
  167.