home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / CODIGO_2 / TB_ONTOP / FRMMAIN.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-07-14  |  1.9 KB  |  72 lines
  1. VERSION 2.00
  2. Begin Form frmMain 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "Toolbox On Top"
  5.    ClientHeight    =   615
  6.    ClientLeft      =   1470
  7.    ClientTop       =   2280
  8.    ClientWidth     =   2610
  9.    Height          =   1020
  10.    Icon            =   FRMMAIN.FRX:0000
  11.    Left            =   1410
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   540
  16.    ScaleWidth      =   540
  17.    Top             =   1935
  18.    Width           =   2730
  19.    WindowState     =   1  'Minimized
  20.    Begin MsgHook MsgHook 
  21.       Left            =   120
  22.       Top             =   60
  23.    End
  24. Option Explicit
  25. Sub Form_Load ()
  26.  ' Build System Menu
  27.   SysMenuBuild
  28.  ' Setup MsgHook Control
  29.   MsgHook.HwndHook = Me.hWnd
  30.   MsgHook.Message(WM_QUERYOPEN) = True
  31.   MsgHook.Message(WM_SYSCOMMAND) = True
  32. End Sub
  33. Sub Form_Unload (Cancel As Integer)
  34.  ' Restore toolbox state upon exit
  35.  ToolboxOnTop False
  36. End Sub
  37. Sub MsgHook_Message (msg As Integer, wParam As Integer, lParam As Long, action As Integer, result As Long)
  38.   Select Case msg
  39.     Case WM_QUERYOPEN
  40.       '
  41.       ' Prevents form from becoming un-minimized
  42.       '
  43.       result = False
  44.     Case WM_SYSCOMMAND
  45.       '
  46.       ' Process system menu commands
  47.       '
  48.       Select Case wParam
  49.         Case 1
  50.           '
  51.           ' Toggle Toolbox on Top setting
  52.           '
  53.           If IsMenuChecked() Then
  54.             ToolboxOnTop False
  55.             CheckOnTop MF_UNCHECKED
  56.           Else
  57.             ToolboxOnTop True
  58.             CheckOnTop MF_CHECKED
  59.           End If
  60.         Case 2
  61.           '
  62.           ' Show About Form
  63.           '
  64.           frmAbout.Show 1
  65.         Case Else
  66.           '
  67.           ' pass other messages through
  68.           '
  69.       End Select
  70.   End Select
  71. End Sub
  72.