VB.Net Tutorial/GUI/PopupMenu — различия между версиями

Материал из VB Эксперт
Перейти к: навигация, поиск
м (1 версия)
(нет различий)

Текущая версия на 15:57, 26 мая 2010

Add popup menu to Form

<source lang="vbnet">Imports System.Windows.Forms public class ShortcurMenu

  public Shared Sub Main
       Application.Run(New Form1)
  End Sub

End class

Public Class Form1

   Private Sub MenuHello_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuHello.Click
   End Sub
   Private Sub MenuGoodbye_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuGoodbye.Click
   End Sub

End Class

<Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _ Partial Class Form1

   Inherits System.Windows.Forms.Form
   "Form overrides dispose to clean up the component list.
   <System.Diagnostics.DebuggerNonUserCode()> _
   Protected Overrides Sub Dispose(ByVal disposing As Boolean)
       If disposing AndAlso components IsNot Nothing Then
       End If
   End Sub
   "Required by the Windows Form Designer
   Private components As System.ruponentModel.IContainer
   "NOTE: The following procedure is required by the Windows Form Designer
   "It can be modified using the Windows Form Designer.  
   "Do not modify it using the code editor.
   <System.Diagnostics.DebuggerStepThrough()> _
   Private Sub InitializeComponent()
       Me.ruponents = New System.ruponentModel.Container
       Me.MainShortcutMenu = New System.Windows.Forms.ContextMenuStrip(Me.ruponents)
       Me.MenuHello = New System.Windows.Forms.ToolStripMenuItem
       Me.MenuGoodbye = New System.Windows.Forms.ToolStripMenuItem
       Me.MainShortcutMenu.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MenuHello, Me.MenuGoodbye})
       Me.MainShortcutMenu.Name = "MainShortcutMenu"
       Me.MainShortcutMenu.Size = New System.Drawing.Size(139, 48)
       Me.MenuHello.Name = "MenuHello"
       Me.MenuHello.Size = New System.Drawing.Size(138, 22)
       Me.MenuHello.Text = "Say Hello"
       Me.MenuGoodbye.Name = "MenuGoodbye"
       Me.MenuGoodbye.Size = New System.Drawing.Size(138, 22)
       Me.MenuGoodbye.Text = "Say Goodbye"
       Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
       Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
       Me.ClientSize = New System.Drawing.Size(292, 126)
       Me.ContextMenuStrip = Me.MainShortcutMenu
       Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
       Me.MaximizeBox = False
       Me.Name = "Form1"
       Me.Text = "Shortcut Menus"
   End Sub
   Friend WithEvents MainShortcutMenu As System.Windows.Forms.ContextMenuStrip
   Friend WithEvents MenuHello As System.Windows.Forms.ToolStripMenuItem
   Friend WithEvents MenuGoodbye As System.Windows.Forms.ToolStripMenuItem

End Class</source>