http://www.vbex.ru/index.php?action=history&feed=atom&title=VB.Net%2FGUI%2FAction_Handler
VB.Net/GUI/Action Handler - История изменений
2026-04-05T15:52:47Z
История изменений этой страницы в вики
MediaWiki 1.30.0
http://www.vbex.ru/index.php?title=VB.Net/GUI/Action_Handler&diff=486&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/Action_Handler&diff=487&oldid=prev
Admin: 1 версия
2010-05-26T12:43:18Z
<p>1 версия</p>
<p><b>Новая страница</b></p><div>==Add and Remove Action Handler Dynamically==<br />
<br />
<br />
<br />
<br />
<source lang="vbnet"><br />
Imports System<br />
Imports System.ruponentModel<br />
Imports System.Windows.Forms<br />
Imports System.Data<br />
Imports System.Configuration<br />
Imports System.Drawing<br />
Imports System.Drawing.Drawing2D<br />
Imports System.Drawing.Text<br />
Imports System.Globalization<br />
Imports System.Text<br />
Imports System.Collections<br />
Public Class MainClass<br />
Shared Sub Main()<br />
Dim myform As Form = New Form1()<br />
Application.Run(myform)<br />
End Sub<br />
End Class<br />
<br />
Public Class Form1<br />
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged<br />
If RadioButton1.Checked Then<br />
AddHandler Button1.Click, AddressOf ButtonHandler1<br />
Else<br />
RemoveHandler Button1.Click, AddressOf ButtonHandler1<br />
End If<br />
End Sub<br />
Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged<br />
If RadioButton2.Checked Then<br />
AddHandler Button1.Click, AddressOf ButtonHandler2<br />
Else<br />
RemoveHandler Button1.Click, AddressOf ButtonHandler2<br />
End If<br />
End Sub<br />
Private Sub ButtonHandler1(ByVal sender As System.Object, ByVal e As System.EventArgs)<br />
MessageBox.Show("Button Handler1")<br />
End Sub<br />
Private Sub ButtonHandler2(ByVal sender As System.Object, ByVal e As System.EventArgs)<br />
MessageBox.Show("Button Handler2")<br />
End Sub<br />
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
RadioButton1.Checked = True<br />
End Sub<br />
End Class<br />
<br />
<Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _<br />
Partial Public Class Form1<br />
Inherits System.Windows.Forms.Form<br />
"Form overrides dispose to clean up the component list.<br />
<System.Diagnostics.DebuggerNonUserCode()> _<br />
Protected Overrides Sub Dispose(ByVal disposing As Boolean)<br />
If disposing AndAlso components IsNot Nothing Then<br />
components.Dispose()<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 />
<System.Diagnostics.DebuggerStepThrough()> _<br />
Private Sub InitializeComponent()<br />
Me.RadioButton1 = New System.Windows.Forms.RadioButton<br />
Me.RadioButton2 = New System.Windows.Forms.RadioButton<br />
Me.Button1 = New System.Windows.Forms.Button<br />
Me.SuspendLayout()<br />
"<br />
"RadioButton1<br />
"<br />
Me.RadioButton1.AutoSize = True<br />
Me.RadioButton1.Location = New System.Drawing.Point(8, 8)<br />
Me.RadioButton1.Name = "RadioButton1"<br />
Me.RadioButton1.Size = New System.Drawing.Size(99, 17)<br />
Me.RadioButton1.TabIndex = 0<br />
Me.RadioButton1.Text = "ButtonHandler1"<br />
Me.RadioButton1.UseVisualStyleBackColor = True<br />
"<br />
"RadioButton2<br />
"<br />
Me.RadioButton2.AutoSize = True<br />
Me.RadioButton2.Location = New System.Drawing.Point(8, 40)<br />
Me.RadioButton2.Name = "RadioButton2"<br />
Me.RadioButton2.Size = New System.Drawing.Size(99, 17)<br />
Me.RadioButton2.TabIndex = 1<br />
Me.RadioButton2.Text = "ButtonHandler2"<br />
Me.RadioButton2.UseVisualStyleBackColor = True<br />
"<br />
"Button1<br />
"<br />
Me.Button1.Location = New System.Drawing.Point(152, 16)<br />
Me.Button1.Name = "Button1"<br />
Me.Button1.Size = New System.Drawing.Size(75, 23)<br />
Me.Button1.TabIndex = 2<br />
Me.Button1.Text = "Button1"<br />
Me.Button1.UseVisualStyleBackColor = True<br />
"<br />
"Form1<br />
"<br />
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)<br />
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font<br />
Me.ClientSize = New System.Drawing.Size(292, 273)<br />
Me.Controls.Add(Me.Button1)<br />
Me.Controls.Add(Me.RadioButton2)<br />
Me.Controls.Add(Me.RadioButton1)<br />
Me.Name = "Form1"<br />
Me.Text = "AddRemoveHandler"<br />
Me.ResumeLayout(False)<br />
Me.PerformLayout()<br />
End Sub<br />
Friend WithEvents RadioButton1 As System.Windows.Forms.RadioButton<br />
Friend WithEvents RadioButton2 As System.Windows.Forms.RadioButton<br />
Friend WithEvents Button1 As System.Windows.Forms.Button<br />
End Class<br />
<br />
</source></div>
Admin