cinime.exeって？ (ID:112111)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

原因が分かったのですが、対処方法はありませんでしょうか？
Formにボタン・ラベル、それぞれ２個づつ置き以下のコードを実行するとConimeが発生しますＴＴ；

Private Sub Read_Click... Handles Read.Click
        Dim Sample As New clsSample
        Dim fs As New IO.FileStream("C:\SampleXmlFile.xml", IO.FileMode.Open)
        Dim Serializer As New Xml.Serialization.XmlSerializer(GetType(clsSample))

Sample = Serializer.Deserialize(fs)
        fs.Close()
        Me.Label1.Text = Sample.Sample1
        Me.Label2.Text = Sample.Sample2
    End Sub
    Private Sub Write_Click... Handles Write.Click
        Dim Sample As New clsSample
        Dim fs As New IO.FileStream("C:\SampleXmlFile.xml", IO.FileMode.Create)
        Dim Serializer As New Xml.Serialization.XmlSerializer(GetType(clsSample))

Sample.Sample1 = Now
        Sample.Sample2 = "本日は晴天なり"
        Serializer.Serialize(fs, Sample)
        fs.Close()
    End Sub
End Class

Public Class clsSample
    Private dteSample1 As Date
    Private strSample2 As String
    Public Property Sample1() As Date
        Get
            Return dteSample1
        End Get
        Set(ByVal Value As Date)
            dteSample1 = Value
        End Set
    End Property
    Public Property Sample2() As String
        Get
            Return strSample2
        End Get
        Set(ByVal Value As String)
            strSample2 = Value
        End Set
    End Property
End Class

←解決時は質問者本人がここをチェックしてください。

戻る