|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic.Net (Menu/Toobar/Coolbar)
|
|
 |
Título da Dica: Criando menus em tempo de execução
|
 |
|
|
|
Postada em 9/10/2003 por ~Ð@®£@Ñ
Vou mostrar como criar um menu em tempo de execução no VB.NET . Por questão de simplicidade e de preguiça minha o nosso menu de exemplo terá uma opção - Arquivo - com duas sub-opções : Abrir e Sair . Vamos criar um projeto Windows Forms com um formulário...
1 - Inicie um novo projeto no Visual Studio.NET com as seguintes características (sinta-se a vontade para alterar a seu gosto.)
Project Types : Visual Basic Projects
Templates : Windows Application
Name : Menus
Location : c:\vbnet\Menus
2- Altere a propriedade Text do formulário informando - Criando Menus em tempo de execução . A aparência do seu form deverá ser a seguinte:
3- Vamos agora ao código que irá criar o menu que irá surgir ao executarmos o projeto:
I-) A primeira coisa a fazer é declarar uma variável do tipo MainMenu , pois a classe MainMenu é que representa a estrutura de um menu no fomrulário . (MainMenu é composta por objetos MenuItem que representam os comandos individuais dos menus).
Clique duas vezes no formulário padrão - form1.vb - e no início do formulário declare a variável mMenu assim :
Public Class Form1
Inherits System.Windows.Forms.Form
Private mMenu As New System.Windows.Forms.MainMenu()
Declaramos a variável mMenu como do tipo MainMenu e a instanciamos.
Vamos agora usar o evento Load do formulário para criar os itens do menu :
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Menu = mMenu
With mMenu.MenuItems.Add("mnuArquivo")
.Text = "&Arquivo"
With .MenuItems.Add("mnuAbrir", New EventHandler(AddressOf mnuAbrir_Click))
.Text = "Abrir"
End With
With .MenuItems.Add("mnusep") 'o separador
.Text = "-"
End With
With .MenuItems.Add("mnuSair", New EventHandler(AddressOf mnuAbrir_Click))
.Text = "Sair"
End With
End With
End Sub
Perceba que estamos usando o mesmo evento (mnuAbrir_Click) para os dois itens do menu , por isto temos que declarar o procedimento que captura qual item do menu foi clicado , eí-lo a seguir:
Private Sub mnuAbrir_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Select Case CType(sender, MenuItem).Text
Case "Abrir"
MessageBox.Show("Menu opcao Abrir")
Case "Sair"
Me.Close()
End Select
End Sub
Agora vamos ver se deu certo... Executando o projeto deveremos obter:
E 'acabei de acabar' mais uma dica VB.NET para você , até a próxima ...
|
|
|
|
|
