回 帖 发 新 帖 刷新版面

主题:在VB.NET中如何创建自己的文件格式并实现保存与打开功能?

请教高手:在VB.NET中如何创建自己的文件格式并实现保存与打开功能?
我在VB.NET中放置一个菜单项、三个LABEL控件和三个文本框控件,要实现的任务是:在三个文本框中输入文字,然后点击菜单中的SAVE,则打开保存文件对话框,点击确定,则将窗体上输入的信息以及窗体布局作为一个文件,比如RSR.MMN保存起来。再点击菜单中的OPEN,则出现打开文件对话框,选择RSR.MMN文件,则打开该文件。
  请问该如何编程啊?

回复列表 (共5个回复)

沙发

[em3]
我想你可以把窗体的的控件属性保存在一个文件里面(可以是数据库,也可以是文本文件),在里面保存一些属性,比如:三个文本框的NAME,横纵坐标,字体大小 以及 文本内容等。下次就可以读出来了!

板凳

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 楼

stzgh帅哥,你好:
  你太厉害了,能不能教我怎么把图片还有视频声音之类的也想文字一样弄(就像二楼一样),谢谢。。。。等你的回复。谢谢

4 楼

咋没人回答啊。大哥们帮忙啊。

5 楼

各位帅哥,怎么没人回答啊。帮个忙!谢谢

我来回复

您尚未登录,请登录后再回复。点此登录或注册