モンスターが持っている可能性のあるさまざまな属性を抽出してみることをお勧めします。トップトランプを考えて...
次に、プロパティ/フィールドで表される各属性を持つ単一の Monster クラスを作成できます。
何かのようなもの
Class Monster
Public Name as String
Public Filename as String ' Location of graphics file on disk
Public Strength as Integer
Public Speed as Integer
Public Sub New(Name as String, Filename as String, Strength as Integer, Speed as Integer)
Me.Name = Name
Me.Filename = Filename
Me.Strength = Strength
Me.Speed = Speed
End Sub
End Class
すると、このようなモンスターを作成できるようになります。
Dim Monster1 as New Monster("monster1", "C:\Graphic1.jpg", 50, 10)
Dim Monster2 as New Monster("monster2", "C:\Graphic2.jpg", 1, 100)
Dim Monster3 as New Monster("monster3", "C:\Graphic3.jpg", 60, 17)
ただし、毎回新しい「ウィンドウ」を作成する必要はありません。
同様に、他の場所から「モンスター」データを取得することもできます...たとえば、データベースなどです。