frmtestcontrol.frm

《MATLAB实用指南》系列丛书源代码。

VERSION 5.00
Object = "{A1D94A0F-F4C5-4FB1-B265-05C1B0D9D64C}#1.0#0"; "CircleDraw.ocx"
Begin VB.Form frmTestControl 
   Caption         =   "测试画圆控件"
   ClientHeight    =   4980
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   5100
   LinkTopic       =   "Form1"
   ScaleHeight     =   4980
   ScaleWidth      =   5100
   StartUpPosition =   3  '窗口缺省
   Begin DrawCircle.CircleDraw CircleDraw1 
      Height          =   3975
      Left            =   120
      TabIndex        =   1
      Top             =   120
      Width           =   4815
      _ExtentX        =   8493
      _ExtentY        =   7011
   End
   Begin VB.CommandButton cmdTest 
      Caption         =   "测    试"
      Height          =   375
      Left            =   1560
      TabIndex        =   0
      Top             =   4320
      Width           =   1815
   End
End
Attribute VB_Name = "frmTestControl"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub cmdTest_Click()
  With CircleDraw1
    .CenterX = 1000
    .CenterY = 1000
    .CircleR = 500
    .Draw
    .CenterX = 2500
    .CenterY = 1500
    .CircleR = 1000
    .Draw
  End With
End Sub