特殊・他 クラスモジュール初歩的記述

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][特殊・他 クラスモジュール初歩的記述]

Option Explicit
'クラスモジュールに「C_TestName」というオブジェクト名をつけて下記を記述します。
Function ThisName(bytNo As Byte) As String
Select Case bytNo
Case 1
ThisName = "一郎"
Case 2
ThisName = "二郎"
Case 3
ThisName = "三郎"
Case 4
ThisName = "四郎"
Case 5
ThisName = "五郎"
Case 6
ThisName = "六郎"
Case 7
ThisName = "七郎"
Case Else
ThisName = "花子"
End Select
End Function

------------------------------------------
Option Explicit
'標準モジュールに「M_ClassTest」というオブジェクト名をつけて下記を記述します。
Sub ClassTest()
Dim Test1 As New C_TestName
Dim a As Byte

a = CByte(InputBox("Name NO?", "as Byte", 0))

MsgBox Test1.ThisName(a), 0, "ANS"
End Sub
'上記「ClassTest」を実行してみてください。





Production Japan Import Application. Since 1998