pie.frm

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

VERSION 5.00
Object = "{75D4F53D-8785-11D3-93AD-0000832EF44D}#2.3#0"; "FAST2002.ocx"
Begin VB.Form frmGraphPie 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Pie graph"
   ClientHeight    =   4290
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   6975
   Icon            =   "Pie.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4290
   ScaleWidth      =   6975
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton cmdCopy 
      Caption         =   "Copy GraphPie to Clipboard"
      Height          =   675
      Left            =   240
      Style           =   1  'Graphical
      TabIndex        =   3
      Top             =   3540
      Width           =   1665
   End
   Begin FLWGraphMath.FWGraphPie graPie 
      Height          =   4125
      Left            =   2160
      TabIndex        =   2
      Top             =   120
      Width           =   4785
      _ExtentX        =   8440
      _ExtentY        =   7276
   End
   Begin VB.CheckBox chkShow 
      Caption         =   "Show legends"
      Height          =   240
      Left            =   315
      TabIndex        =   1
      Top             =   600
      Width           =   1440
   End
   Begin VB.CheckBox chk3D 
      Caption         =   "3D effect"
      Height          =   240
      Left            =   315
      TabIndex        =   0
      Top             =   270
      Value           =   1  'Checked
      Width           =   1140
   End
End
Attribute VB_Name = "frmGraphPie"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit


Private Sub cmdCopy_Click()
  ' you can use Picture property to obtain an image of the
  ' control, for example, to print it.
  Call Clipboard.SetData(graPie.Picture, vbCFBitmap)
End Sub

Private Sub Form_Load()
  With graPie
    Call .Create("Graph Title (Pie Graph)")
    Call .Add(300, vbRed, "Legend one")
    Call .Add(200, vbCyan, "Legend two")
    Call .Add(500, vbMagenta, "Legend three")
    Call .Add(200, vbGreen, "Legend four")
    Call .Add(100, vbBlue, "And this's the last")
  End With
  chkShow.Value = IIf(graPie.ShowLegends, vbChecked, vbUnchecked)
End Sub

Private Sub chk3D_Click()
  If chk3D.Value Then
    graPie.Appearance = FLWGraphMath.flwAppearance3D
  Else
    graPie.Appearance = FLWGraphMath.flwAppearanceFlat
  End If
End Sub

Private Sub chkShow_Click()
  graPie.ShowLegends = (chkShow.Value = vbChecked)
End Sub