home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
bp_1_94
/
bonus
/
limited
/
balloon
/
dialog.frm
< prev
next >
Wrap
Text File
|
1994-03-15
|
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
Prop16 = "Click for About Box"
BackColor = &H0080FFFF&
BalloonArrow = 0 'False
ForeColor = &H00000000&
InverseVideo = 0 'False
Left = 3240
Top = 3480
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