VBA と Java のオブジェクト指向プログラミング

VBADP06編集する

最終更新： donkichi donkichi 2006年02月18日(土) 02:48:16履歴

Top > Excel VBA でデザインパターン > Prototypeパターン

Prototypeパターン

PrototypeパターンのサンプルプログラムをExcelVBAで記述すると以下のように
なります。モジュールごとにプログラムを示します。

クラスモジュール：clsIProduct
Option Explicit

Public Sub use(pstrValue As String)
<font color="green">'</font>
End Sub

Public Function createClone() As clsIProduct
<font color="green">'</font>
End Function

標準モジュール：modCManager
Option Explicit

Public Function init1() As clsCManager
    Dim obj As clsCManager
    Set obj = New clsCManager
    obj.init1
    Set init1 = obj
End Function
クラスモジュール：clsCManager
Option Explicit
<font color="green">'HashMap を Collection で代用</font>
Private mcolShowcase As Collection

<font color="green">'コンストラクタ</font>
Public Sub init1()
    Set mcolShowcase = New Collection
End Sub

Public Sub register(pstrName As String, pobjProto As clsIProduct)
    mcolShowcase.Add pobjProto, pstrName
End Sub

Public Function create(pstrProtoname As String) As clsIProduct
    Dim objP As clsIProduct
    Set objP = mcolShowcase.Item(pstrProtoname)
    Set create = objP.createClone
End Function

標準モジュール：modCMessageBox
Option Explicit
<font color="green">'インスタンスのcloneを行うためにユーザー定義型を使う。</font>
Public Type gtypCMessageBox
    decochar As String
End Type

Public Function init2(pstrDecochar As String) As clsCMessageBox
    Dim obj As clsCMessageBox
    Set obj = New clsCMessageBox
    obj.init2 pstrDecochar
    Set init2 = obj
End Function
クラスモジュール：clsCMessageBox
Option Explicit
Implements clsIProduct
<font color="green">'インスタンスのcloneを行うためにユーザー定義型を使う。</font>
Private mudtMember As gtypCMessageBox

<font color="green">'コンストラクタ</font>
Public Sub init2(pstrDecochar As String)
    mudtMember.decochar = pstrDecochar
End Sub

<font color="green">'インスタンスのメンバ情報の取得処理</font>
Public Property Get member() As gtypCMessageBox
    member = mudtMember
End Property

<font color="green">'インスタンスのclone処理</font>
Public Function clone2(pobjFrom As clsCMessageBox)
<font color="green">    'コピー元のインスタンスのメンバ情報を自分自身のメンバ情報にコピー</font>
    mudtMember = pobjFrom.member
End Function

<font color="green">'----------------------------------------</font>
<font color="green">'clsIProduct で定義されているメソッドを</font>
<font color="green">'clsCMessageBox 型の変数からも呼び出せるようにする</font>
<font color="green">'----------------------------------------</font>
Public Sub use(pstrValue As String)
    Dim lngLength As Long
    Dim lngCnt As Long
    lngLength = LenB(StrConv(pstrValue, vbFromUnicode))
    For lngCnt = 1 To lngLength + 4
        Debug.Print mudtMember.decochar;
    Next lngCnt
    Debug.Print
    Debug.Print mudtMember.decochar & " " & pstrValue & " " & mudtMember.decochar
    For lngCnt = 1 To lngLength + 4
        Debug.Print mudtMember.decochar;
    Next lngCnt
    Debug.Print
End Sub

Public Function createClone() As clsIProduct
    Dim objTo As clsCMessageBox
    Set objTo = New clsCMessageBox
    objTo.clone2 Me
    Set createClone = objTo
End Function

<font color="green">'----------------------------------------</font>
<font color="green">' clsIProduct のインターフェイス</font>
<font color="green">'----------------------------------------</font>
Private Sub clsIProduct_use(pstrValue As String)
    Me.use pstrValue
End Sub

Private Function clsIProduct_createClone() As clsIProduct
    Set clsIProduct_createClone = Me.createClone
End Function

標準モジュール：modCUnderLinePen
Option Explicit
<font color="green">'インスタンスのcloneを行うためにユーザー定義型を使う。</font>
Public Type gtypCUnderLinePen
    ulchar As String
End Type

Public Function init2(pstrUlchar As String) As clsCUnderLinePen
    Dim obj As clsCUnderLinePen
    Set obj = New clsCUnderLinePen
    obj.init2 pstrUlchar
    Set init2 = obj
End Function
クラスモジュール：clsCUnderLinePen
Option Explicit
Implements clsIProduct
<font color="green">'インスタンスのcloneを行うためにユーザー定義型を使う。</font>
Private mudtMember As gtypCUnderLinePen

<font color="green">'コンストラクタ</font>
Public Sub init2(pstrUlchar As String)
    mudtMember.ulchar = pstrUlchar
End Sub

<font color="green">'インスタンスのメンバ情報の取得処理</font>
Public Property Get member() As gtypCUnderLinePen
    member = mudtMember
End Property

<font color="green">'インスタンスのclone処理</font>
Public Function clone2(pobjFrom As clsCUnderLinePen)
<font color="green">    'コピー元のインスタンスのメンバ情報を自分自身のメンバ情報にコピー</font>
    mudtMember = pobjFrom.member
End Function

