日本综合一区二区|亚洲中文天堂综合|日韩欧美自拍一区|男女精品天堂一区|欧美自拍第6页亚洲成人精品一区|亚洲黄色天堂一区二区成人|超碰91偷拍第一页|日韩av夜夜嗨中文字幕|久久蜜综合视频官网|精美人妻一区二区三区

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

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

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 
 
 
 

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

分享標(biāo)題：VB.NET窗體打印代碼解讀
本文地址：http://www.dlmjj.cn/article/dhsgcic.html