http://www.vbex.ru/index.php?action=history&feed=atom&title=VB.Net%2FEvent%2FMouse_MoveVB.Net/Event/Mouse Move - История изменений2026-04-06T00:09:32ZИстория изменений этой страницы в викиMediaWiki 1.30.0http://www.vbex.ru/index.php?title=VB.Net/Event/Mouse_Move&diff=390&oldid=prev в 16:40, 26 мая 20102010-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/Event/Mouse_Move&diff=391&oldid=prevAdmin: 1 версия2010-05-26T12:42:50Z<p>1 версия</p>
<p><b>Новая страница</b></p><div>==Handle Mouse Move Event==<br />
<br />
<br />
<br />
<br />
<source lang="vbnet"><br />
Imports System<br />
Imports System.Windows.Forms<br />
<br />
Public Class MainClass<br />
Shared Sub Main()<br />
Dim form1 As Form1 = new Form1<br />
Application.Run(form1)<br />
End Sub<br />
<br />
End Class<br />
Public Class Form1<br />
Inherits 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 />
"Required by the Windows Form Designer<br />
Private components As System.ruponentModel.IContainer<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 />
Friend WithEvents Label1 As System.Windows.Forms.Label<br />
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()<br />
Me.Label1 = New System.Windows.Forms.Label()<br />
Me.SuspendLayout()<br />
"<br />
"Label1<br />
"<br />
Me.Label1.Location = New System.Drawing.Point(48, 32)<br />
Me.Label1.Name = "Label1"<br />
Me.Label1.Size = New System.Drawing.Size(192, 16)<br />
Me.Label1.TabIndex = 0<br />
Me.Label1.Text = "Label1"<br />
"<br />
"Form1<br />
"<br />
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)<br />
Me.ClientSize = New System.Drawing.Size(312, 293)<br />
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label1})<br />
Me.Name = "Form1"<br />
Me.Text = "Form1"<br />
Me.ResumeLayout(False)<br />
End Sub<br />
#End Region<br />
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
End Sub<br />
<br />
Public Sub MyMouseMove(ByVal sender As Object, _<br />
ByVal e As System.Windows.Forms.MouseEventArgs) _<br />
Handles MyBase.MouseMove<br />
Label1.Text = "X= " + e.X.ToString() + ", Y= " + e.Y.ToString()<br />
End Sub<br />
<br />
End Class<br />
<br />
<br />
</source><br />
<br />
<br />
==Override OnMouseMove Method==<br />
<br />
<br />
<br />
<br />
<source lang="vbnet"><br />
Imports System<br />
Imports System.Windows.Forms<br />
<br />
Public Class MainClass<br />
Shared Sub Main()<br />
Dim form1 As Form1 = new Form1<br />
Application.Run(form1)<br />
End Sub<br />
<br />
End Class<br />
Public Class Form1<br />
Inherits 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 />
"Required by the Windows Form Designer<br />
Private components As System.ruponentModel.IContainer<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 />
Friend WithEvents Label1 As System.Windows.Forms.Label<br />
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()<br />
Me.Label1 = New System.Windows.Forms.Label()<br />
Me.SuspendLayout()<br />
"<br />
"Label1<br />
"<br />
Me.Label1.Location = New System.Drawing.Point(48, 32)<br />
Me.Label1.Name = "Label1"<br />
Me.Label1.Size = New System.Drawing.Size(192, 16)<br />
Me.Label1.TabIndex = 0<br />
Me.Label1.Text = "Label1"<br />
"<br />
"Form1<br />
"<br />
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)<br />
Me.ClientSize = New System.Drawing.Size(312, 293)<br />
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label1})<br />
Me.Name = "Form1"<br />
Me.Text = "Form1"<br />
Me.ResumeLayout(False)<br />
End Sub<br />
#End Region<br />
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
End Sub<br />
<br />
Protected Overrides Sub OnMouseMove(ByVal e As MouseEventArgs)<br />
Label1.Text = "X= " + e.X.ToString() + ", Y= " + e.Y.ToString()<br />
End Sub<br />
End Class<br />
<br />
<br />
</source></div>Admin