http://www.vbex.ru/index.php?action=history&feed=atom&title=VB.Net%2FGUI%2FPopupMenu 2026-04-06T01:37:48Z История изменений этой страницы в вики MediaWiki 1.30.0 http://www.vbex.ru/index.php?title=VB.Net/GUI/PopupMenu&diff=560&oldid=prev 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/PopupMenu&diff=561&oldid=prev 2010-05-26T12:44:30Z

<p>1 версия</p> <p><b>Новая страница</b></p><div>==Use Popup Menu==<br /> <br /> <br /> <br /> <br /> &lt;source lang=&quot;vbnet&quot;&gt;<br /> Imports System.Windows.Forms<br /> Module Module1<br /> Sub Main()<br /> Application.Run(New Form1)<br /> End Sub<br /> End Module<br /> <br /> Public Class Form1<br /> Inherits System.Windows.Forms.Form<br /> #Region &quot; Windows Form Designer generated code &quot;<br /> Public Sub New()<br /> MyBase.New()<br /> &quot;This call is required by the Windows Form Designer.<br /> InitializeComponent()<br /> &quot;Add any initialization after the InitializeComponent() call<br /> End Sub<br /> &quot;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 /> &quot;Required by the Windows Form Designer<br /> Private components As System.ruponentModel.IContainer<br /> &quot;NOTE: The following procedure is required by the Windows Form Designer<br /> &quot;It can be modified using the Windows Form Designer. <br /> &quot;Do not modify it using the code editor.<br /> Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu<br /> Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem<br /> Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem<br /> Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem<br /> Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem<br /> Friend WithEvents MenuItem5 As System.Windows.Forms.MenuItem<br /> &lt;System.Diagnostics.DebuggerStepThrough()&gt; Private Sub InitializeComponent()<br /> Me.ContextMenu1 = New System.Windows.Forms.ContextMenu()<br /> Me.MenuItem1 = New System.Windows.Forms.MenuItem()<br /> Me.MenuItem2 = New System.Windows.Forms.MenuItem()<br /> Me.MenuItem3 = New System.Windows.Forms.MenuItem()<br /> Me.MenuItem4 = New System.Windows.Forms.MenuItem()<br /> Me.MenuItem5 = New System.Windows.Forms.MenuItem()<br /> &quot;<br /> &quot;ContextMenu1<br /> &quot;<br /> Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1})<br /> &quot;<br /> &quot;MenuItem1<br /> &quot;<br /> Me.MenuItem1.Index = 0<br /> Me.MenuItem1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem2})<br /> Me.MenuItem1.Text = &quot;Monday&quot;<br /> &quot;<br /> &quot;MenuItem2<br /> &quot;<br /> Me.MenuItem2.Index = 0<br /> Me.MenuItem2.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem3})<br /> Me.MenuItem2.Text = &quot;Tuesday&quot;<br /> &quot;<br /> &quot;MenuItem3<br /> &quot;<br /> Me.MenuItem3.Index = 0<br /> Me.MenuItem3.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem4})<br /> Me.MenuItem3.Text = &quot;Wednesday&quot;<br /> &quot;<br /> &quot;MenuItem4<br /> &quot;<br /> Me.MenuItem4.Index = 0<br /> Me.MenuItem4.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem5})<br /> Me.MenuItem4.Text = &quot;Thursday&quot;<br /> &quot;<br /> &quot;MenuItem5<br /> &quot;<br /> Me.MenuItem5.Index = 0<br /> Me.MenuItem5.Text = &quot;Friday&quot;<br /> &quot;<br /> &quot;Form1<br /> &quot;<br /> Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)<br /> Me.ClientSize = New System.Drawing.Size(292, 181)<br /> Me.Name = &quot;Form1&quot;<br /> Me.Text = &quot;PopupMenuDemo&quot;<br /> Me.ContextMenu = ContextMenu1<br /> End Sub<br /> #End Region<br /> End Class<br /> <br /> &lt;/source&gt;</div>

Admin