实例074简易记事本

Public Class Form1
    Dim preFileName = Format(Now.Date, "yyyyMMdd")
    Dim FileInUse As String = ""
    Dim FileSaveStatus As Boolean = False

    Private Sub InitNotePad()
        TextBox1.Text = ""
        FileInUse = ""
        FileSaveStatus = True
        Me.Text = "当前文件--Untitled"
        TextBox1.Focus()
        'MsgBox(preFileName)
    End Sub

    Private Function SaveFile() As Boolean
        If FileSaveStatus Then
            Dim res As DialogResult
            If FileInUse = "" Then
                dlgSaveFile.Filter = "文本文件(*.txt)|*.txt"
                dlgSaveFile.FileName = "Untitled"
                res = dlgSaveFile.ShowDialog
                If res = DialogResult.OK Then
                    FileInUse = dlgSav