日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

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

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

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)方法，大家應該可以充分掌握這一應用技巧了。

分享題目：VB.NET窗體打印代碼解讀
鏈接地址：http://m.5511xx.com/article/dhsgcic.html