Private Sub printpreview()
        Dim ppd As New PrintPreviewDialog()
        Try
            ppd.Document = pdoc
            ppd.ShowDialog()
        Catch exp As Exception
            MessageBox.Show("有错误发生！！不能预览 ！" & _
                "确信现在你是否能够 " & _
                "连接到一个打印机？" & _
                "然后预览才可以.", Me.Text, _
                 MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

    Private Sub mPrintpreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mPrintpreview.Click
        printpreview()
    End Sub

    Private Sub mPagesetup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mPagesetup.Click
        Dim psd As New PageSetupDialog()
        With psd
            .Document = pdoc
            .PageSettings = pdoc.DefaultPageSettings
        End With

        If psd.ShowDialog = DialogResult.OK Then
            pdoc.DefaultPageSettings = psd.PageSettings
        End If
    End Sub

    Private Sub printfile()
        Dim dialog As New PrintDialog()
        dialog.Document = pdoc

        If dialog.ShowDialog = DialogResult.OK Then
            pdoc.Print()
        End If
    End Sub
    ''''********************************************************************************

    Private Sub mNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mNew.Click
        newfile()
    End Sub

    Private Sub mOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mOpen.Click
        openfile()
    End Sub

    Private Sub mSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mSave.Click
        savefile()
    End Sub

    Private Sub mSaveas_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mSaveas.Click
        ''''将保存文件窗口标题改为“文件另存为”
        SaveFileDialog1.Title = "文件另存为"
        If SaveFileDialog1.ShowDialog() = DialogResult.OK Then
            rtbox.SaveFile(SaveFileDialog1.FileName, RichTextBoxStreamType.PlainText)
            bSave = True
        End If
        ''''将标题改回
        SaveFileDialog1.Title = "保存文件"
    End Sub

    Private Sub mExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mExit.Click
        ''''退出操作
        Close()
    End Sub

    ''''在关闭程序之前，判断文本是否需要保存
    Private Sub formMain_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        If bSave = False Then
            Dim flag As Integer
            flag = MessageBox.Show("文件内容已更改，想保存文件吗？？", "info", MessageBoxButtons.YesNo, MessageBoxIcon.Information)
            Select Case flag
                ''''case 6是当用户选择了“保存”，则执行保存文件的操作
            Case 6
                    ''''如果没有选择要保存的文件名，则弹出保存对话框，由用户选择要保存的文件名后保存文本
                    If SaveFileDialog1.FileName = "" Then
                        If SaveFileDialog1.ShowDialog Then
                            rtbox.SaveFile(SaveFileDialog1.FileName, RichTextBoxStreamType.PlainText)
                        End If
                    Else
                        ''''如果已经选择了要保存的文件名，则保存文本到文件中
                        rtbox.SaveFile(SaveFileDialog1.FileName, RichTextBoxStreamType.PlainText)
                    End If
                Case Else
                    ''''不保存
            End Select
        End If
    End Sub

    ''''关于显示“关于”窗体的代码
    Private Sub mAbout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mAbout.Click
        ''''首先需要定义一个“关于”Form的实例
        Dim fAbout As New formAbout()
        ''''显示他
        fAbout.Show()
    End Sub

    Private Sub mFont_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mFont.Click
        If FontDialog1.ShowDialog() = DialogResult.OK Then
            rtbox.Font = FontDialog1.Font
        End If
    End Sub

    Private Sub mUndo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mUndo.Click
        rtbox.Undo()
    End Sub

    Private Sub mCut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mCut.Click
        rtbox.Cut()
    End Sub

    Private Sub mCopy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mCopy.Click
        rtbox.Copy()
    End Sub

    Private Sub mPaste_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mPaste.Click
        rtbox.Paste()
    End Sub

    Private Sub mClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mClear.Click
        rtbox.Clear()
    End Sub

    Private Sub mSelectall_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mSelectall.Click
        rtbox.SelectAll()
    End Sub

    Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  下一页