form1.frm

美容院管理系统

VERSION 5.00
Object = "{65E121D4-0C60-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCHRT20.OCX"
Begin VB.Form frm_graph 
   BackColor       =   &H0080C0FF&
   Caption         =   "《美容院管理系统》图形统计程序"
   ClientHeight    =   6180
   ClientLeft      =   60
   ClientTop       =   348
   ClientWidth     =   8520
   Icon            =   "form1.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   ScaleHeight     =   6180
   ScaleWidth      =   8520
   Begin VB.Frame Frame1 
      BackColor       =   &H0080C0FF&
      Caption         =   "图形样式："
      Height          =   4980
      Left            =   7260
      TabIndex        =   1
      Top             =   105
      Width           =   1125
      Begin VB.OptionButton Option1 
         BackColor       =   &H00C0E0FF&
         Caption         =   "条状图"
         Height          =   900
         Index           =   0
         Left            =   195
         Picture         =   "form1.frx":0442
         Style           =   1  'Graphical
         TabIndex        =   6
         Top             =   255
         Value           =   -1  'True
         Width           =   750
      End
      Begin VB.OptionButton Option1 
         BackColor       =   &H00C0E0FF&
         Caption         =   "圆饼图"
         Height          =   900
         Index           =   1
         Left            =   195
         Picture         =   "form1.frx":0884
         Style           =   1  'Graphical
         TabIndex        =   5
         Top             =   1152
         Width           =   750
      End
      Begin VB.OptionButton Option1 
         BackColor       =   &H00C0E0FF&
         Caption         =   "累积图"
         Height          =   915
         Index           =   2
         Left            =   195
         Picture         =   "form1.frx":0CC6
         Style           =   1  'Graphical
         TabIndex        =   4
         Top             =   2049
         Width           =   750
      End
      Begin VB.OptionButton Option1 
         BackColor       =   &H00C0E0FF&
         Caption         =   "三维条状图"
         Height          =   915
         Index           =   3
         Left            =   195
         Picture         =   "form1.frx":1108
         Style           =   1  'Graphical
         TabIndex        =   3
         Top             =   2961
         Width           =   750
      End
      Begin VB.OptionButton Option1 
         BackColor       =   &H00C0E0FF&
         Caption         =   "三维累积图"
         Height          =   945
         Index           =   4
         Left            =   195
         Picture         =   "form1.frx":154A
         Style           =   1  'Graphical
         TabIndex        =   2
         Top             =   3870
         Width           =   750
      End
   End
   Begin MSChart20Lib.MSChart mschart1 
      Height          =   6090
      Left            =   105
      OleObjectBlob   =   "form1.frx":198C
      TabIndex        =   0
      ToolTipText     =   "可以拖动我"
      Top             =   0
      Width           =   7080
   End
   Begin VB.Image Image1 
      Height          =   384
      Left            =   7608
      MouseIcon       =   "form1.frx":3E39
      MousePointer    =   99  'Custom
      Picture         =   "form1.frx":4143
      ToolTipText     =   "退出"
      Top             =   5448
      Width           =   384
   End
End
Attribute VB_Name = "frm_graph"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2
Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2

Private Sub Form_Load()
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE

End Sub

Private Sub Form_Resize()
Frame1.Left = Me.Width - 1380
Image1.Left = Frame1.Left + 345
mschart1.Move 0, 0, Me.Width - Frame1.Width - 500, Me.Height - 200

End Sub

Private Sub Image1_Click()
Unload Me
End Sub

Private Sub Option1_Click(Index As Integer)
Select Case Index
Case 0
    mschart1.chartType = 1
Case 1
    mschart1.chartType = 14
Case 2
    mschart1.chartType = 7
Case 3
    mschart1.chartType = 0
Case 4
    mschart1.chartType = 6
End Select
End Sub