Programming Tool Box/SIMS_2.iso/vb_code1/blun20/dialog.frm

Text File | 1993-12-23 | 7KB | 204 lines

VERSION 2.00
Begin Form Dialog
   BorderStyle     =   3  'Fixed Double
   Caption         =   "Application Dialog"
   ClientHeight    =   4875
   ClientLeft      =   1455
   ClientTop       =   1440
   ClientWidth     =   6225
   ClipControls    =   0   'False
   ControlBox      =   0   'False
   Height          =   5280
   Left            =   1395
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4875
   ScaleWidth      =   6225
   Top             =   1095
   Width           =   6345
   Begin Balloon Balloon1
      BackColor       =   &H00C0C0C0&
      Prop13          =   -1  'True
      Prop14          =   2  'Square, 3D, no shadow
      ForeColor       =   &H000000FF&
      Prop12          =   0   'False
      Left            =   3240
      Top             =   3360
   End
   Begin DriveListBox Drive1
      Height          =   315
      Left            =   3240
      TabIndex        =   11
      Top             =   2400
      Width           =   2775
   End
   Begin DirListBox Dir1
      Height          =   930
      Left            =   360
      TabIndex        =   10
      Top             =   3600
      Width           =   2295
   End
   Begin CommandButton Btn_Help
      Caption         =   "Help Balloons"
      Height          =   375
      Left            =   4320
      TabIndex        =   9
      Top             =   3600
      Width           =   1575
   End
   Begin FileListBox File1
      Height          =   1005
      Left            =   360
      TabIndex        =   8
      Top             =   2400
      Width           =   2295
   End
   Begin ComboBox Combo1
      Height          =   300
      Left            =   3240
      TabIndex        =   7
      Text            =   "Combo1"
      Top             =   1800
      Width           =   2775
   End
   Begin TextBox Text2
      Height          =   495
      Left            =   3240
      TabIndex        =   6
      Text            =   "Text2"
      Top             =   1080
      Width           =   2775
   End
   Begin TextBox Text1
      Height          =   495
      Left            =   3240
      TabIndex        =   5
      Text            =   "Text1"
      Top             =   360
      Width           =   2775
   End
   Begin Frame Frame1
      Caption         =   "Frame1"
      Height          =   1935
      Left            =   360
      TabIndex        =   1
      Top             =   240
      Width           =   2295
      Begin OptionButton Option3
         Caption         =   "Option3"
         Height          =   255
         Left            =   360
         TabIndex        =   4
         Top             =   1440
         Width           =   1455
      End
      Begin OptionButton Option2
         Caption         =   "Option2"
         Height          =   255
         Left            =   360
         TabIndex        =   3
         Top             =   960
         Width           =   1455
      End
      Begin OptionButton Option1
         Caption         =   "Option1"
         Height          =   255
         Left            =   360
         TabIndex        =   2
         Top             =   480
         Width           =   1455
      End
   End
   Begin CommandButton BTN_Close
      Caption         =   "Close"
      Height          =   375
      Left            =   4320
      TabIndex        =   0
      Top             =   4200
      Width           =   1575
   End
End

Sub Balloon1_BalloonClick (hwndAtMouse As Integer)
' PURPOSE:  hwndAtMouse is the control the mouse is over
' COMMENTS: pass back the help text
'           shows how to programmatcially end a session
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim Msg As String
Dim CRLF As String
    CRLF = Chr$(13) + Chr$(10)

    Select Case hwndAtMouse
        Case Me.hWnd
            Exit Sub    ' do nothing

        Case Btn_Help.hWnd
            Balloon1.MessageText = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "The mouse is over the control Btn_Help."

        Case BTN_Close.hWnd
            Balloon1.MessageText = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "The mouse is over the control BTN_Close."

        Case Text1.hWnd
            Balloon1.MessageText = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "The mouse is over the control Text1."

        Case Text2.hWnd
            Balloon1.MessageText = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "The mouse is over the control Text2."

        Case Combo1.hWnd
            Balloon1.MessageText = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "The mouse is over the control Combo1."

        Case File1.hWnd
            Balloon1.MessageText = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "The mouse is over the control File1."

        Case Dir1.hWnd
            Balloon1.MessageText = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "The mouse is over the control Dir1."

        Case Drive1.hWnd
            Balloon1.MessageText = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "The mouse is over the control Drive1."

        Case Frame1.hWnd
            Balloon1.MessageText = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "The mouse is over the control Frame1."

        Case Option1.hWnd
            Balloon1.MessageText = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "The mouse is over the control Option1."

        Case Option2.hWnd
            Balloon1.MessageText = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "  The mouse is over the control Option2."

        Case Option3.hWnd
            Balloon1.MessageText = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "  The mouse is over the control Option3."
        Case Else

        End Select

End Sub

Sub BTN_Close_Click ()
    Hide
End Sub

Sub Btn_Help_Click ()

    ' initial help text string
    ' here we generate the text internally
    '
    ' Initial text can be left blank, if blank then
    ' Balloon.vbx control will display an internal init message
    Balloon1.MessageText = "Dialog form. Enter the desired parameters. Move mouse over control that you would like help on."

    Balloon1.Action = 20     ' Balloon_START = 20

End Sub

Sub Form_Load ()
    If Me.WindowState = 0 Then
        Me.Top = 0      ' Balloon_Form.Top
        Me.Left = 0     ' Balloon_Form.Left
        Me.Width = 6345
        Me.Height = 5280
    End If
End Sub