circledraw.ctl

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

VERSION 5.00
Begin VB.UserControl CircleDraw 
   ClientHeight    =   4455
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   4800
   ScaleHeight     =   4455
   ScaleWidth      =   4800
   Begin VB.PictureBox picDraw 
      AutoRedraw      =   -1  'True
      BackColor       =   &H00FFFF80&
      BorderStyle     =   0  'None
      Height          =   4455
      Left            =   0
      ScaleHeight     =   4455
      ScaleWidth      =   4815
      TabIndex        =   0
      Top             =   0
      Width           =   4815
   End
End
Attribute VB_Name = "CircleDraw"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit

Dim m_CenterX As Double
Dim m_CenterY As Double
Dim m_CircleR As Double

Public Property Let CenterX(NewData As Double)
  m_CenterX = NewData
End Property

Public Property Get CenterX() As Double
  CenterX = m_CenterX
End Property

Public Property Let CenterY(NewData As Double)
  m_CenterY = NewData
End Property

Public Property Get CenterY() As Double
  CenterY = m_CenterY
End Property

Public Property Let CircleR(NewData As Double)
  m_CircleR = NewData
End Property

Public Property Get CircleR() As Double
  CircleR = m_CircleR
End Property

Public Sub Draw()
  picDraw.Circle (m_CenterX, m_CenterY), m_CircleR
End Sub