知识大全在VB.NET中进行抓屏

Posted 2022-07-21 知

篇首语：人之所以有一张嘴，而有两只耳朵，原因是听的要比说的多一倍。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全在VB.NET中进行抓屏相关的知识，希望对你有一定的参考价值。

在VB.NET中进行抓屏 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

Public Class Form Inherits System Windows Forms Form#Region Windows 窗体设计器生成的代码 Public Sub New() MyBase New() 该调用是 Windows 窗体设计器所必需的 InitializeComponent() 在 InitializeComponent() 调用之后添加任何初始化 End Sub 窗体重写处置以清理组件列表 Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (ponents Is Nothing) Then ponents Dispose() End If End If MyBase Dispose(disposing) End Sub Windows 窗体设计器所必需的 Private ponents As System ComponentModel IContainer 注意以下过程是 Windows 窗体设计器所必需的可以使用 Windows 窗体设计器修改此过程不要使用代码编辑器修改它 Friend WithEvents Button As System Windows Forms Button Friend WithEvents Timer As System Windows Forms Timer Friend WithEvents PictureBox As System Windows Forms PictureBox Friend WithEvents Button As System Windows Forms Button <System Diagnostics DebuggerStepThrough()> Private Sub InitializeComponent() ponents = New System ComponentModel Container Me Button = New System Windows Forms Button Me Timer = New System Windows Forms Timer(ponents) Me PictureBox = New System Windows Forms PictureBox Me Button = New System Windows Forms Button Me SuspendLayout() Button Me Button ForeColor = System Drawing Color Black Me Button Location = New System Drawing Point( ) Me Button Name = Button Me Button Size = New System Drawing Size( ) Me Button TabIndex = Me Button Text = 抓屏 PictureBox Me PictureBox Location = New System Drawing Point( ) Me PictureBox Name = PictureBox Me PictureBox Size = New System Drawing Size( ) Me PictureBox TabIndex = Me PictureBox TabStop = False Button Me Button ForeColor = System Drawing Color Black Me Button Location = New System Drawing Point( ) Me Button Name = Button Me Button Size = New System Drawing Size( ) Me Button TabIndex = Me Button Text = 保存 Form Me AutoScaleBaseSize = New System Drawing Size( ) Me BackColor = System Drawing Color FromArgb(CType( Byte) CType( Byte) CType( Byte)) Me ClientSize = New System Drawing Size( ) Me Controls Add(Me Button ) Me Controls Add(Me PictureBox ) Me Controls Add(Me Button ) Me ForeColor = System Drawing Color FromArgb(CType( Byte) CType( Byte) CType( Byte)) Me Name = Form Me Text = wgscd Me ResumeLayout(False) End Sub#End Region

　　 VB NET中进行图象捕获需要先引用一些API 以下是声明 Private Declare Function CreateCompatibleDC Lib GDI (ByVal hDC As Integer) As Integer Private Declare Function CreateCompatibleBitmap Lib GDI (ByVal hDC As Integer ByVal nWidth As Integer ByVal nHeight As Integer) As Integer Private Declare Function SelectObject Lib GDI (ByVal hDC As Integer ByVal hObject As Integer) As Integer Private Declare Function BitBlt Lib GDI (ByVal srchDC As Integer ByVal srcX As Integer ByVal srcY As Integer ByVal srcW As Integer ByVal srcH As Integer ByVal desthDC As Integer ByVal destX As Integer ByVal destY As Integer ByVal op As Integer) As Integer Private Declare Function DeleteDC Lib GDI (ByVal hDC As Integer) As Integer Private Declare Function DeleteObject Lib GDI (ByVal hObj As Integer) As Integer Declare Function GetDC Lib user Alias GetDC (ByVal hwnd As Integer) As Integer Const SRCCOPY As Integer = &HCC 将以下代码添加到Button _Click事件中

cha138/Article/program/ASP/201311/21658

知识大全 在VB.NET中进行抓屏

知识大全在VB.NET中进行抓屏