note.vb

参考,自己写的一个note 简单 可参考用

        Me.ToolBarButton1.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
        '
        'tbarbunSave
        '
        Me.tbarbunSave.ImageIndex = 1
        Me.tbarbunSave.Text = "Save"
        '
        'ToolBarButton2
        '
        Me.ToolBarButton2.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
        '
        'tbarbunOpen
        '
        Me.tbarbunOpen.ImageIndex = 2
        Me.tbarbunOpen.Text = "Open"
        '
        'ToolBarButton3
        '
        Me.ToolBarButton3.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
        '
        'tbarbunCut
        '
        Me.tbarbunCut.ImageIndex = 3
        Me.tbarbunCut.Text = "Cut"
        '
        'ToolBarButton4
        '
        Me.ToolBarButton4.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
        '
        'tbarbunCopy
        '
        Me.tbarbunCopy.ImageIndex = 4
        Me.tbarbunCopy.Text = "Copy"
        '
        'ToolBarButton5
        '
        Me.ToolBarButton5.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
        '
        'tbarbunPaste
        '
        Me.tbarbunPaste.ImageIndex = 5
        Me.tbarbunPaste.Text = "Paste"
        '
        'imglToolbar
        '
        Me.imglToolbar.ImageSize = New System.Drawing.Size(16, 16)
        Me.imglToolbar.ImageStream = CType(resources.GetObject("imglToolbar.ImageStream"), System.Windows.Forms.ImageListStreamer)
        Me.imglToolbar.TransparentColor = System.Drawing.Color.Transparent
        '
        'mainText
        '
        Me.mainText.Dock = System.Windows.Forms.DockStyle.Fill
        Me.mainText.Location = New System.Drawing.Point(0, 28)
        Me.mainText.Multiline = True
        Me.mainText.Name = "mainText"
        Me.mainText.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
        Me.mainText.Size = New System.Drawing.Size(492, 395)
        Me.mainText.TabIndex = 1
        Me.mainText.Text = ""
        '
        'note
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(492, 423)
        Me.Controls.Add(Me.mainText)
        Me.Controls.Add(Me.ToolBar1)
        Me.Menu = Me.MnuMain
        Me.Name = "note"
        Me.Text = "note"
        Me.ResumeLayout(False)

    End Sub

#End Region
    Public Sub fileName()
        If Me.mainText.Text <> Nothing Then
            If MessageBox.Show("是否保存现在文件?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Information) = DialogResult.No Then
                Me.mainText.Text = ""
            Else
                dlgSave.Filter = "文本文件|*.txt"
                If myfile Is Nothing Then
                    If dlgSave.ShowDialog = DialogResult.OK Then
                        myfile = New FileInfo(dlgSave.FileName)
                        writefile()
                    End If
                Else
                    writefile()
                End If
            End If
        End If
    End Sub



    Private Sub mnuFileNew_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mnuFileNew.Click
        fileName()
    End Sub

    Private Sub mnuFileOpen_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mnuFileOpen.Click
        If Me.dlgOpen.ShowDialog = DialogResult.OK Then
            dlgSave.Filter = "文本文件|*.txt"
            Dim oFile As FileStream
            Dim oReader As StreamReader
            Try
                myfile = New FileInfo(dlgOpen.FileName)
                oFile = myfile.Open(FileMode.Open)
                oReader = New StreamReader(oFile)
                Me.mainText.Text = oReader.ReadToEnd
            Catch ex As Exception
                MessageBox.Show(ex.Message, "Error")
            Finally
                oFile.Close()
                oReader.Close()
            End Try
        End If
    End Sub

    Private Sub mnuFileExit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mnuFileExit.Click
        Me.Close()
    End Sub

    Private Sub mnuFileSave_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mnuFileSave.Click
        dlgSave.Filter = "文本文件|*.txt"
        If dlgSave.ShowDialog = DialogResult.OK Then
            myfile = New FileInfo(dlgSave.FileName)
            writefile()
        End If

    End Sub
    Public Sub writefile()
        Try
            Dim oOpen As FileStream

            oOpen = myfile.Open(FileMode.OpenOrCreate)
            Dim oWrite As New StreamWriter(oOpen, System.Text.Encoding.Default)
            oWrite.Write(mainText.Text)

            oWrite.Close()
            oOpen.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message, "error")
        End Try


    End Sub

    Private Sub mnuEditCopy_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mnuEditCopy.Click
        Clipboard.SetDataObject(mainText.SelectedText)
    End Sub


    Private Sub mnuEditCut_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mnuEditCut.Click
        Clipboard.SetDataObject(mainText.SelectedText)
        mainText.SelectedText = ""
    End Sub

    Private Sub mnuEditPaste_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mnuEditPaste.Click
        mainText.SelectedText = Clipboard.GetDataObject.GetData(DataFormats.Text)
    End Sub

    Private Sub mnuEditSelectAll_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mnuEditSelectAll.Click
        mainText.SelectAll()
    End Sub

    Private Sub numHelpAbout_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles numHelpAbout.Click
        Dim strNote As String = "小小记事本1.0"
        Dim strDate As String = "2004.11.25"
        MessageBox.Show(strNote + vbCrLf + strDate)
    End Sub

    Private Sub ToolBar1_Click(ByVal sender As Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
        Select Case ToolBar1.Buttons.IndexOf(e.Button)
            Case 0
                mnuFileNew_Click(sender, e)
            Case 2
                mnuFileSave_Click(sender, e)
            Case 4
                mnuFileOpen_Click(sender, e)
            Case 6
                mnuEditCut_Click(sender, e)
            Case 8
                mnuEditCopy_Click(sender, e)
            Case 10
                mnuEditPaste_Click(sender, e)

        End Select
    End Sub

    Private Sub note_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        If MessageBox.Show("是否保存文件?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Information) = DialogResult.Yes Then
            dlgSave.Filter = "文本文件|*.txt"
            If myfile Is Nothing Then
                If dlgSave.ShowDialog = DialogResult.OK Then
                    myfile = New FileInfo(dlgSave.FileName)
                    writefile()
                End If
            Else
                writefile()
            End If
        Else
            e.Cancel = False
        End If
    End Sub

    Private Sub mnuFont_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuFont.Click
        If FontDialog1.ShowDialog = DialogResult.OK Then
            mainText.Font = FontDialog1.Font
            mainText.ForeColor = FontDialog1.Color
        End If
    End Sub

    Private Sub mnuColor_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mnuColor.Click
        If ColorDialog1.ShowDialog <> DialogResult.Cancel Then
            mainText.ForeColor = ColorDialog1.Color
        End If
    End Sub
End Class