home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
World of Shareware - Software Farm 2
/
wosw_2.zip
/
wosw_2
/
QBAS
/
5PAK20.ZIP
/
SHAD20.ZIP
/
SAMPLE.ZIP
/
DIALOG.FRM
next >
Wrap
Text File
|
1993-08-03
|
4KB
|
152 lines
VERSION 2.00
Begin Form Dialog
BorderStyle = 3 'Fixed Double
Caption = "Application Dialog"
ClientHeight = 4875
ClientLeft = 1455
ClientTop = 1440
ClientWidth = 6225
ControlBox = 0 'False
Height = 5280
Left = 1395
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4875
ScaleWidth = 6225
Top = 1095
Width = 6345
Begin ShadBx ShadBx1
Left = 3360
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"
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
Begin Label Label1
Caption = "Click help button for popup window"
Height = 495
Left = 4320
TabIndex = 12
Top = 3000
Width = 1575
End
End
Sub BTN_Close_Click ()
Hide
End Sub
Sub Btn_Help_Click ()
Dim Msg As String
Dim CRLF As String
CRLF = Chr$(13) + Chr$(10)
Msg = "You have just clicked on the Help Button." + CRLF + CRLF
Msg = Msg + "Fill the popup window with the help text desired." + CRLF + CRLF
Msg = Msg + "The message could contain information about how to use this dialog form."
Shadbx1.MessageText = Msg
End Sub
Sub Form_Load ()
Me.Top = Shadbx_Form.Top
Me.Left = Shadbx_Form.Left
Me.Width = 6345
Me.Height = 5280
End Sub