□技術メモ - VB6 ２次元座標クラス

※管理人の個人的な技術メモです。このページの内容の実行結果について
管理人はいかなる責任も負いかねますのでご自身の責任でお試しください。

-----------------------------------------------------------

○VB6における２次元座標クラス

CPosition.cls
--------
Option Explicit

'----メンバ変数
Private mPosX As Long
Private mPosY As Long

'----コンストラクタ
Private Sub Class_Initialize()
    mPosX = 0
    mPosY = 0
End Sub

'----プロパティ
Public Property Get x() As Long
    x = mPosX
End Property
Public Property Get y() As Long
    y = mPosY
End Property
Public Property Let x(pX As Long)
    mPosX = pX
End Property
Public Property Let y(pY As Long)
    mPosY = pY
End Property

'==========
'公開関数
'==========

'----Clear
Public Function Clear()
    mPosX = 0
    mPosY = 0
End Function

'----SET系関数
Public Function SetPos(pPos As CPosition)
    mPosX = pPos.x
    mPosY = pPos.y
End Function

Public Function SetPos2(pX As Long, pY As Long)
    mPosX = pX
    mPosY = pY
End Function

'----turtle
Public Function Turtle(pPos As CPosition, _
                       Optional mul As Double = 1)
    mPosX = mPosX + pPos.x * mul
    mPosY = mPosY + pPos.y * mul
End Function

Public Function Turtle2(pX As Long, pY As Long, _
                        Optional mul As Double = 1)
    mPosX = mPosX + pX * mul
    mPosY = mPosY + pY * mul
End Function