home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Programmer'…arterly (Limited Edition)
/
Visual_Basic_Programmers_Journal_VB-CD_Quarterly_Limited_Edition_1995.iso
/
code
/
ch19code
/
frmwin.frm
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1995-08-14
|
1KB
|
38 lines
VERSION 4.00
Begin VB.Form frmWindow
Caption = "Form1"
ClientHeight = 4236
ClientLeft = 1092
ClientTop = 1512
ClientWidth = 6720
Height = 4560
Left = 1044
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 4236
ScaleWidth = 6720
Top = 1236
Width = 6816
Attribute VB_Name = "frmWindow"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Option Explicit
Private mstrIndex As Integer
Public Property Get Index() As String
Index = mstrIndex
End Property
Public Property Let Index(strIndex As String)
mstrIndex = strIndex
End Property
' Register that this is the active window.
Private Sub Form_GotFocus()
Set modDeclares.gActiveWindow = Windows.Item(Me.Index)
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
' If the user closes the form manually,
' be sure to remove it from the collection.
If UnloadMode = vbFormControlMenu Then
Windows.Remove Me.Caption
End If
End Sub