home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
vb_code1
/
cancelbt
/
modeless.frm
< prev
Wrap
Text File
|
1994-01-28
|
1KB
|
44 lines
VERSION 2.00
Begin Form CanDialog
Caption = "Modeless Cancel Dialog"
ClientHeight = 1425
ClientLeft = 1650
ClientTop = 2415
ClientWidth = 4095
Height = 1830
HelpContextID = 102
Left = 1590
LinkTopic = "Form2"
ScaleHeight = 1425
ScaleWidth = 4095
Top = 2070
Width = 4215
Begin CommandButton Command1
Caption = "&Cancel"
Height = 495
Left = 1380
TabIndex = 0
Top = 480
Width = 1215
End
End
DefInt A-Z
Declare Sub SetWindowWord Lib "User" (ByVal hWnd, ByVal nCmd, ByVal nVal)
Const SWW_HPARENT = -8
Sub Command1_Click ()
MainForm.Text1.Tag = "Canned!"
Unload Me
End Sub
Sub Form_Load ()
SetWindowWord hWnd, SWW_HPARENT, MainForm.hWnd
End Sub
Sub Form_Unload (Cancel As Integer)
SetWindowWord hWnd, SWW_HPARENT, 0
End Sub