<font color="green">'----------------------------------------</font>
<font color="green">'clsIProduct で定義されているメソッドを</font>
<font color="green">'clsCUnderLinePen 型の変数からも呼び出せるようにする</font>
<font color="green">'----------------------------------------</font>
Public Sub use(pstrValue As String)
    Dim lngLength As Long
    Dim lngCnt As Long
    lngLength = LenB(StrConv(pstrValue, vbFromUnicode))
    Debug.Print """" & pstrValue & """"
    Debug.Print " ";
    For lngCnt = 1 To lngLength
        Debug.Print mudtMember.ulchar;
    Next lngCnt
    Debug.Print ""
End Sub

Public Function createClone() As clsIProduct
    Dim objTo As clsCUnderLinePen
    Set objTo = New clsCUnderLinePen
    objTo.clone2 Me
    Set createClone = objTo
End Function

<font color="green">'----------------------------------------</font>
<font color="green">' clsIProduct のインターフェイス</font>
<font color="green">'----------------------------------------</font>
Private Sub clsIProduct_use(pstrValue As String)
    Me.use pstrValue
End Sub

Private Function clsIProduct_createClone() As clsIProduct
    Set clsIProduct_createClone = Me.createClone
End Function

標準モジュール：modCMain
Option Explicit

<font color="green">'メイン処理１</font>
Sub main1()
    Dim manager As clsCManager
    Dim upen As clsCUnderLinePen
    Dim mbox As clsCMessageBox
    Dim sbox As clsCMessageBox
    Dim p1 As clsIProduct
    Dim p2 As clsIProduct
    Dim p3 As clsIProduct
<font color="green">    '準備</font>
    Set manager = modCManager.init1
    Set upen = modCUnderLinePen.init2("""")
    Set mbox = modCMessageBox.init2("*")
    Set sbox = modCMessageBox.init2("/")
    manager.register "strong message", upen
    manager.register "warning box", mbox
    manager.register "slash box", sbox
<font color="green">    '生成</font>
    Set p1 = manager.create("strong message")
    p1.use "Hello, world."
    Set p2 = manager.create("warning box")
    p2.use "Hello, world."
    Set p3 = manager.create("slash box")
    p3.use "Hello, world."
End Sub

Top > Excel VBA でデザインパターン > Prototypeパターン
このエントリーをTumblrにポストClip to Evernoteこのエントリーをはてなブックマークに追加
VBADP06 - VBA と Java のオブジェクト指向プログラミング 先頭へ

このページへのコメント

13sqOy Major thankies for the blog.Really thank you!

0
Posted by check this out 2013年12月21日(土) 11:00:43 返信

VBADP06 - VBA 鐃緒申 Java 鐃塾ワ申鐃瞬ワ申鐃緒申鐃緒申鐃夙指醐申鐃竣ワ申鐃緒申鐃淳ワ申 - Seesaa Wiki鐃淑ワ申鐃緒申鐃緒申鐃緒申 for 鐃緒申鐃殉￥申鐃夙フワ申鐃緒申 ��≪�潟�������若�� 綺���� http://www.pslcbi.com/moncler2014.html

0
Posted by ��≪�潟�������若�� 綺���� 2013年12月09日(月) 17:01:29 返信

VBADP06 - VBA 鐃緒申 Java 鐃塾ワ申鐃瞬ワ申鐃緒申鐃緒申鐃夙指醐申鐃竣ワ申鐃緒申鐃淳ワ申 - Seesaa Wiki鐃淑ワ申鐃緒申鐃緒申鐃緒申 for 鐃緒申鐃殉￥申鐃夙フワ申鐃緒申 ��≪�潟�������若�� ��������� http://www.pslcbi.com/moncler2014.html

0
Posted by ��≪�潟�������若�� ��������� 2013年12月07日(土) 15:12:45 返信

VBADP06 - VBA 鐃緒申 Java 鐃塾ワ申鐃瞬ワ申鐃緒申鐃緒申鐃夙指醐申鐃竣ワ申鐃緒申鐃淳ワ申 - Seesaa Wiki鐃淑ワ申鐃緒申鐃緒申鐃緒申 for 鐃緒申鐃殉￥申鐃夙フワ申鐃緒申 ��≪�潟�������若�� ��������� 2014 ��＜�潟�� http://www.pslcbi.com/moncler2014.html

0
Posted by ��≪�潟�������若�� ��������� 2014 ��＜�潟�� 2013年12月07日(土) 04:42:40 返信

Xe4PSO <a href="http://pwxrhzwqiwde.com/">pwxrhzwqiwde</a>, [url=http://lqjcavassaso.com/]lqjcavassaso[/url], [link=http://tlznzyoturds.com/]tlznzyoturds[/link], http://glzufqimtdeg.com/

0
Posted by wkmqhsdlzi 2013年11月21日(木) 18:39:40 返信

コメントをかく


「http://」を含む投稿は禁止されています。

利用規約をご確認のうえご記入下さい
 

サイト構成

トップページ
├オブジェクト指向プログラミング
├VBA のオブジェクト指向プログラミング
├VBA のプログラムを Java のプログラムに移植する方法
├Java のプログラムを VBA のプログラムに移植する方法
└Excel VBA でデザインパターン
　└Iterator パターン
　└Adapter パターン（継承）
　└Adapter パターン（委譲）
　└TemplateMethod パターン
　└FactoryMethod パターン
　└Singleton パターン
　└Prototype パターン

カテゴリー

最近更新したページ

最新コメント

編集にはIDが必要です