''''case else也就是用户选择了取消
                Case Else
            End Select

            ''''else文本已经保存，直接执行打开文件操作
        Else
            If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
                rtbox.LoadFile(OpenFileDialog1.FileName, RichTextBoxStreamType.PlainText)
            End If
            bSave = True
        End If
    End Sub

    ''''下面这个函数是用来保存文件
    Private Sub savefile()
        ''''如果没有选择要保存的文件名，则弹出保存对话框，由用户选择要保存的文件名后保存文本
        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
        bSave = True
    End Sub

    ''''*****************************************************************************
    ''''打印，打印预览

    '''' 必须确定所有的打印事件都是针对同一个 PrintDocument
    Private WithEvents pdoc As New PrintDocument()

    '''' 打印文件是一个函数性的打印事件，每当要打印时该事件被触发
    '''' 下面是一个非常快速和有用的精确计算要打印的文本是否能够被包括到整张打印页面
    ''''是我从微软站点上得到的资料，我把它应用到了我的程序中
    Private Sub pdoc_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles pdoc.PrintPage
        '''' Declare a variable to hold the position of the last printed char. Declare
        '''' as static so that subsequent PrintPage events can reference it.
        Static intCurrentChar As Int32
        '''' Initialize the font to be used for printing.
        Dim font As New font("Microsoft Sans Serif", 24)

        Dim intPrintAreaHeight, intPrintAreaWidth, marginLeft, marginTop As Int32
        With pdoc.DefaultPageSettings
            '''' Initialize local variables that contain the bounds of the printing
            '''' area rectangle.
            intPrintAreaHeight = .PaperSize.Height - .Margins.Top - .Margins.Bottom
            intPrintAreaWidth = .PaperSize.Width - .Margins.Left - .Margins.Right

            '''' Initialize local variables to hold margin values that will serve
            '''' as the X and Y coordinates for the upper left corner of the printing
            '''' area rectangle.
            marginLeft = .Margins.Left '''' X coordinate
            marginTop = .Margins.Top '''' Y coordinate
        End With

        '''' If the user selected Landscape mode, swap the printing area height
        '''' and width.
        If pdoc.DefaultPageSettings.Landscape Then
            Dim intTemp As Int32
            intTemp = intPrintAreaHeight
            intPrintAreaHeight = intPrintAreaWidth
            intPrintAreaWidth = intTemp
        End If

        '''' Calculate the total number of lines in the document based on the height of
        '''' the printing area and the height of the font.
        Dim intLineCount As Int32 = CInt(intPrintAreaHeight / font.Height)
        '''' Initialize the rectangle structure that defines the printing area.
        Dim rectPrintingArea As New RectangleF(marginLeft, marginTop, intPrintAreaWidth, intPrintAreaHeight)

        '''' Instantiate the StringFormat class, which encapsulates text layout
        '''' information (such as alignment and line spacing), display manipulations
        '''' (such as ellipsis insertion and national digit substitution) and OpenType
        '''' features. Use of StringFormat causes MeasureString and DrawString to use
        '''' only an integer number of lines when printing each page, ignoring partial
        '''' lines that would otherwise likely be printed if the number of lines per
        '''' page do not divide up cleanly for each page (which is usually the case).
        '''' See further discussion in the SDK documentation about StringFormatFlags.
        Dim fmt As New StringFormat(StringFormatFlags.LineLimit)
        '''' Call MeasureString to determine the number of characters that will fit in
        '''' the printing area rectangle. The CharFitted Int32 is passed ByRef and used
        '''' later when calculating intCurrentChar and thus HasMorePages. LinesFilled
        '''' is not needed for this sample but must be passed when passing CharsFitted.
        '''' Mid is used to pass the segment of remaining text left off from the
        '''' previous page of printing (recall that intCurrentChar was declared as
        '''' static.
        Dim intLinesFilled, intCharsFitted As Int32
        e.Graphics.MeasureString(Mid(rtbox.Text, intCurrentChar + 1), font, _
                    New SizeF(intPrintAreaWidth, intPrintAreaHeight), fmt, _
                    intCharsFitted, intLinesFilled)

        '''' Print the text to the page.
        e.Graphics.DrawString(Mid(rtbox.Text, intCurrentChar + 1), font, _
            Brushes.Black, rectPrintingArea, fmt)

        '''' Advance the current char to the last char printed on this page. As
        '''' intCurrentChar is a static variable, its value can be used for the next
        '''' page to be printed. It is advanced by 1 and passed to Mid() to print the
        '''' next page (see above in MeasureString()).
        intCurrentChar += intCharsFitted

        '''' HasMorePages tells the printing module whether another PrintPage event
        '''' should be fired.
        If intCurrentChar < rtbox.Text.Length Then
            e.HasMor

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