home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
vb_code2
/
shad_box
/
dialog.frm
next >
Wrap
Text File
|
1993-12-23
|
5KB
|
162 lines
VERSION 2.00
Begin Form Dialog
BorderStyle = 3 'Fixed Double
Caption = "Application Dialog"
ClientHeight = 4875
ClientLeft = 1455
ClientTop = 1440
ClientWidth = 6270
ClipControls = 0 'False
ControlBox = 0 'False
Height = 5280
Left = 1395
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 325
ScaleMode = 3 'Pixel
ScaleWidth = 418
Top = 1095
Width = 6390
Begin ShadBx ShadBx1
BackColor = &H0000FFFF&
ForeColor = &H000000FF&
Left = 3480
Top = 3600
WindowLeft = 50
WindowPosition = -1 'True
WindowTop = 50
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." + CRLF + CRLF
Msg = Msg + "The WindowPosition property of this form's SHADBX.VBX control is set TRUE." + CRLF + CRLF
Msg = Msg + "The coordinates of this popup window are set to (50,50)."
Shadbx1.MessageText = Msg
End Sub
Sub Form_Load ()
If Me.WindowState = 0 Then
Me.Top = 0 'Shadbx_Form.Top
Me.Left = 0 'Shadbx_Form.Left
Me.Width = 6345
Me.Height = 5280
End If
End Sub