home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / CODIGO_1 / BLUN20 / DIALOG.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1993-12-23  |  6.6 KB  |  192 lines
  1. VERSION 2.00
  2. Begin Form Dialog 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "Application Dialog"
  5.    ClientHeight    =   4875
  6.    ClientLeft      =   1455
  7.    ClientTop       =   1440
  8.    ClientWidth     =   6225
  9.    ClipControls    =   0   'False
  10.    ControlBox      =   0   'False
  11.    Height          =   5280
  12.    Left            =   1395
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   4875
  17.    ScaleWidth      =   6225
  18.    Top             =   1095
  19.    Width           =   6345
  20.    Begin Balloon Balloon1 
  21.       BackColor       =   &H00C0C0C0&
  22.       Prop13          =   -1  'True
  23.       Prop14          =   2  'Square, 3D, no shadow
  24.       ForeColor       =   &H000000FF&
  25.       Prop12          =   0   'False
  26.       Left            =   3240
  27.       Top             =   3360
  28.    End
  29.    Begin DriveListBox Drive1 
  30.       Height          =   315
  31.       Left            =   3240
  32.       TabIndex        =   11
  33.       Top             =   2400
  34.       Width           =   2775
  35.    End
  36.    Begin DirListBox Dir1 
  37.       Height          =   930
  38.       Left            =   360
  39.       TabIndex        =   10
  40.       Top             =   3600
  41.       Width           =   2295
  42.    End
  43.    Begin CommandButton Btn_Help 
  44.       Caption         =   "Help Balloons"
  45.       Height          =   375
  46.       Left            =   4320
  47.       TabIndex        =   9
  48.       Top             =   3600
  49.       Width           =   1575
  50.    End
  51.    Begin FileListBox File1 
  52.       Height          =   1005
  53.       Left            =   360
  54.       TabIndex        =   8
  55.       Top             =   2400
  56.       Width           =   2295
  57.    End
  58.    Begin ComboBox Combo1 
  59.       Height          =   300
  60.       Left            =   3240
  61.       TabIndex        =   7
  62.       Text            =   "Combo1"
  63.       Top             =   1800
  64.       Width           =   2775
  65.    End
  66.    Begin TextBox Text2 
  67.       Height          =   495
  68.       Left            =   3240
  69.       TabIndex        =   6
  70.       Text            =   "Text2"
  71.       Top             =   1080
  72.       Width           =   2775
  73.    End
  74.    Begin TextBox Text1 
  75.       Height          =   495
  76.       Left            =   3240
  77.       TabIndex        =   5
  78.       Text            =   "Text1"
  79.       Top             =   360
  80.       Width           =   2775
  81.    End
  82.    Begin Frame Frame1 
  83.       Caption         =   "Frame1"
  84.       Height          =   1935
  85.       Left            =   360
  86.       TabIndex        =   1
  87.       Top             =   240
  88.       Width           =   2295
  89.       Begin OptionButton Option3 
  90.          Caption         =   "Option3"
  91.          Height          =   255
  92.          Left            =   360
  93.          TabIndex        =   4
  94.          Top             =   1440
  95.          Width           =   1455
  96.       End
  97.       Begin OptionButton Option2 
  98.          Caption         =   "Option2"
  99.          Height          =   255
  100.          Left            =   360
  101.          TabIndex        =   3
  102.          Top             =   960
  103.          Width           =   1455
  104.       End
  105.       Begin OptionButton Option1 
  106.          Caption         =   "Option1"
  107.          Height          =   255
  108.          Left            =   360
  109.          TabIndex        =   2
  110.          Top             =   480
  111.          Width           =   1455
  112.       End
  113.    End
  114.    Begin CommandButton BTN_Close 
  115.       Caption         =   "Close"
  116.       Height          =   375
  117.       Left            =   4320
  118.       TabIndex        =   0
  119.       Top             =   4200
  120.       Width           =   1575
  121.    End
  122. Sub Balloon1_BalloonClick (hwndAtMouse As Integer)
  123. ' PURPOSE:  hwndAtMouse is the control the mouse is over
  124. ' COMMENTS: pass back the help text
  125. '           shows how to programmatcially end a session
  126. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  127. Dim Msg As String
  128. Dim CRLF As String
  129.     CRLF = Chr$(13) + Chr$(10)
  130.     Select Case hwndAtMouse
  131.         Case Me.hWnd
  132.             Exit Sub    ' do nothing
  133.         
  134.         Case Btn_Help.hWnd
  135.             Balloon1.MessageText = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "The mouse is over the control Btn_Help."
  136.         
  137.         Case BTN_Close.hWnd
  138.             Balloon1.MessageText = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "The mouse is over the control BTN_Close."
  139.         
  140.         Case Text1.hWnd
  141.             Balloon1.MessageText = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "The mouse is over the control Text1."
  142.         
  143.         Case Text2.hWnd
  144.             Balloon1.MessageText = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "The mouse is over the control Text2."
  145.         
  146.         Case Combo1.hWnd
  147.             Balloon1.MessageText = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "The mouse is over the control Combo1."
  148.         
  149.         Case File1.hWnd
  150.             Balloon1.MessageText = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "The mouse is over the control File1."
  151.         
  152.         Case Dir1.hWnd
  153.             Balloon1.MessageText = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "The mouse is over the control Dir1."
  154.             
  155.         Case Drive1.hWnd
  156.             Balloon1.MessageText = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "The mouse is over the control Drive1."
  157.         Case Frame1.hWnd
  158.             Balloon1.MessageText = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "The mouse is over the control Frame1."
  159.         
  160.         Case Option1.hWnd
  161.             Balloon1.MessageText = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "The mouse is over the control Option1."
  162.         
  163.         Case Option2.hWnd
  164.             Balloon1.MessageText = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "  The mouse is over the control Option2."
  165.         
  166.         Case Option3.hWnd
  167.             Balloon1.MessageText = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "  The mouse is over the control Option3."
  168.         Case Else
  169.         
  170.         End Select
  171. End Sub
  172. Sub BTN_Close_Click ()
  173.     Hide
  174. End Sub
  175. Sub Btn_Help_Click ()
  176.     ' initial help text string
  177.     ' here we generate the text internally
  178.     '
  179.     ' Initial text can be left blank, if blank then
  180.     ' Balloon.vbx control will display an internal init message
  181.     Balloon1.MessageText = "Dialog form. Enter the desired parameters. Move mouse over control that you would like help on."
  182.     Balloon1.Action = 20     ' Balloon_START = 20
  183. End Sub
  184. Sub Form_Load ()
  185.     If Me.WindowState = 0 Then
  186.         Me.Top = 0      ' Balloon_Form.Top
  187.         Me.Left = 0     ' Balloon_Form.Left
  188.         Me.Width = 6345
  189.         Me.Height = 5280
  190.     End If
  191. End Sub
  192.