特殊・他 クラスモジュール初歩的記述
※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。
※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。
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」を実行してみてください。 |