zoom.frm

不错的一个VB菜单设计 界面和功能都不错

VERSION 5.00
Begin VB.Form frmZoom 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Zoom Windows"
   ClientHeight    =   1710
   ClientLeft      =   4425
   ClientTop       =   3465
   ClientWidth     =   4185
   Icon            =   "Zoom.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1710
   ScaleWidth      =   4185
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.Frame fraFrame 
      Height          =   855
      Left            =   150
      TabIndex        =   4
      Top             =   720
      Width           =   1575
      Begin VB.OptionButton optClose 
         Caption         =   "Close Window"
         Height          =   225
         Left            =   120
         TabIndex        =   6
         Top             =   540
         Width           =   1365
      End
      Begin VB.OptionButton optOpen 
         Caption         =   "Open Window"
         Height          =   225
         Left            =   120
         TabIndex        =   5
         Top             =   210
         Value           =   -1  'True
         Width           =   1365
      End
   End
   Begin VB.CommandButton cmdZoom 
      Caption         =   "Zoom Window"
      Height          =   435
      Left            =   2370
      TabIndex        =   3
      Top             =   1110
      Width           =   1665
   End
   Begin VB.CommandButton cmdHelp 
      Height          =   555
      Left            =   3510
      Picture         =   "Zoom.frx":000C
      Style           =   1  'Graphical
      TabIndex        =   1
      Top             =   120
      Width           =   555
   End
   Begin VB.ComboBox cboTypes 
      Height          =   315
      Left            =   120
      Style           =   2  'Dropdown List
      TabIndex        =   0
      Top             =   330
      Width           =   2895
   End
   Begin VB.Label lblLabel 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "Zoom from/to"
      Height          =   195
      Index           =   1
      Left            =   120
      TabIndex        =   2
      Top             =   120
      Width           =   960
   End
End
Attribute VB_Name = "frmZoom"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Public objZoom As New FLWGraphMath.FWZoom

Private Sub cmdHelp_Click()
  Call objZoom.Zoom(frmAssistant.hWnd, _
                    FLWGraphMath.flwZoomOpen, _
                    FLWGraphMath.flwZoomFromObject, cmdHelp.hWnd)
End Sub

Private Sub cmdZoom_Click()
  Dim lngAction As FLWGraphMath.ZoomAction
  
  lngAction = IIf(optOpen.Value = True, FLWGraphMath.flwZoomOpen, FLWGraphMath.flwZoomClose)
  Unload frmAssistant
  Select Case cboTypes.ListIndex
    Case 0
      Call objZoom.Zoom(frmAssistant.hWnd, lngAction, FLWGraphMath.flwZoomFromObject, cmdHelp.hWnd)
    Case 1
      Call objZoom.Zoom(frmAssistant.hWnd, lngAction, FLWGraphMath.flwZoomFromTaskBarTray)
    Case 2
      Call objZoom.Zoom(frmAssistant.hWnd, lngAction, FLWGraphMath.TopLeft)
    Case 3
      Call objZoom.Zoom(frmAssistant.hWnd, lngAction, FLWGraphMath.TopCenter)
    Case 4
      Call objZoom.Zoom(frmAssistant.hWnd, lngAction, FLWGraphMath.TopRight)
    Case 5
      Call objZoom.Zoom(frmAssistant.hWnd, lngAction, FLWGraphMath.MidLeft)
    Case 6
      Call objZoom.Zoom(frmAssistant.hWnd, lngAction, FLWGraphMath.MidCenter)
    Case 7
      Call objZoom.Zoom(frmAssistant.hWnd, lngAction, FLWGraphMath.MidRight)
    Case 8
      Call objZoom.Zoom(frmAssistant.hWnd, lngAction, FLWGraphMath.BtmLeft)
    Case 9
      Call objZoom.Zoom(frmAssistant.hWnd, lngAction, FLWGraphMath.BtmCenter)
    Case 10
      Call objZoom.Zoom(frmAssistant.hWnd, lngAction, FLWGraphMath.BtmRight)
    Case 11
      Call objZoom.Zoom(frmAssistant.hWnd, lngAction, FLWGraphMath.ScreenCenter)
    Case 12
      Call objZoom.Zoom(frmAssistant.hWnd, lngAction, FLWGraphMath.flwZoomFromActiveWindow)
    Case 13
      Call objZoom.Zoom(frmAssistant.hWnd, lngAction, FLWGraphMath.flwZoomFromMousePointer)
  End Select
End Sub

Private Sub Form_Load()
  With cboTypes
    Call .AddItem("Zoom from/to an Object")
    Call .AddItem("Zoom from/to Task Bar Tray")
    Call .AddItem("Zoom from/to Top-Left")
    Call .AddItem("Zoom from/to Top-Center")
    Call .AddItem("Zoom from/to Top-Right")
    Call .AddItem("Zoom from/to Middle-Left")
    Call .AddItem("Zoom from/to Middle-Center")
    Call .AddItem("Zoom from/to Middle-Right")
    Call .AddItem("Zoom from/to Bottom-Left")
    Call .AddItem("Zoom from/to Bottom-Center")
    Call .AddItem("Zoom from/to Bottom-Right")
    Call .AddItem("Zoom from/to Screen Center")
    Call .AddItem("Zoom from/to Active Window")
    Call .AddItem("Zoom from/to Mouse Pointer")
  End With
  
  cboTypes.ListIndex = 1
  Call objZoom.Zoom(Me.hWnd, FLWGraphMath.flwZoomOpen, FLWGraphMath.TopLeft, , 150, FLWGraphMath.EXPLODE)
End Sub

Private Sub Form_Unload(Cancel As Integer)
  Unload frmAssistant
  Call objZoom.Zoom(Me.hWnd, FLWGraphMath.flwZoomClose, FLWGraphMath.flwZoomFromTaskBarTray)
End Sub