□技術メモ - VB6 Zorderクラス

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

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

○VB6におけるZorderクラス

CZorder.cls
--------
Option Explicit

'==============================
'説明
'以下の形式でZorderを管理する
'    "/N1/N2/N3....../Nn"
'Orderメソッドで対象ユニットのOrderを右端(ZorderでTOPに該当)に移動する
'getLineでmsLineを取り出して、そのままセーブファイルに格納する
'==============================

'----メンバ変数
Private msLine as String
private miTop as Integer    'Zorder

'----コンストラクタ
Private Sub Class_Initialize()
    msLine = ""
    miTop = -1
End Sub

'----格納用文字列に変換
Private Function GetStr(pOrder as Integer) As String
    Dim strWk As String
    strWk = "00" & CStr(pOrder)
    strWk = "/" & Right(strWk,2)
    GetStr = strWk
End Sub

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

'----init
Public Function Init(pNum as Integer)
    Dim i As Integer
    For i=1 to pNum
        msLine = msLine & getStr(i)
    Next i
    miTop = pNum
End Function

'----Top
Public Function GetTop() As Integer
    GetTop = miTop
End Function

'----set,get
Public Function GetLine() As String
    GetLine = msLine
End Function

Public Function SetLine(psLine As String)
    msLine = psLine
End Function

'----Order
Public Function Order(pPos as Integer)
    Dim strWk as String
    strWk = getStr(pPos)
    msLine = Replace(msLine, strWk, "")
    msLine = msLine & strWk
    miTop = pPos
End Function