XMLファイルに設定情報を保存仕様としているのですが,ある所でエラーが出てうまく走りません.
下記がそのプログラムになりますが,XMLファイルに保存のコメント下の所でエラーになります.
エラーの内容は「保護レベルの設定が原因で'windowsApplication1.Form2'にアクセスできません」
です.
どなたかご教示のほどよろしくお願いいたします.
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
'ファイルが存在しない場合に新規にブランクファイルを作成する
'XMLファイルパス
Dim xmlFile1 As String = "C:\OBS_Setting.xml"
Dim hStream As System.IO.FileStream
'XMLファイルが存在するか確認
If Dir(xmlFile1) = "" Then
' 指定したパスのファイルを作成する
hStream = System.IO.File.Create(xmlFile1)
' hStream が破棄されることを保証するために Try ~ Finally を使用する
Try
' hStream が閉じられることを保証するために Try ~ Finally を使用する
Try
Finally
' 作成時に返される FileStream を利用して閉じる
If Not hStream Is Nothing Then
hStream.Close()
End If
End Try
Finally
' hStream を破棄する
If Not hStream Is Nothing Then
Dim cDisposable As System.IDisposable = hStream
cDisposable.Dispose()
End If
End Try
End If
'XMLファイルに設定データを保存する
Dim Area As String = ComboBox1.Text
Dim State As String = ComboBox2.Text
Dim City As String = ComboBox3.Text
Dim BefY As String = ComboBox4.SelectedIndex
Dim AftY As String = ComboBox5.SelectedIndex
Dim BefM As String = ComboBox6.SelectedIndex
Dim AftM As String = ComboBox7.SelectedIndex
'保存するオブジェクトの配列を作成
'保存するオブジェクトの配列を作成
Dim myClasses(6) As SampleClass
myClasses(0) = New SampleClass()
myClasses(0).Number = 0
myClasses(0).Message = Area
myClasses(1) = New SampleClass()
myClasses(1).Number = 1
myClasses(1).Message = State
myClasses(2) = New SampleClass()
myClasses(2).Number = 2
myClasses(2).Message = City
myClasses(3) = New SampleClass()
myClasses(3).Number = 3
myClasses(3).Message = BefY
myClasses(4) = New SampleClass()
myClasses(4).Number = 4
myClasses(4).Message = AftY
myClasses(5) = New SampleClass()
myClasses(5).Number = 5
myClasses(5).Message = BefM
myClasses(6) = New SampleClass()
myClasses(6).Number = 6
myClasses(6).Message = AftM
'XMLファイルに保存
Dim serializer As New System.Xml.Serialization.XmlSerializer(GetType(SampleClass()))
Dim fs1 As New IO.FileStream(xmlFile1, IO.FileMode.Create)
serializer.Serialize(fs1, myClasses)
fs1.Close()
End Sub
'XMLファイルに保存するオブジェクトのためのクラス
Public Class SampleClass
Public Number As Integer
Public Message As String
End Class
A 回答 (1件)
- 最新から表示
- 回答順に表示
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Visual Basic(VBA) batからexeを実行し戻り値を受け取る バッチからEXEの結果を受け取りたいのですが、 下記のバッ 1 2023/07/04 15:13
- Visual Basic(VBA) VBAが止まります。 3 2022/08/31 14:09
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Visual Basic(VBA) VBAが止まります。 2 2022/09/02 14:02
- Visual Basic(VBA) batからexeを実行し戻り値を受け取る EXEの実行内容の結果によって、戻り値を0か1かで返したい 1 2023/07/04 16:40
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【Excel】[Expression.Error] ...
-
共有フォルダに誰が何にアクセ...
-
Access VBA を利用して、フォル...
-
特定のエクセルファイルを起動...
-
拡張子が「cda」のファイルを聞...
-
月が変わったら自動でシートが...
-
Batch: フォルダ内の特定のファ...
-
excelを共有ファイルにすると行...
-
【アクセス】「ほかのユーザー...
-
MATLABで波形を一周期ごとに区...
-
VBAでCSVファイルが使用中かど...
-
【ExcelVBA】FreeFile関数とGet...
-
tmpファイル なぜできる?削除...
-
事務の派遣で働いています。多...
-
ファイルの途中に文字列を挿入
-
AccessVBAで作成したExcelファ...
-
C言語でのこぎり波を作る方法
-
ExcelVBAでの標準偏差の求め方
-
オンラインでのEXCELデータ共有...
-
Access2003 デザインモードで...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
共有フォルダに誰が何にアクセ...
-
【Excel】[Expression.Error] ...
-
特定のエクセルファイルを起動...
-
Batch: フォルダ内の特定のファ...
-
VBAでCSVファイルが使用中かど...
-
月が変わったら自動でシートが...
-
tmpファイル なぜできる?削除...
-
AccessVBAで作成したExcelファ...
-
Access VBA を利用して、フォル...
-
(Excelマクロ)datファイルをエ...
-
事務の派遣で働いています。多...
-
Excel VBA 処理後データが重た...
-
excelを共有ファイルにすると行...
-
【アクセス】「ほかのユーザー...
-
XMLデータを変換し印刷する方法
-
CSVの項目行を削除して一つのフ...
-
mdbファイル フォームを開くと...
-
社内Excel共有ブックでの保存ト...
-
ファイルの途中に文字列を挿入
-
拡張子が「cda」のファイルを聞...
おすすめ情報