home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
vb_code2
/
vbmdixpl
/
form1.frm
< prev
next >
Wrap
Text File
|
1993-05-17
|
2KB
|
62 lines
VERSION 2.00
Begin Form Form1
Caption = "Form 0"
Height = 4164
Left = 1392
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 3744
ScaleWidth = 6420
Top = 2280
Width = 6516
Begin Label Label1
AutoSize = -1 'True
Caption = "This is a MDI Child Window"
Height = 192
Index = 2
Left = 240
TabIndex = 2
Top = 1320
Width = 2256
End
Begin Label Label1
AutoSize = -1 'True
Caption = "and a floating Toolbar"
Height = 192
Index = 1
Left = 240
TabIndex = 1
Top = 840
Width = 1848
End
Begin Label Label1
AutoSize = -1 'True
Caption = "Sample MDI Application with Common Dialogs"
Height = 192
Index = 0
Left = 240
TabIndex = 0
Top = 360
Width = 3828
End
End
Sub Form_GotFocus ()
' Test for Stausline
Action (" Active Form: " + Me.Caption)
End Sub
Sub Form_MouseDown (Button As Integer, Shift As Integer, x As Single, y As Single)
Call ShowPopup(Me, x, y)
End Sub
Sub Form_QueryUnload (Cancel As Integer, UnloadMode As Integer)
' delete, if this is nagging
If UnloadMode = 0 Then ' User clicked close-box
If Not Doit("Close " + Me.Caption + " ?") Then
Cancel = 1
End If
End If
End Sub