home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD14552252001.psc / backup / frmMain.frm (.txt) next >
Encoding:
Visual Basic Form  |  2001-02-06  |  4.5 KB  |  156 lines
  1. VERSION 5.00
  2. Begin VB.Form frmMain 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Window Minimizer v1.0 (c) Lance Meyrick 2001"
  5.    ClientHeight    =   2070
  6.    ClientLeft      =   150
  7.    ClientTop       =   435
  8.    ClientWidth     =   5325
  9.    Icon            =   "frmMain.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   2070
  14.    ScaleWidth      =   5325
  15.    StartUpPosition =   2  'CenterScreen
  16.    Begin VB.TextBox Text1 
  17.       Height          =   1815
  18.       Left            =   285
  19.       MultiLine       =   -1  'True
  20.       TabIndex        =   0
  21.       Text            =   "frmMain.frx":0CCA
  22.       Top             =   120
  23.       Visible         =   0   'False
  24.       Width           =   4575
  25.    End
  26.    Begin VB.Image DefaultIcon 
  27.       Height          =   480
  28.       Left            =   1485
  29.       Picture         =   "frmMain.frx":0DA4
  30.       Top             =   2100
  31.       Visible         =   0   'False
  32.       Width           =   480
  33.    End
  34.    Begin VB.Menu mnuFile 
  35.       Caption         =   "&File"
  36.       Begin VB.Menu mnuOptions 
  37.          Caption         =   "&Options"
  38.       End
  39.       Begin VB.Menu mnuWindowList 
  40.          Caption         =   "Restore Window"
  41.          Begin VB.Menu mnuMinWinList 
  42.             Caption         =   "Current Windows Minimized:"
  43.             Enabled         =   0   'False
  44.          End
  45.          Begin VB.Menu mnuBlank1 
  46.             Caption         =   "-"
  47.          End
  48.          Begin VB.Menu mnuWindow 
  49.             Caption         =   "(none)"
  50.             Enabled         =   0   'False
  51.             Index           =   0
  52.          End
  53.       End
  54.       Begin VB.Menu mnuExit 
  55.          Caption         =   "E&xit"
  56.       End
  57.    End
  58.    Begin VB.Menu mnuHelp 
  59.       Caption         =   "&Help"
  60.       Begin VB.Menu mnuAbout 
  61.          Caption         =   "&About"
  62.       End
  63.    End
  64. Attribute VB_Name = "frmMain"
  65. Attribute VB_GlobalNameSpace = False
  66. Attribute VB_Creatable = False
  67. Attribute VB_PredeclaredId = True
  68. Attribute VB_Exposed = False
  69. Private Sub Form_Load()
  70.  frmOnTop.Show
  71. End Sub
  72. Private Sub Form_Unload(Cancel As Integer)
  73.  Dim CurOpen As Integer
  74.  ReleaseAll
  75.  Unload frmOnTop
  76.  Unload frmTray
  77. End Sub
  78. Private Sub mnuAbout_Click()
  79.    On Error Resume Next
  80.    frmSplash.Show
  81. End Sub
  82. Private Sub mnuExit_Click()
  83.  Unload Me
  84. End Sub
  85. Sub ReleaseAll()
  86.  Dim OC As String
  87.  OC = Me.Caption
  88.  Me.Caption = "Rebuilding All Windows.."
  89.  For I = 1 To 999 'frmTray.Count + 1
  90.     If Formz(I).inUse = True Then
  91.             Formz(I).vbForm.RemME
  92.             DoEvents
  93.     End If
  94.  Next
  95.  Me.Caption = OC
  96. End Sub
  97. Sub ReBuildWindowList()
  98.  ' Build Window list.
  99.  ' First, remove old list
  100.  On Error Resume Next
  101.  For I = 1 To mnuWindow.Count + 1      ' max of 999.. never happen but ah well
  102.     Unload mnuWindow(I)
  103.     Next
  104.  ' Now, Build a new list
  105.  Dim CurrentPos As Integer
  106.  CurrentPos = 0
  107.  For I = 1 To 999
  108.     If Formz(I).inUse = True Then
  109.         Load mnuWindow(CurPos)
  110.         With mnuWindow(CurPos)
  111.             .Caption = Formz(I).vbForm.Caption
  112.             .Enabled = True
  113.             .Tag = Trim$(Str$(I))
  114.         End With
  115.         CurPos = CurPos + 1
  116.     End If
  117. If CurPos = 0 Then
  118.     ' No windows.
  119.     Load mnuWindow(CurPos)
  120.         With mnuWindow(CurPos)
  121.             .Caption = "(empty)"
  122.             .Enabled = False
  123.             .Tag = "0"
  124.         End With
  125. End If
  126. End Sub
  127. Private Sub mnuOptions_Click()
  128.  frmOptions.Show
  129. End Sub
  130. Private Sub mnuWindow_Click(Index As Integer)
  131.     ' Window Clicked in List.
  132.     Dim Msg As String
  133.     With Formz(Val(Trim$(mnuWindow(Index).Tag)))
  134.         Msg = Msg & .vbForm.Caption & vbCrLf
  135.         Msg = Msg & "----------------------------------------------" & vbCrLf & vbCrLf
  136.         Msg = Msg & "Put Away at: " & .SentAwayTime & vbCrLf
  137.         'Msg = Msg & "ThreadID=" & .ThreadID & " hWN
  138.       t   "(norUP     Mf = True Te & " hWXXt----------------Bui3=n
  139.  Next
  140. En hWN
  141.       t   "(norUP     Mf = True Te & " hWXXt-       --Bui3=n)
  142.    r------n hWN
  143.       no--Bs-Bui3='d-------------------------------" & vbCrLf & vbCrLf
  144.         Msg = Msg & "Put Awa.)nS-r------------------- Sub
  145.  'FalserUP     Mf = T
  146.   tA    nivvvvvvvvvvvvvvvvvvvvvuuuuuae 'False
  147. ewvvvvvvvvvvvvvvvvvuuuuuae 'Falgtn
  148. ewvvv,Bs-Bui3='d------------P hWN
  149.  swaH
  150. En hW------------POuua-POuua-u tSci999d-Bui3='d---tSci99ilM
  151.     Ru-u tdlseZ
  152. EXUk()
  153.  UnlM
  154.     sd43dZ
  155.   Bui3='AB,)1--------" & vi3=Sb5xm Bui3='AB,)
  156.