http://www.vbex.ru/index.php?action=history&feed=atom&title=VB.Net_by_API%2FSystem.Windows.Forms%2FKeyPressEventArgs
VB.Net by API/System.Windows.Forms/KeyPressEventArgs - История изменений
2026-04-06T02:38:14Z
История изменений этой страницы в вики
MediaWiki 1.30.0
http://www.vbex.ru/index.php?title=VB.Net_by_API/System.Windows.Forms/KeyPressEventArgs&diff=2651&oldid=prev
в 16:40, 26 мая 2010
2010-05-26T16:40:16Z
<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_by_API/System.Windows.Forms/KeyPressEventArgs&diff=2652&oldid=prev
Admin: 1 версия
2010-05-26T12:51:31Z
<p>1 версия</p>
<p><b>Новая страница</b></p><div>==KeyPressEventArgs.KeyChar==<br />
<br />
<br />
<br />
<source lang="vbnet"> <br />
Imports System<br />
Imports System.Collections<br />
Imports System.Data<br />
Imports System.IO<br />
Imports System.Xml.Serialization<br />
Imports System.Windows.Forms<br />
Imports System.Drawing<br />
Imports System.Drawing.Drawing2D<br />
Imports System.Drawing.Text<br />
Imports System.Drawing.Printing<br />
<br />
Public Class MainClass<br />
Shared Sub Main()<br />
Dim form1 As Form = New Form1()<br />
Application.Run(form1) <br />
End Sub<br />
End Class<br />
<br />
<br />
Public Class Form1<br />
Inherits System.Windows.Forms.Form<br />
#Region " Windows Form Designer generated code "<br />
Public Sub New()<br />
MyBase.New()<br />
"This call is required by the Windows Form Designer.<br />
InitializeComponent()<br />
"Add any initialization after the InitializeComponent() call<br />
End Sub<br />
"Form overrides dispose to clean up the component list.<br />
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)<br />
If disposing Then<br />
If Not (components Is Nothing) Then<br />
components.Dispose()<br />
End If<br />
End If<br />
MyBase.Dispose(disposing)<br />
End Sub<br />
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox<br />
Friend WithEvents Label1 As System.Windows.Forms.Label<br />
"Required by the Windows Form Designer<br />
Private components As System.ruponentModel.Container<br />
"NOTE: The following procedure is required by the Windows Form Designer<br />
"It can be modified using the Windows Form Designer. <br />
"Do not modify it using the code editor.<br />
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()<br />
Me.TextBox1 = New System.Windows.Forms.TextBox()<br />
Me.Label1 = New System.Windows.Forms.Label()<br />
Me.SuspendLayout()<br />
"<br />
"TextBox1<br />
"<br />
Me.TextBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.2!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))<br />
Me.TextBox1.Location = New System.Drawing.Point(48, 104)<br />
Me.TextBox1.Name = "TextBox1"<br />
Me.TextBox1.Size = New System.Drawing.Size(192, 27)<br />
Me.TextBox1.TabIndex = 1<br />
Me.TextBox1.Text = ""<br />
"<br />
"Label1<br />
"<br />
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.2!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))<br />
Me.Label1.Location = New System.Drawing.Point(24, 24)<br />
Me.Label1.Name = "Label1"<br />
Me.Label1.Size = New System.Drawing.Size(232, 48)<br />
Me.Label1.TabIndex = 2<br />
Me.Label1.Text = "Type somthing"<br />
"<br />
"Form1<br />
"<br />
Me.AutoScaleBaseSize = New System.Drawing.Size(6, 15)<br />
Me.ClientSize = New System.Drawing.Size(292, 268)<br />
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label1, Me.TextBox1})<br />
Me.Name = "Form1"<br />
Me.Text = "Key Event Examples"<br />
Me.ResumeLayout(False)<br />
End Sub<br />
#End Region<br />
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged<br />
End Sub<br />
Private Sub TextBox1_KeyPress(ByVal sender As Object, _<br />
ByVal e As System.Windows.Forms.KeyPressEventArgs) _<br />
Handles TextBox1.KeyPress<br />
If e.KeyChar < "0" Or e.KeyChar > "9" Then<br />
MessageBox.Show("only digits allowed")<br />
e.Handled = True<br />
End If<br />
End Sub<br />
<br />
End Class<br />
<br />
<br />
</source></div>
Admin