変数のクラスをプログラムで再定義するにはどうすればよいですか？

Question

私は2つのクラス、ノートとHeldNoteを持っています。 HeldNoteはNoteから継承し、2つの変数だけでなく視覚的な次元を設定する別の方法を追加します。定義されていない量の配列があり、それぞれの項目はクラスノートのメンバーとして定義されています。

ときどき私のプログラムでは、配列内のこれらの項目の1つをノートではなくHeldNoteにしたいと思います。プログラムが実行されるまでは、どの項目がHeldNoteであるかわかりません。

VB.Netは配列（i）=新しいHeldNoteを宣言してもうまくいくようですが、HeldNoteには変数にアクセスできませんが、メモはありません。プログラムでブレークを使用すると、array（i）が実際にノートではなくHeldNoteとして再定義されているとは考えられません。

私の質問は、私は配列（i）ノートではなくHeldNoteをどうやって作るのですか？私はVB.net 2008

Editを使用してい

：私はこの問題についての私の教師を頼み、彼は知らなかったと述べて、それをルックアップするために私に言いました。私はオンラインで何もできませんでした（私は彼に尋ねる前から見ていたので）私はここで助けに来ました。

Answer 1

後者から派生するので注意の配列は、（あなたのサイズについて不明な点がある場合は、より良い（注）のリストを使用）注とHeldNoteの両方を保存することができます最初。

しかし、あなたはそれが自動的にノートに変換されていない配列にHeldNoteを保存するとき、それはあなたが必要なものをまだHeldNote、あるは、例えばHeldNote

に戻ってそれをキャストしようとすることです

Sub Main 

    Dim X(2) As Note 

    X(0) = New Note() WIth {.Note = "A Message"} 
    X(1) = New HeldNote() With {.Note = "Held Message", .Author = "Steve"} 


    Dim h As HeldNote 

    h = TryCast(X(0), HeldNote) 
    If h Is Nothing Then 
     Console.WriteLine("X(0) is NOT an HeldNote") 
    Else 
     Console.WriteLine(h.Author) 
    End If 

    h = TryCast(X(1), HeldNote) 
    If h Is Nothing Then 
     Console.WriteLine("X(1) is NOT an HeldNote") 
    Else 
     Console.WriteLine(h.Author) 
    End If 
End Sub 

Public Class Note 
    Public Note As String 
End Class 

Public Class HeldNote 
    Inherits Note 
    Public Author As String 
End Class 

このように、特定のNote配列（オブジェクト配列には何も格納することはできません）で許可されている厳密な型指定が緩んでいるため、オブジェクト配列を使用しないでHeldNoteを使用できます。ボタンや文字列で違いはありません）

Answer 2

いくつかの提案：

1）あなたのデザインを変更し、ただ一つのクラスではなく、他から継承するものを持っています。

2）配列をオブジェクト型として宣言します。 Object配列の各要素は異なる型にすることができます。この方法で、各要素のタイプを実行時に割り当てることができます。

Dim notearray As Object() = New Object() {New Note(), New HeldNote(), New HeldNote(), New Note()} 

Answer 3

これはコードの問題ではなく、ほぼOOの質問です。

"私は、項目の定義されていない量の配列を持ち、各項目はクラスノートのメンバーとして定義されています。"

これらのすべてが「注」です。

Note theNote = new HeldNote() 

ていますが、実行上のインスタンスはそう宣言した「ダウングレード」することはできません：あなたはとてもクラスのインスタンスを作成することができます

Note theNote = new Note()". 

あなたが「ランダム」タイプの変更が必要な場合は、あなたが作成することができますListOf（HeldNote）。 その後、あなたはとても本当のタイプを決めることができます。

Dim aList as new ListOf(HeldNote) 
aList.add(new HeldNote()) 
aList.add(new HeldNote()) 
aList.add(new HeldNote()) 

Dim oNote as Note 
oNote = Ctype(aList(0),Note) 

Dim oNote as HeldNote 
oNote = aList(1) 
...