-1
VB.net에서 XML 파일로 직렬화해야하는 일부 텍스트 상자가 포함 된 양식을 만들었습니다.VB.NET 직렬화 및 저장
모두 괜찮습니다. 저장 부분입니다. 나는 누군가가 결제 애플 리케이션을 사용할 때마다 대체 될 하나의 파일을 생성하기 위해 streamwriter/reader를 얻을 수 있었지만 Savefile 대화 상자를 사용하여 다른 곳에 serialize 된 파일을 저장하고 싶었고 스트림을 사용하지 않고 openfile 대화 상자를 사용하여 파일을 열고 싶습니다. . 여기
코드입니다 :'
Public Structure User
Public UserName As String
Public PassWord As String
Public StreetAddress As String
Public City As String
Public State As String
Public Zip As String
End Structure
Private Function CreateRecord() As User
Dim r As User
With r
.UserName = TextBox1.Text
.PassWord = TextBox2.Text
.StreetAddress = TextBox3.Text
.City = TextBox4.Text
.State = TextBox5.Text
.Zip = TextBox6.Text
End With
Return r
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ser As New XmlSerializer(GetType(User))
Dim fs As New FileStream("c:\userrecord.txt", FileMode.Create)
ser.Serialize(fs, CreateRecord())
fs.Close()
End Sub
Private Sub LoadIntoTB(ByVal rec As User)
With rec
TextBox1.Text = .UserName
TextBox2.Text = .PassWord
TextBox3.Text = .StreetAddress
TextBox4.Text = .City
TextBox5.Text = .State
TextBox6.Text = .Zip
End With
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim ser As New XmlSerializer(GetType(User))
Dim fs As New FileStream("c:\userrecord.txt", FileMode.OpenOrCreate)
Dim rec As User
rec = DirectCast(ser.Deserialize(fs), User)
LoadIntoTB(rec)
fs.Close()
End Sub