в 16:40, 26 мая 2010

2010-05-26T16:40:06Z

Admin: 1 версия

2010-05-26T12:43:25Z

1 версия

Новая страница

==Screen Capture Demo==

<source lang="vbnet">
Imports System.Windows.Forms
Imports System.Drawing
Public Class Form1
Inherits System.Windows.Forms.Form
Public Sub New()
MyBase.New()
InitializeComponent()
End Sub
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents Button1 As System.Windows.Forms.Button
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.SuspendLayout()
"
Me.PictureBox1.Location = New System.Drawing.Point(288, 16)
Me.PictureBox1.Size = New System.Drawing.Size(192, 136)
Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
"
Me.Button1.Location = New System.Drawing.Point(32, 40)
Me.Button1.Size = New System.Drawing.Size(208, 40)
Me.Button1.Text = "Capture the Screen"
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(496, 166)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button1, Me.PictureBox1})
Me.Text = "Capturing the Screen, Quick and Easy"
Me.ResumeLayout(False)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
GetScreenCapture(True).Save("c:\screengrab.bmp")
PictureBox1.Image = GetScreenCapture()
End Sub
Public Function GetScreenCapture( _
Optional ByVal FullScreen As Boolean = False) As Image
Dim objSK As SendKeys
Dim imgCapture As Image
If FullScreen = True Then
objSK.SendWait("{PRTSC 2}")
Else
objSK.SendWait("%{PRTSC}")
End If
Dim objData As IDataObject = Clipboard.GetDataObject()
Return objData.GetData(DataFormats.Bitmap)
End Function
End Class

</source>

==Screen snapshot==

<source lang="vbnet">
Imports System.Windows.Forms
Imports System.Drawing
Public Class Form1
Inherits System.Windows.Forms.Form
Public Sub New()
MyBase.New()
InitializeComponent()
End Sub
Friend WithEvents MyPrintDocument As System.Drawing.Printing.PrintDocument
Friend WithEvents MyPrintDialog As System.Windows.Forms.PrintDialog
Friend WithEvents MyPictureBox As System.Windows.Forms.PictureBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents DataGrid1 As System.Windows.Forms.DataGrid
Friend WithEvents MonthCalendar1 As System.Windows.Forms.MonthCalendar
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents MonthCalendar2 As System.Windows.Forms.MonthCalendar
Friend WithEvents LinkLabel1 As System.Windows.Forms.LinkLabel
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.MyPrintDocument = New System.Drawing.Printing.PrintDocument()
Me.MyPrintDialog = New System.Windows.Forms.PrintDialog()
Me.MyPictureBox = New System.Windows.Forms.PictureBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.DataGrid1 = New System.Windows.Forms.DataGrid()
Me.MonthCalendar1 = New System.Windows.Forms.MonthCalendar()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.MonthCalendar2 = New System.Windows.Forms.MonthCalendar()
Me.LinkLabel1 = New System.Windows.Forms.LinkLabel()
CType(Me.DataGrid1, System.ruponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
"
Me.MyPictureBox.Location = New System.Drawing.Point(296, 16)
Me.MyPictureBox.Size = New System.Drawing.Size(16, 16)
Me.MyPictureBox.Visible = False
"
Me.Label1.Font = New System.Drawing.Font("Tahoma", 8.25!, (System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(16, 16)
Me.Label1.Size = New System.Drawing.Size(224, 23)
Me.Label1.Text = "Report"
"
Me.DataGrid1.Font = New System.Drawing.Font("Tahoma", 8.0!)
Me.DataGrid1.GridLineColor = System.Drawing.Color.RoyalBlue
Me.DataGrid1.HeaderBackColor = System.Drawing.Color.MidnightBlue
Me.DataGrid1.Location = New System.Drawing.Point(16, 48)
Me.DataGrid1.Size = New System.Drawing.Size(392, 368)
"
Me.MonthCalendar1.Location = New System.Drawing.Point(432, 256)
"
Me.Label2.Font = New System.Drawing.Font("Tahoma", 8.25!, (System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(432, 224)
Me.Label2.Size = New System.Drawing.Size(200, 23)
Me.Label2.Text = "Report:"
"
Me.Label3.Font = New System.Drawing.Font("Tahoma", 8.25!, (System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.Location = New System.Drawing.Point(432, 16)
Me.Label3.Size = New System.Drawing.Size(200, 23)
Me.Label3.Text = "Report:"
"
Me.MonthCalendar2.Location = New System.Drawing.Point(432, 48)
"
Me.LinkLabel1.Location = New System.Drawing.Point(368, 16)
Me.LinkLabel1.Size = New System.Drawing.Size(32, 16)
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(648, 430)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.LinkLabel1, Me.Label3, Me.MonthCalendar2, Me.Label2, Me.MonthCalendar1, Me.DataGrid1, Me.Label1, Me.MyPictureBox})
CType(Me.DataGrid1, System.ruponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Private Declare Auto Function BitBlt Lib "gdi32.dll" (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 System.Int32) As Boolean
Private bmpScreenshot As Bitmap
Private Sub MyPrintDocument_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles MyPrintDocument.PrintPage
Dim objImageToPrint As Graphics = e.Graphics
objImageToPrint.DrawImage(bmpScreenshot, 0, 0)
bmpScreenshot.Dispose()
objImageToPrint.Dispose()
e.HasMorePages = False
End Sub
Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
LinkLabel1.Visible = False
Dim objGraphics As Graphics = Me.CreateGraphics
Dim objSize As Size = Me.Size
Const SRCCOPY As Integer = &HCC0020
bmpScreenshot = New Bitmap(objSize.Width, objSize.Height, objGraphics)
Dim objGraphics2 As Graphics = objGraphics.FromImage(bmpScreenshot)
Dim deviceContext1 As IntPtr = objGraphics.GetHdc
Dim deviceContext2 As IntPtr = objGraphics2.GetHdc
BitBlt(deviceContext2, 0, 0, Me.ClientRectangle.Width, _
Me.ClientRectangle.Height, deviceContext1, 0, 0, SRCCOPY)
objGraphics.ReleaseHdc(deviceContext1)
objGraphics2.ReleaseHdc(deviceContext2)
MyPrintDialog.Document = MyPrintDocument
If MyPrintDialog.ShowDialog = DialogResult.OK Then
MyPrintDocument.Print()
End If
LinkLabel1.Visible = True
End Sub
End Class

</source>

← Предыдущая	Версия 16:40, 26 мая 2010
(нет различий)

VB.Net/GUI/Screen Capture - История изменений

в 16:40, 26 мая 2010

Admin: 1 версия