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
/
applicat.cls
next >
Wrap
Text File
|
1995-08-14
|
2KB
|
85 lines
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
END
Attribute VB_Name = "Application"
Attribute VB_Creatable = True
Attribute VB_Exposed = True
Option Explicit
Public NewVar As Collection
' Application ActiveWindow property (read only)
Public Property Get ActiveWindow() As Window
Set ActiveWindow = modDeclares.gActiveWindow
End Property
Public Property Get Name() As String
Name = App.Title
End Property
' Application Windows method.
Public Function Windows() As Object
' Return the Windows variable from the
' modDeclares module.
Set Windows = modDeclares.Windows
End Function
' Application object Application property
Public Property Get Application()
Set Application = Me
End Property
#If Win16 Then
Public Property Get hWnd() As Integer
#Else
Public Property Get hWnd() As Long
#End If
hWnd = mdiApplication.hWnd
End Property
' Application object Parent property
Public Property Get Parent()
Set Parent = Me
End Property
' Application window height property (read/write).
Public Property Let Height(iVal As Integer)
mdiApplication.Height = iVal
End Property
Public Property Get Height() As Integer
Height = mdiApplication.Height
End Property
' Application window width property (read/write).
Public Property Let Width(iVal As Integer)
mdiApplication.Width = iVal
End Property
Public Property Get Width() As Integer
Width = mdiApplication.Width
End Property
' Application window top property (read/write).
Public Property Let Top(iVal As Integer)
mdiApplication.Top = iVal
End Property
Public Property Get Top() As Integer
Top = mdiApplication.Top
End Property
' Application window Left property (read/write).
Public Property Let Left(iVal As Integer)
mdiApplication.Left = iVal
End Property
Public Property Get Left() As Integer
Left = mdiApplication.Left
End Property
' Selection method.
Public Function Selection() As Collection
'Set Selection = modDeclares.Selection
End Function