Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


1156 / 76734 ←次へ | 前へ→

【81233】Re:キー値と属性の組の集合を良い感じに変数にしたい
回答  hatena  - 20/3/17(火) 21:20 -

引用なし
パスワード
   例えば、キャラのプロパティを設定して、コレクションに登録する部分のコードが面倒なので、シンプルに1行にしたいというときは、クラスモジュールに下記のようにメソッドを追加します。

クラスモジュール Chara
--------------------
Option Explicit

Public Name As String
Public HP As Long
Public AttacK As Long
Public Defence As Long
Public Skill As String

Public Sub Init(aCol As Collection, aName As String, aHP As Long, aAttacK As Long, aDefence As Long, aSkill As String)
  Name = aName
  HP = aHP
  AttacK = aAttacK
  Defence = aDefence
  Skill = aSkill
  aCol.Add Me, Name
End Sub
-------------------

そうすると前回の回答の使用例のコードは下記のようになります。

Public Sub test1()
  Dim colChara As Collection
  Set colChara = New Collection
  
  Dim C As Chara
  
  Set C = New Chara
  C.Init colChara, "ガイ", 200, 90, 50, "兜割り"
  
  Set C = New Chara
  C.Init colChara, "トム", 300, 30, 90, "鉄壁の守り"
  
  
  Debug.Print colChara("ガイ").HP
  Debug.Print colChara("トム").Defence

End Sub

7 hits

【81182】キー値と属性の組の集合を良い感じに変数にしたい りった 20/2/29(土) 10:07 質問[未読]
【81184】Re:キー値と属性の組の集合を良い感じに変... マナ 20/3/1(日) 9:07 発言[未読]
【81231】Re:キー値と属性の組の集合を良い感じに変... りった 20/3/14(土) 13:58 お礼[未読]
【81232】Re:キー値と属性の組の集合を良い感じに変... hatena 20/3/17(火) 20:11 回答[未読]
【81233】Re:キー値と属性の組の集合を良い感じに変... hatena 20/3/17(火) 21:20 回答[未読]

1156 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free