RichTextBox denetiminin içeriði, Visual Basic .NET veya Visual Basic 2005 kullanarak yazdýrma hakkýnda

Üste

Bir RichTextBoxPrintCtrl denetimi oluþturma

1. Yeni bir sýnýf oluþturmak için Microsoft Visual Basic .NET'i veya Microsoft Visual Basic 2005 kullanmak RichTextBoxPrintCtrl adlý kitaplýðý proje.
   
   Varsayýlan olarak, Class1.vb oluþturulur.
2. Class1.vb dosyasýnýn adý için RichTextBoxPrintCtrl.vb deðiþtirin.
3. Solution Explorer'da Baþvurular ' ý sað týklatýn ve Add Reference</a1>'ý týklatýn.
4. Baþvuru Ekle) iletiþim kutusunda, System.Drawing.dll ' ý çift týklatýn ve System.Windows.Forms.dll</a5>'ni çift týklatýn.
5. Baþvurularý eklemek için Tamam ' ý týklatýn.
6. Varolan kod RichTextBoxPrintCtrl.vb silin.
7. Copy the following code to RichTextBoxPrintCtrl.vb:

   Option Explicit On 
   
   Imports System
   Imports System.Windows.Forms
   Imports System.Drawing
   Imports System.Runtime.InteropServices
   Imports System.Drawing.Printing
   
   Namespace RichTextBoxPrintCtrl
      Public Class RichTextBoxPrintCtrl
         Inherits RichTextBox
         ' Convert the unit that is used by the .NET framework (1/100 inch) 
         ' and the unit that is used by Win32 API calls (twips 1/1440 inch)
         Private Const AnInch As Double = 14.4
   
         <StructLayout(LayoutKind.Sequential)> _
          Private Structure RECT
            Public Left As Integer
            Public Top As Integer
            Public Right As Integer
            Public Bottom As Integer
         End Structure
   
         <StructLayout(LayoutKind.Sequential)> _
         Private Structure CHARRANGE
            Public cpMin As Integer          ' First character of range (0 for start of doc)
            Public cpMax As Integer          ' Last character of range (-1 for end of doc)
         End Structure
   
         <StructLayout(LayoutKind.Sequential)> _
         Private Structure FORMATRANGE
            Public hdc As IntPtr             ' Actual DC to draw on
            Public hdcTarget As IntPtr       ' Target DC for determining text formatting
            Public rc As Rect                ' Region of the DC to draw to (in twips)
            Public rcPage As Rect            ' Region of the whole DC (page size) (in twips)
            Public chrg As CHARRANGE         ' Range of text to draw (see above declaration)
         End Structure
   
         Private Const WM_USER As Integer = &H400
         Private Const EM_FORMATRANGE As Integer = WM_USER + 57
   
         Private Declare Function SendMessage Lib "USER32" Alias "SendMessageA" (ByVal hWnd As IntPtr, ByVal msg As Integer, ByVal wp As IntPtr, ByVal lp As IntPtr) As IntPtr
   
         ' Render the contents of the RichTextBox for printing
         '	Return the last character printed + 1 (printing start from this point for next page)
         Public Function Print(ByVal charFrom As Integer, ByVal charTo As Integer, ByVal e As PrintPageEventArgs) As Integer
   
            ' Mark starting and ending character 
            Dim cRange As CHARRANGE
            cRange.cpMin = charFrom
            cRange.cpMax = charTo
   
            ' Calculate the area to render and print
            Dim rectToPrint As RECT
            rectToPrint.Top = e.MarginBounds.Top * AnInch
            rectToPrint.Bottom = e.MarginBounds.Bottom * AnInch
            rectToPrint.Left = e.MarginBounds.Left * AnInch
            rectToPrint.Right = e.MarginBounds.Right * AnInch
   
            ' Calculate the size of the page
            Dim rectPage As RECT
            rectPage.Top = e.PageBounds.Top * AnInch
            rectPage.Bottom = e.PageBounds.Bottom * AnInch
            rectPage.Left = e.PageBounds.Left * AnInch
            rectPage.Right = e.PageBounds.Right * AnInch
   
            Dim hdc As IntPtr = e.Graphics.GetHdc()
   
            Dim fmtRange As FORMATRANGE
            fmtRange.chrg = cRange                 ' Indicate character from to character to 
            fmtRange.hdc = hdc                     ' Use the same DC for measuring and rendering
            fmtRange.hdcTarget = hdc               ' Point at printer hDC
            fmtRange.rc = rectToPrint              ' Indicate the area on page to print
            fmtRange.rcPage = rectPage             ' Indicate whole size of page
   
            Dim res As IntPtr = IntPtr.Zero          
   
            Dim wparam As IntPtr = IntPtr.Zero
            wparam = New IntPtr(1)
   
            ' Move the pointer to the FORMATRANGE structure in memory
            Dim lparam As IntPtr = IntPtr.Zero
            lparam = Marshal.AllocCoTaskMem(Marshal.SizeOf(fmtRange))
            Marshal.StructureToPtr(fmtRange, lparam, False)
   
            ' Send the rendered data for printing 
            res = SendMessage(Handle, EM_FORMATRANGE, wparam, lparam)
   
            ' Free the block of memory allocated
            Marshal.FreeCoTaskMem(lparam)
   
            ' Release the device context handle obtained by a previous call
            e.Graphics.ReleaseHdc(hdc)
   
            ' Return last + 1 character printer
            Return res.ToInt32()
         End Function
   
      End Class
   End Namespace
   

