Public Class Form1
Private g_data As New Storage With {.SampleData = "Hello"}
Private FileDialog As SaveFileDialog
Public Sub New()
InitializeComponent()
FileDialog = New SaveFileDialog()
FileDialog.Filter = "UOK Application | *.app"
FileDialog.DefaultExt = "app"
End Sub
Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
Dim dr As DialogResult = FileDialog.ShowDialog()
Dim fileName As String = FileDialog.FileName
Dim AppSerializer As Xml.Serialization.XmlSerializer = New Xml.Serialization.XmlSerializer(GetType(Storage))
Dim fileStream As New System.IO.FileStream(fileName, IO.FileMode.Create)
Dim SW As New System.IO.StreamWriter(fileStream)
AppSerializer.Serialize(SW, g_data)
SW.Close()
End Sub
End Class
Public Class Storage
Public SampleData As String
End Class
