関数等の分岐を簡素に記述するには (ID:86574)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 こういうことがやりたいんでしょうか？ '**************************************** 'Class1.clsのコード '**************************************** Option Explicit Private m_no1 As String Private m_no2 As Byte Private m_no3 As Single Public Property Get no1() As String no1 = m_no1 End Property Public Property Let no1(ByVal NewValue As String) m_no1 = NewValue End Property Public Property Get no2() As Byte no2 = m_no2 End Property Public Property Let no2(ByVal NewValue As Byte) m_no2 = NewValue End Property Public Property Get no3() As Single no3 = m_no3 End Property Public Property Let no3(ByVal NewValue As Single) m_no3 = NewValue End Property Public Sub proc1() MsgBox "関数１" End Sub Public Sub proc2() MsgBox "関数２" End Sub Public Sub proc3() MsgBox "関数３" End Sub '**************************************** 'Form1.frmのコード '**************************************** Option Explicit Private Sub Command1_Click() Dim objClass1 As Class1 Set objClass1 = New Class1 CallByName objClass1, "no" & 1, VbLet, "1" CallByName objClass1, "no" & 2, VbLet, 1 CallByName objClass1, "no" & 3, VbLet, 123.123 MsgBox objClass1.no1 MsgBox objClass1.no2 MsgBox objClass1.no3 CallByName objClass1, "proc" & 1, VbMethod CallByName objClass1, "proc" & 2, VbMethod CallByName objClass1, "proc" & 3, VbMethod Set objClass1 = Nothing End Sub