http://www.vbex.ru/index.php?action=history&feed=atom&title=VB.Net%2FGUI%2FSendKeys
VB.Net/GUI/SendKeys - История изменений
2026-04-06T00:08:41Z
История изменений этой страницы в вики
MediaWiki 1.30.0
http://www.vbex.ru/index.php?title=VB.Net/GUI/SendKeys&diff=498&oldid=prev
в 16:40, 26 мая 2010
2010-05-26T16:40:06Z
<p></p>
<table class="diff diff-contentalign-left" data-mw="interface">
<tr style="vertical-align: top;" lang="ru">
<td colspan="1" style="background-color: white; color:black; text-align: center;">← Предыдущая</td>
<td colspan="1" style="background-color: white; color:black; text-align: center;">Версия 16:40, 26 мая 2010</td>
</tr><tr><td colspan="2" style="text-align: center;" lang="ru"><div class="mw-diff-empty">(нет различий)</div>
</td></tr></table>
http://www.vbex.ru/index.php?title=VB.Net/GUI/SendKeys&diff=499&oldid=prev
Admin: 1 версия
2010-05-26T12:43:22Z
<p>1 версия</p>
<p><b>Новая страница</b></p><div>==Using SendKeys to simulate key press==<br />
<br />
<br />
<br />
<source lang="vbnet"> <br />
Imports System.Windows.Forms<br />
Imports System.Drawing<br />
Public Class Form1<br />
Inherits System.Windows.Forms.Form<br />
Public Sub New()<br />
MyBase.New()<br />
InitializeComponent()<br />
End Sub<br />
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox<br />
Friend WithEvents Button1 As System.Windows.Forms.Button<br />
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()<br />
Me.PictureBox1 = New System.Windows.Forms.PictureBox()<br />
Me.Button1 = New System.Windows.Forms.Button()<br />
Me.SuspendLayout()<br />
"<br />
Me.PictureBox1.Location = New System.Drawing.Point(288, 16)<br />
Me.PictureBox1.Size = New System.Drawing.Size(192, 136)<br />
Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage<br />
"<br />
Me.Button1.Location = New System.Drawing.Point(32, 40)<br />
Me.Button1.Size = New System.Drawing.Size(208, 40)<br />
Me.Button1.Text = "Capture the Screen"<br />
"<br />
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)<br />
Me.ClientSize = New System.Drawing.Size(496, 166)<br />
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button1, Me.PictureBox1})<br />
Me.Text = "Capturing the Screen, Quick and Easy"<br />
Me.ResumeLayout(False)<br />
End Sub<br />
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br />
GetScreenCapture(True).Save("c:\screengrab.bmp")<br />
PictureBox1.Image = GetScreenCapture()<br />
End Sub<br />
Public Function GetScreenCapture( _<br />
Optional ByVal FullScreen As Boolean = False) As Image<br />
Dim objSK As SendKeys<br />
Dim imgCapture As Image<br />
If FullScreen = True Then<br />
objSK.SendWait("{PRTSC 2}")<br />
Else<br />
objSK.SendWait("%{PRTSC}")<br />
End If<br />
Dim objData As IDataObject = Clipboard.GetDataObject()<br />
Return objData.GetData(DataFormats.Bitmap)<br />
End Function<br />
End Class<br />
<br />
<br />
</source></div>
Admin