主题:在VB.NET中如何创建自己的文件格式并实现保存与打开功能?
stzgh
[专家分:0] 发布于 2006-01-09 09:54:00
请教高手:在VB.NET中如何创建自己的文件格式并实现保存与打开功能?
我在VB.NET中放置一个菜单项、三个LABEL控件和三个文本框控件,要实现的任务是:在三个文本框中输入文字,然后点击菜单中的SAVE,则打开保存文件对话框,点击确定,则将窗体上输入的信息以及窗体布局作为一个文件,比如RSR.MMN保存起来。再点击菜单中的OPEN,则出现打开文件对话框,选择RSR.MMN文件,则打开该文件。
请问该如何编程啊?
回复列表 (共5个回复)
沙发
薛一刀 [专家分:220] 发布于 2006-01-11 10:08:00
[em3]
我想你可以把窗体的的控件属性保存在一个文件里面(可以是数据库,也可以是文本文件),在里面保存一些属性,比如:三个文本框的NAME,横纵坐标,字体大小 以及 文本内容等。下次就可以读出来了!
板凳
stzgh [专家分:0] 发布于 2006-01-12 16:27:00
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim strFileName As String
Dim SaveFileDialog1 As New SaveFileDialog
strFileName = Text1.Text
With SaveFileDialog1
.DefaultExt = "byt "
.FileName = strFileName
.Filter = " Textfiles ( *.byt )|*.byt"
.FilterIndex = 1
.InitialDirectory = "f:\\"
.OverwritePrompt = True
.Title = "文件保存对话框"
End With
'以下是把文本框中的文字另保存为文本文件
If SaveFileDialog1.ShowDialog() = DialogResult.OK Then
strFileName = SaveFileDialog1.FileName
Dim objWriter As StreamWriter = New StreamWriter(strFileName, False, System.Text.Encoding.Default)
objWriter.Write(Text1.Text & Chr(13) & Text2.Text & Chr(13) & Text3.Text & Chr(13) & RichText1.Text)
objWriter.Close()
objWriter = Nothing
End If
end sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim strFileName As String
Dim openfiledialog1 As New OpenFileDialog
' 设定打开文件对话框的属性
With openfiledialog1
.Filter = "psy( *.byt )|*.byt"
.InitialDirectory = "f:\\"
.Title = "打开文件对话框"
End With
'以下是打开文本文件,并通过文本框显示出来
If openfiledialog1.ShowDialog() = DialogResult.OK Then
strFileName = openfiledialog1.FileName
Dim objReader As StreamReader = New StreamReader(strFileName, System.Text.Encoding.Default)
Dim s As String
Text1.Text = objReader.ReadLine
Text2.Text = objReader.ReadLine
Text3.Text = objReader.ReadLine
RichText1.Text = objReader.ReadToEnd
objReader.Close()
objReader = Nothing
End If
End Sub
3 楼
muradil0903 [专家分:0] 发布于 2009-01-01 23:39:00
stzgh帅哥,你好:
你太厉害了,能不能教我怎么把图片还有视频声音之类的也想文字一样弄(就像二楼一样),谢谢。。。。等你的回复。谢谢
4 楼
muradil0903 [专家分:0] 发布于 2009-01-02 23:11:00
咋没人回答啊。大哥们帮忙啊。
5 楼
muradil0903 [专家分:0] 发布于 2009-01-03 15:21:00
各位帅哥,怎么没人回答啊。帮个忙!谢谢
我来回复