cinime.exeって？ (ID:112117)

名前

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

本文

特攻隊長まるるうさん丁寧にありがとうございます。
>>FileSystemObject を使った方法
>>System.Xml.XmlDocument を使った方法
ということで、MSDNライブラリーを詳しく読んでみるとバイナリシリアル化と言う項を見つけ、
なんとかconimeちゃんを追い出す事に成功しました。だた解決では無いので未だに気になりますけど^^;

Imports System.Runtime.Serialization.Formatters.Binary
Public Class Form1
    Inherits System.Windows.Forms.Form
     Private Sub btnWrite_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnWrite.Click
        Dim Sample2 As New clsSample2
        Sample2.Sample1 = Now
        Sample2.Sample2 = "本日は晴天なり"
        Sample2.Serialize(Sample2, "C:\BinaryXML.dat")
    End Sub

Private Sub btnRead_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRead.Click
        Dim Sample2 As New clsSample2
        Sample2.Deserialize(Sample2, "C:\BinaryXML.dat")
        Me.Label1.Text = Sample2.Sample1
        Me.Label2.Text = Sample2.Sample2
    End Sub

<Serializable()> Public Class clsSample2
    Private dteSample1 As Date
    Private strSample2 As String

Public Sub Serialize(ByRef Sample2 As clsSample2, ByVal SavePath As String)
        Dim fs As New IO.FileStream(SavePath, IO.FileMode.Create)
        Dim formatter As New BinaryFormatter
        formatter.Serialize(fs, Sample2)
        fs.Close()
    End Sub
    Public Sub Deserialize(ByRef Sample2 As clsSample2, ByVal LoadPath As String)
        Dim fs As New IO.FileStream(LoadPath, IO.FileMode.Open)
        Dim formatter As New BinaryFormatter
        Sample2 = formatter.Deserialize(fs)
        fs.Close()
    End Sub
    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

改めて特攻隊長まるるうさん貴重な時間を割いて頂いて有難うございました。

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

戻る