殿上欢,《完美世界》txt全集

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營銷解決方案

VB.NET窗體打印代碼解讀

大多數(shù)人在學(xué)習(xí)編程的過程中，往往都會通過不斷的代碼編寫來積累經(jīng)驗達到一個運用熟練的地步。那么對于VB.NET語言的學(xué)習(xí)同樣需要遵循這樣一個規(guī)律。下面就讓我們一起來看看VB.NET窗體打印的實現(xiàn)代碼，從中增加我們的代碼編寫經(jīng)驗。

在聶拉木等地區(qū)，都構(gòu)建了全面的區(qū)域性戰(zhàn)略布局，加強發(fā)展的系統(tǒng)性、市場前瞻性、產(chǎn)品創(chuàng)新能力，以專注、極致的服務(wù)理念，為客戶提供成都網(wǎng)站設(shè)計、成都網(wǎng)站建設(shè) 網(wǎng)站設(shè)計制作按需策劃設(shè)計,公司網(wǎng)站建設(shè),企業(yè)網(wǎng)站建設(shè),成都品牌網(wǎng)站建設(shè),全網(wǎng)營銷推廣,成都外貿(mào)網(wǎng)站建設(shè),聶拉木網(wǎng)站建設(shè)費用合理。

VB.NET窗體打印代碼示例：

 
 
 
  
  
  Imports System 
  
  
  Imports System.Drawing.Printing 
  
  
  Public Class Form1 
  
  
  < System.Runtime.InteropServices.
DllImport("gdi32.dll")>
  
  
  _Public Shared Function BitBlt
(ByVal hdcDest As IntPtr, ByVal 
nXDest As Integer, ByVal nYDest As 
Integer, ByVal nWidth As Integer, 
ByVal nHeight As Integer, ByVal hdcSrc 
As IntPtr, ByVal nXSrc As Integer, 
ByVal nYSrc As Integer, ByVal dwRop 
As Integer) As Boolean 
  
  
  End Function 
  
  
  < System.Runtime.InteropServices.
DllImport("User32.dll")> _ 
  
  
  Public Shared Function GetWindowDC
(ByVal hwd As IntPtr) As IntPtr 
  
  
  End Function 
  
  
  < System.Runtime.InteropServices.
DllImport("User32.dll")> _ 
  
  
  Public Shared Function ReleaseDC
(ByVal hwd As IntPtr, ByVal dc As 
IntPtr) As Integer 
  
  
  End Function 
  
  
  < System.Runtime.InteropServices.
DllImport("user32.dll")> _ 
  
  
  Public Shared Function GetWindowRect
(ByVal hWnd As IntPtr, ByRef lpRect 
As RECT) As Boolean 
  
  
  End Function 
  
  
  < Serializable(), System.Runtime.
InteropServices.StructLayout(System.
Runtime.InteropServices.LayoutKind.
Sequential)> _ 
  
  
  Public Structure RECT 
  
  
  Public Left As Integer 
  
  
  Public Top As Integer 
  
  
  Public Right As Integer 
  
  
  Public Bottom As Integer 
  
  
  End Structure 
  
  
  Private memoryImage As Bitmap 
  
  
  Private Sub CaptureScreen() 
  
  
  Dim mygraphics As Graphics = Me.
CreateGraphics() 
  
  
  Dim r As RECT 
  
  
  GetWindowRect(Me.Handle, r) 
  
  
  Dim s As RectangleRectangle = 
Rectangle.FromLTRB(r.Left, r.Top, 
r.Right, r.Bottom) 
  
  
  memoryImage = New Bitmap(s.Width, 
s.Height, mygraphics) 
  
  
  Dim memoryGraphics As Graphics
Graphics = Graphics.FromImage(memoryImage) 
  
  
  Dim dc1 As IntPtr = GetWindowDC(Me.Handle) 
  
  
  Dim dc2 As IntPtr = memoryGraphics.GetHdc() 
  
  
  BitBlt(dc2, 0, 0, s.Width, s.Height, 
dc1, 0, 0, 13369376) 
  
  
  ReleaseDC(Me.Handle, dc1) 
  
  
  memoryGraphics.ReleaseHdc(dc2) 
  
  
  End Sub 
  
  
  Private Sub Document_PrintPage(ByVal 
sender As System.Object, ByVal e As 
System.Drawing.Printing.PrintPageEventArgs) 
  
  
  e.Graphics.DrawImage(memoryImage, 0, 0) 
  
  
  End Sub 
  
  
  Private Sub Button1_Click_1(ByVal sender 
As System.Object, ByVal e As System.EventArgs) 
Handles Button1.Click 
  
  
  CaptureScreen() 
  
  
  PrintDialog1.ShowDialog() 
  
  
  Dim pd As PrintDocument = New 
PrintDocument 
  
  
  pd.PrinterSettings = PrintDialog1.
PrinterSettings 
  
  
  AddHandler pd.PrintPage, AddressOf 
Document_PrintPage 
  
  
  pd.Print() 
  
  
  End Sub

怎么樣，通過本文介紹的VB.NET窗體打印的實現(xiàn)方法，大家應(yīng)該可以充分掌握這一應(yīng)用技巧了。

本文標(biāo)題：VB.NET窗體打印代碼解讀
URL鏈接：http://m.fisionsoft.com.cn/article/dhsgcic.html

新聞中心

其他資訊