Top > Excel VBA ¤Ç¥Ç¥¶¥¤¥ó¥Ñ¥¿¡¼¥ó > Adapter¥Ñ¥¿¡¼¥ó¡Ê°Ñ¾ù¡Ë
°Ñ¾ù¤ò»È¤Ã¤¿Adapter¥Ñ¥¿¡¼¥ó¤Î¥µ¥ó¥×¥ë¥×¥í¥°¥é¥à¤òExcelVBA¤Çµ½Ò¤¹¤ë¤È
°Ê²¼¤Î¤è¤¦¤Ë¤Ê¤ê¤Þ¤¹¡£¥â¥¸¥å¡¼¥ë¤´¤È¤Ë¥×¥í¥°¥é¥à¤ò¼¨¤·¤Þ¤¹¡£
Top > Excel VBA ¤Ç¥Ç¥¶¥¤¥ó¥Ñ¥¿¡¼¥ó > Adapter¥Ñ¥¿¡¼¥ó¡Ê°Ñ¾ù¡Ë
°Ñ¾ù¤ò»È¤Ã¤¿Adapter¥Ñ¥¿¡¼¥ó¤Î¥µ¥ó¥×¥ë¥×¥í¥°¥é¥à¤òExcelVBA¤Çµ½Ò¤¹¤ë¤È
°Ê²¼¤Î¤è¤¦¤Ë¤Ê¤ê¤Þ¤¹¡£¥â¥¸¥å¡¼¥ë¤´¤È¤Ë¥×¥í¥°¥é¥à¤ò¼¨¤·¤Þ¤¹¡£
'=================================================>>>>>>>>>>
'ɸ½à¥â¥¸¥å¡¼¥ë¡§modCBanner
'===========================================================
'VBA ¤Î¥¯¥é¥¹¤Ë¤Ï¥³¥ó¥¹¥È¥é¥¯¥¿¤òÄêµÁ¤Ç¤¤Ê¤¤¤Î¤Ç
'ɸ½à¥â¥¸¥å¡¼¥ë¤ËÄêµÁ¤µ¤ì¤¿¥×¥í¥·¡¼¥¸¥ã¤òÊѤï¤ê¤Ë»È¤¦¡£
Option Explicit
'*** ¥³¥ó¥¹¥È¥é¥¯¥¿ ***
Public Function Init2(pstrValue As String) As clsCBanner
Dim obj As clsCBanner
Set obj = New clsCBanner
'¥³¥ó¥¹¥È¥é¥¯¥¿¤Î¸Æ¤Ó½Ð¤·
Call obj.Init2(pstrValue)
Set Init2 = obj
End Function
'<<<<<<<<<<=================================================
'=================================================>>>>>>>>>>
'¥¯¥é¥¹¥â¥¸¥å¡¼¥ë¡§clsCBanner
'===========================================================
Option Explicit
'¥×¥í¥Ñ¥Æ¥£¾ðÊó
Private mstrValue As String
'ɸ½à¥â¥¸¥å¡¼¥ë¤ËÄêµÁ¤µ¤ì¤¿¥³¥ó¥¹¥È¥é¥¯¥¿¤«¤é
'¸Æ¤Ó½Ð¤µ¤ì¤ë¥á¥½¥Ã¥ÉŽ¡
Public Sub Init2(pstrValue As String)
mstrValue = pstrValue
End Sub
Public Sub ShowWithParen()
Debug.Print ("(" & mstrValue & ")")
End Sub
Public Sub ShowWithAster()
Debug.Print ("*" & mstrValue & "*")
End Sub
'<<<<<<<<<<=================================================
'=================================================>>>>>>>>>>
'ɸ½à¥â¥¸¥å¡¼¥ë¡§modCPrint
'===========================================================
'VBA ¤Î¥¯¥é¥¹¤Ë¤Ï¥³¥ó¥¹¥È¥é¥¯¥¿¤òÄêµÁ¤Ç¤¤Ê¤¤¤Î¤Ç
'ɸ½à¥â¥¸¥å¡¼¥ë¤ËÄêµÁ¤µ¤ì¤¿¥×¥í¥·¡¼¥¸¥ã¤òÊѤï¤ê¤Ë»È¤¦¡£
Option Explicit
'*** ¥³¥ó¥¹¥È¥é¥¯¥¿ ***
Public Function Init1() As clsCPrint
Dim obj As clsCPrint
Set obj = New clsCPrint
Set Init1 = obj
End Function
'<<<<<<<<<<=================================================
'=================================================>>>>>>>>>>
'¥¯¥é¥¹¥â¥¸¥å¡¼¥ë¡§clsCPrint
'===========================================================
Option Explicit
Public Sub PrintWeak()
'VBA ¤Î IDE ¤Ï¼ÂÂΤÎ̵¤¤¥×¥í¥·¡¼¥¸¥ã¤ò
'¼«Æ°Åª¤Ëºï½ü¤·¤Æ¤·¤Þ¤¦¤Î¤Ç
'¥³¥á¥ó¥È¹Ô¤ò½ñ¤¤¤Æ¤ª¤¯¡£
End Sub
Public Sub PrintStrong()
'VBA ¤Î IDE ¤Ï¼ÂÂΤÎ̵¤¤¥×¥í¥·¡¼¥¸¥ã¤ò
'¼«Æ°Åª¤Ëºï½ü¤·¤Æ¤·¤Þ¤¦¤Î¤Ç
'¥³¥á¥ó¥È¹Ô¤ò½ñ¤¤¤Æ¤ª¤¯¡£
End Sub
'<<<<<<<<<<=================================================
'=================================================>>>>>>>>>>
'ɸ½à¥â¥¸¥å¡¼¥ë¡§modCPrintBanner
'===========================================================
'VBA ¤Î¥¯¥é¥¹¤Ë¤Ï¥³¥ó¥¹¥È¥é¥¯¥¿¤òÄêµÁ¤Ç¤¤Ê¤¤¤Î¤Ç
'ɸ½à¥â¥¸¥å¡¼¥ë¤ËÄêµÁ¤µ¤ì¤¿¥×¥í¥·¡¼¥¸¥ã¤òÊѤï¤ê¤Ë»È¤¦¡£
Option Explicit
'*** ¥³¥ó¥¹¥È¥é¥¯¥¿ ***
Public Function Init2(pstrValue As String _
) As clsCPrintBanner
Dim obj As clsCPrintBanner
Set obj = New clsCPrintBanner
'¥³¥ó¥¹¥È¥é¥¯¥¿¤Î¸Æ¤Ó½Ð¤·
Call obj.Init2(pstrValue)
Set Init2 = obj
End Function
'<<<<<<<<<<=================================================
'=================================================>>>>>>>>>>
'¥¯¥é¥¹¥â¥¸¥å¡¼¥ë¡§clsCPrintBanner
'===========================================================
Option Explicit
'¥¹¡¼¥Ñ¡¼¥¯¥é¥¹¾ðÊó
Implements clsCPrint
Private mobjSuper As clsCPrint
'°Ñ¾ù¥¯¥é¥¹
Private mobjBanner As clsCBanner
'ɸ½à¥â¥¸¥å¡¼¥ë¤ËÄêµÁ¤µ¤ì¤¿¥³¥ó¥¹¥È¥é¥¯¥¿¤«¤é
'¸Æ¤Ó½Ð¤µ¤ì¤ë¥á¥½¥Ã¥É¡£
Public Sub Init2(pstrValue As String)
'¥¹¡¼¥Ñ¡¼¥¯¥é¥¹¤Î¥¤¥ó¥¹¥¿¥ó¥¹¤ÎÀ¸À®
Set mobjSuper = modCPrint.Init1
'°Ñ¾ù¥¯¥é¥¹¤Î¥³¥ó¥¹¥È¥é¥¯¥¿¤Î¼Â¹Ô
Set mobjBanner = modCBanner.Init2(pstrValue)
End Sub
'clsCPrint¤ÎÃê¾Ý¥á¥½¥Ã¥É¤ò
'¼ÂÁõ¤·¤Æ¤¤¤ë¤è¤¦¤Ë¤ß¤»¤«¤±¤ë¡£
Public Sub PrintStrong()
Call mobjBanner.ShowWithAster
End Sub
'clsCPrint¤ÎÃê¾Ý¥á¥½¥Ã¥É¤ò
'¼ÂÁõ¤·¤Æ¤¤¤ë¤è¤¦¤Ë¤ß¤»¤«¤±¤ë¡£
Public Sub PrintWeak()
Call mobjBanner.ShowWithParen
End Sub
'-----------------------------------------------------------
'clsCPrint ¤Î¥¤¥ó¥¿¡¼¥Õ¥§¥¤¥¹
'-----------------------------------------------------------
Private Sub clsCPrint_PrintStrong()
Call Me.PrintStrong
End Sub
Private Sub clsCPrint_PrintWeak()
Call Me.PrintWeak
End Sub
'<<<<<<<<<<=================================================
'=================================================>>>>>>>>>>
'ɸ½à¥â¥¸¥å¡¼¥ë¡§modCMain
'===========================================================
Option Explicit
'*** ¥á¥¤¥ó½èÍý ***
'VBA ¤Î¥¯¥é¥¹¤Ë¤Ï¥¯¥é¥¹¥á¥½¥Ã¥É¤òÄêµÁ¤Ç¤¤Ê¤¤¤Î¤Ç
'ɸ½à¥â¥¸¥å¡¼¥ë¤ËÄêµÁ¤µ¤ì¤¿¥×¥í¥·¡¼¥¸¥ã¤òÊѤï¤ê¤Ë»È¤¦¡£
Sub Main1()
Dim objP As clsCPrint
Set objP = modCPrintBanner.Init2("Hello")
Call objP.PrintWeak
Call objP.PrintStrong
End Sub
'<<<<<<<<<<=================================================
Top > Excel VBA ¤Ç¥Ç¥¶¥¤¥ó¥Ñ¥¿¡¼¥ó > Adapter¥Ñ¥¿¡¼¥ó¡Ê°Ñ¾ù¡Ë
- ¥«¥Æ¥´¥ê¡§
- ¥Ñ¥½¥³¥ó
- ¥×¥í¥°¥é¥ß¥ó¥°
¤³¤Î¥Ú¡¼¥¸¤Ø¤Î¥³¥á¥ó¥È
jmpsAP I value the blog.
VBADP02_02 - VBA �� Java �Υ��֥������Ȼظ��ץ����ߥ� - Seesaa Wiki�ʥ������� for ���ޡ��ȥե��� モンクレール アウトレット http://www.pslcbi.com/moncler2014.html
VBADP02_02 - VBA �� Java �Υ��֥������Ȼظ��ץ����ߥ� - Seesaa Wiki�ʥ������� for ���ޡ��ȥե��� モンクレール スーパーコピー http://www.pslcbi.com/moncler2014.html
VBADP02_02 - VBA �� Java �Υ��֥������Ȼظ��ץ����ߥ� - Seesaa Wiki�ʥ������� for ���ޡ��ȥե��� モンクレール ダウン http://www.pslcbi.com/moncler2014.html
i5eat0 <a href="http://eydbdvhvgdxw.com/">eydbdvhvgdxw</a>, [url=http://rptunusecswr.com/]rptunusecswr[/url], [link=http://fdwbrvmaxmsx.com/]fdwbrvmaxmsx[/link], http://ucyqvgxbeqsu.com/