準備
[1] ファイルを右クリックし、[プロパティ]を選択
[2] プロパティの「ビルドアクション」を「埋め込まれたりソース」に変更
サンプル
' XMLファイルに保存するオブジェクトのためのクラス
Public Class Class1
Public Number As Integer
Public Message As String
End Class
Public Class SampleClass
Private Shared class1Array As Class1()
Public Shared Function GetClass1Array() As Class1()
If SampleClass.class1Array Is Nothing Then
SampleClass.class1Array = SampleClass.LoadXmlFile()
End If
Return SampleClass.class1Array
End Function
Private Shared Function LoadXmlFile() As Class1()
' 現在のコードを実行しているAssemblyを取得
Dim assembly As System.Reflection.Assembly = _
System.Reflection.Assembly.GetExecutingAssembly()
'ファイルを開く
Dim fs As System.IO.FileStream = _
assembly.GetManifestResourceStream("VBTestSite.XMLFile1.xml")
'XmlSerializerオブジェクトの作成
Dim serializer As _
New System.Xml.Serialization.XmlSerializer(GetType(Class1))
'XMLファイルから読み込み、逆シリアル化する
Dim class1s As Class1() = DirectCast(serializer.Deserialize(fs), Class1())
'閉じる
fs.Close()
Return class1s
End Function
End Class