home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / code / design / mstips / tipdemo2.frm < prev   
Text File  |  1995-02-27  |  3KB  |  104 lines
  1. VERSION 2.00
  2. Begin Form Form2 
  3.    Caption         =   "Form2"
  4.    ClientHeight    =   1305
  5.    ClientLeft      =   1305
  6.    ClientTop       =   4230
  7.    ClientWidth     =   3675
  8.    Height          =   1710
  9.    Left            =   1245
  10.    LinkTopic       =   "Form2"
  11.    ScaleHeight     =   1305
  12.    ScaleWidth      =   3675
  13.    Top             =   3885
  14.    Width           =   3795
  15.    Begin OptionButton Option1 
  16.       Caption         =   "Option1"
  17.       Height          =   315
  18.       HelpContextID   =   2004
  19.       Left            =   2340
  20.       TabIndex        =   4
  21.       Tag             =   "Form2 - Option Button"
  22.       Top             =   720
  23.       Width           =   1155
  24.    End
  25.    Begin ComboBox Combo1 
  26.       Height          =   300
  27.       HelpContextID   =   2003
  28.       Left            =   120
  29.       TabIndex        =   3
  30.       Tag             =   "Form2 - Combo Box"
  31.       Text            =   "Combo1"
  32.       Top             =   720
  33.       Width           =   2115
  34.    End
  35.    Begin PictureBox Picture1 
  36.       Align           =   1  'Align Top
  37.       BackColor       =   &H00C0C0C0&
  38.       BorderStyle     =   0  'None
  39.       Height          =   555
  40.       HelpContextID   =   2005
  41.       Left            =   0
  42.       ScaleHeight     =   555
  43.       ScaleWidth      =   3675
  44.       TabIndex        =   0
  45.       Top             =   0
  46.       Width           =   3675
  47.       Begin CommandButton Command2 
  48.          Caption         =   "Command2"
  49.          Height          =   435
  50.          HelpContextID   =   2002
  51.          Left            =   1200
  52.          TabIndex        =   2
  53.          Tag             =   "Form2 - Command Button #2"
  54.          Top             =   60
  55.          Width           =   1155
  56.       End
  57.       Begin CommandButton Command1 
  58.          Caption         =   "Command1"
  59.          Height          =   435
  60.          HelpContextID   =   2001
  61.          Left            =   60
  62.          TabIndex        =   1
  63.          Tag             =   "Form2 - Command Button #1"
  64.          Top             =   60
  65.          Width           =   1095
  66.       End
  67.       Begin Label Label1 
  68.          Alignment       =   2  'Center
  69.          BorderStyle     =   1  'Fixed Single
  70.          Caption         =   "Labels don't have an hWnd"
  71.          FontBold        =   0   'False
  72.          FontItalic      =   0   'False
  73.          FontName        =   "MS Sans Serif"
  74.          FontSize        =   8.25
  75.          FontStrikethru  =   0   'False
  76.          FontUnderline   =   0   'False
  77.          Height          =   435
  78.          Left            =   2400
  79.          TabIndex        =   5
  80.          Top             =   60
  81.          Width           =   1215
  82.       End
  83.    End
  84. End
  85. Option Explicit
  86.  
  87. 'See comments in TIPDEMO.BAS
  88.  
  89. Sub Form_Activate ()
  90.  
  91. Call dutip_SetTipForm(Me)
  92.  
  93. End Sub
  94.  
  95. Sub Form_QueryUnload (Cancel As Integer, UnloadMode As Integer)
  96.  
  97. If UnloadMode <> 1 Then  'via code
  98.    Cancel = True
  99.    Call EndMain
  100. End If
  101.  
  102. End Sub
  103.  
  104.