capture.frm

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

VERSION 5.00
Object = "*\A..\SOURCE\FAST2002.vbp"
Begin VB.Form frmCapture 
   Caption         =   "Capturador de im醙enes"
   ClientHeight    =   5880
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   7575
   Icon            =   "Capture.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   5880
   ScaleWidth      =   7575
   StartUpPosition =   3  'Windows Default
   Begin VB.PictureBox picImage 
      Align           =   1  'Align Top
      AutoSize        =   -1  'True
      Height          =   5865
      Left            =   0
      ScaleHeight     =   5805
      ScaleWidth      =   7515
      TabIndex        =   0
      Top             =   0
      Width           =   7575
      Begin FLWGraphMath.FWCapture objCapture 
         Left            =   120
         Top             =   150
         _ExtentX        =   820
         _ExtentY        =   820
      End
   End
   Begin VB.Menu mnuArchivo 
      Caption         =   "&File"
      Begin VB.Menu optArchivo 
         Caption         =   "&Desktop"
         Index           =   10
      End
      Begin VB.Menu optArchivo 
         Caption         =   "&Form"
         Index           =   20
      End
      Begin VB.Menu optArchivo 
         Caption         =   "&Inside Form"
         Index           =   30
      End
      Begin VB.Menu optArchivo 
         Caption         =   "&Active Window"
         Index           =   40
      End
      Begin VB.Menu optArchivo 
         Caption         =   "-"
         Index           =   50
      End
      Begin VB.Menu optArchivo 
         Caption         =   "&Clear"
         Index           =   60
      End
      Begin VB.Menu optArchivo 
         Caption         =   "-"
         Index           =   70
      End
      Begin VB.Menu optArchivo 
         Caption         =   "&Exit"
         Index           =   80
      End
   End
End
Attribute VB_Name = "frmCapture"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub optArchivo_Click(Index As Integer)
  Dim datTime As Date
  
  Select Case Index
    Case 10
      Set picImage.Picture = objCapture.Capture(FLWGraphMath.flwCaptureDesktop)
    Case 20
      Set picImage.Picture = objCapture.Capture(FLWGraphMath.flwCaptureWindow, Me.hWnd, False)
    Case 30
      Set picImage.Picture = objCapture.Capture(FLWGraphMath.flwCaptureWindow, Me.hWnd, True)
    Case 40
      Call MsgBox("3 seconds after close this dialog the active window will be captured", _
                  vbInformation + vbOKOnly)
      datTime = DateAdd("s", 2, Now)
      Do Until Now > datTime
        DoEvents
      Loop
      Set picImage.Picture = objCapture.Capture(FLWGraphMath.flwCaptureActiveWindow)
      Me.SetFocus
    Case 60
      Set picImage.Picture = Nothing
    Case 80
      Unload Me
  End Select
End Sub