home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / code / design / mstips / tipdemo1.frm < prev    next >
Text File  |  1995-02-27  |  2KB  |  72 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   2310
  5.    ClientLeft      =   1305
  6.    ClientTop       =   1470
  7.    ClientWidth     =   3675
  8.    Height          =   2715
  9.    Left            =   1245
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   2310
  12.    ScaleWidth      =   3675
  13.    Top             =   1125
  14.    Width           =   3795
  15.    Begin CheckBox Check1 
  16.       Caption         =   "Check1"
  17.       Height          =   255
  18.       HelpContextID   =   1004
  19.       Left            =   2340
  20.       TabIndex        =   3
  21.       Tag             =   "This is a really big Check Box with some really long ToolTips"
  22.       Top             =   600
  23.       Width           =   1215
  24.    End
  25.    Begin ListBox List1 
  26.       Height          =   1590
  27.       HelpContextID   =   1002
  28.       Left            =   120
  29.       TabIndex        =   2
  30.       Top             =   600
  31.       Width           =   2115
  32.    End
  33.    Begin CommandButton Command1 
  34.       Caption         =   "Command1"
  35.       Height          =   375
  36.       HelpContextID   =   1003
  37.       Left            =   2340
  38.       TabIndex        =   1
  39.       Tag             =   "This is a Command Button"
  40.       Top             =   120
  41.       Width           =   1215
  42.    End
  43.    Begin TextBox Text1 
  44.       Height          =   375
  45.       HelpContextID   =   1001
  46.       Left            =   120
  47.       TabIndex        =   0
  48.       Text            =   "Text1"
  49.       Top             =   120
  50.       Width           =   2115
  51.    End
  52. End
  53. Option Explicit
  54.  
  55. 'See comments in TIPDEMO.BAS
  56.  
  57. Sub Form_Activate ()
  58.  
  59. Call dutip_SetTipForm(Me)
  60.  
  61. End Sub
  62.  
  63. Sub Form_QueryUnload (Cancel As Integer, UnloadMode As Integer)
  64.  
  65. If UnloadMode <> 1 Then  'via code
  66.    Cancel = True
  67.    Call EndMain
  68. End If
  69.  
  70. End Sub
  71.  
  72.