VB.net小技巧——将文本框内容以当前日期时间为标题进行保存

1、在工具箱使用saveFileDialog控件

 

2、设置filter属性

 

文本文件(*.txt)|*.txt|配置文件(*.ini*)|*.ini*|所有文件(*.*)|*.*

 

3、添加以下代码，（还需要按钮控件和BOX控件）

 

 

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        If File.Exists(SaveFileDialog1.FileName) Then

            SaveFileDialog1.FileName = Now.Year & "年" & Now.Month & "月" & Now.Day & "日" & Now.Hour & "时" & Now.Minute & "分" & Now.Second & "秒"

        End If

        If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then

            Try

                File.AppendAllText(SaveFileDialog1.FileName, vbCrLf & Box1.Text & vbCrLf, System.Text.Encoding.Default)

            Catch ex As Exception

                MessageBox.Show(ex.Message, My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Error)

            End Try

        End If

    End Sub

————————————————

版权声明：本文为CSDN博主「十年老鸟」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。

原文链接：https://blog.csdn.net/gzy0506/article/details/120979695