home *** CD-ROM | disk | FTP | other *** search
- 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
-