8. RichTextBoxPrintCtrl.dll oluþturmak için Oluþtur) menüsünde Build Solution ' ý týklatýn.

Üste

Denetimi sýnamak

1. Visual Basic .NET veya Visual Basic 2005 kullanarak yeni bir Windows uygulamasý) projesi oluþturun.
   
   Varsayýlan olarak, Form1.vb oluþturulur.
2. Araç kutusundan, bir düðme Form1'ýn sürükleyin. BtnPageSetup için adýný deðiþtirmek ve Sayfa Yapýsý ' na metni deðiþtirin.
3. Araç kutusundan baþka bir düðme Form1'ýn sürükleyin. BtnPrintPreview için adýný deðiþtirin ve Baský Önizleme ' ye metni deðiþtirin.
4. Araç kutusundan baþka bir düðme Form1'ýn sürükleyin. BtnPrint için adýný deðiþtirin ve yazdýrma için metni deðiþtirin.
5. Araç, PrintDialog çift týklatýn, PrintPreviewDialog çift týklatýn, PrintDocument çift týklatýn ve sonra PageSetupDialog'un bu denetimler Form1'e eklemek için çift týklatýn.
6. Belge özelliðinin PrintDialog1, PrintPreviewDialog1 ve PageSetupDialog1PrintDocument1 için deðiþtirin.
7. Araçlar menüsünde Özelleþtir araç.
8. .NET Framework bileþenleri ' ni týklatýn, Gözat ' ý týklatýn, RichTextBoxPrintCtrl.dll týklatýp seçin ve Tamam ' ý týklatýn.
9. Araç kutusundan RichTextBoxPrintCtrl Form1'ýn sürükleyin.
10. Solution Explorer'da Form1.vb ' ý sað týklatýn ve Kod Görüntüle</a1>'ý týklatýn.
11. Sýnýf Form1'e aþaðýdaki kodu ekleyin:

       Private checkPrint As Integer
    
       Private Sub PrintDocument1_BeginPrint(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintEventArgs) Handles PrintDocument1.BeginPrint
          checkPrint = 0
       End Sub
    
       Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
          ' Print the content of the RichTextBox. Store the last character printed.
          checkPrint = RichTextBoxPrintCtrl1.Print(checkPrint, RichTextBoxPrintCtrl1.TextLength, e)
    
          ' Look for more pages
          If checkPrint < RichTextBoxPrintCtrl1.TextLength Then
             e.HasMorePages = True
          Else
             e.HasMorePages = False
          End If
       End Sub
    
       Private Sub btnPageSetup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPageSetup.Click.Click
          PageSetupDialog1.ShowDialog()
       End Sub
    
       Private Sub btnPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click
          If PrintDialog1.ShowDialog() = DialogResult.OK Then
             PrintDocument1.Print()
          End If
       End Sub
    
       Private Sub btnPrintPreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrintPreview.Click
          PrintPreviewDialog1.ShowDialog()
       End Sub

12. Uygulamayý çalýþtýrmak için <a0></a0>, Hata Ayýkla menüsünde Baþlat ' ý týklatýn.
13. Metni RichTextBoxPrintCtrl içinde yazýn.
14. Sayfa ayarlarýný ayarlamak için <a0></a0>, Sayfa Yapýsý ' ný týklatýn.
15. Sayfanýn önizlemesini görmek için Ek Yardým düðmesini týklatýn Baský Önizleme.
16. RichTextBoxPrintCtrl içeriðini yazdýrmak için Yazdýr ' ý týklatýn.

Üste