Como usar a propriedade DialogResult no Visual Basic .NET ou no Visual Basic 2005

IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine Translation ou MT), não tendo sido portanto traduzido ou revisto por pessoas. A Microsoft possui artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em português a totalidade dos artigos existentes na base de dados de suporte. No entanto, a tradução automática não é sempre perfeita, podendo conter erros de vocabulário, sintaxe ou gramática. A Microsoft não é responsável por incoerências, erros ou prejuízos ocorridos em decorrência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualizações freqüentes ao software de tradução automática (MT). Obrigado.

Clique aqui para ver a versão em Inglês deste artigo: 315711
Sumário
Este artigo demonstra como usar a propriedade DialogResult no Windows Forms. Você pode usar a propriedade DialogResult para criar caixas de diálogo em aplicativos do Windows.

back to the top

Requisitos

A lista a seguir descreve o hardware recomendado, software, infra-estrutura de rede e service packs que você precisa:
  • Microsoft Visual Studio .NET ou Microsoft Visual Studio 2005
Este artigo pressupõe que você esteja familiarizado com os seguintes tópicos:
  • Aplicativos do Windows
  • Microsoft Visual Basic .NET ou Microsoft Visual Basic 2005
back to the top

Usando a propriedade DialogResult

Este exemplo usa a propriedade DialogResult para determinar qual botão de um usuário clica para fechar um formulário.
  1. Crie um novo projeto Windows Application no Visual Basic NET.. Form1 é adicionado para o projeto por padrão.

    Observação Você deve alterar o código no Visual Basic 2005. Por padrão, Visual Basic cria dois arquivos para o projeto quando você cria um projeto Windows Forms. Se o formulário é denominado Form1, os dois arquivos que representam o formulário são chamados de Form1.vb e Form1.Designer.vb. Escreva o código no arquivo Form1.vb. O Windows Forms Designer escreve o código no arquivo Form1.Designer.vb. O Windows Forms Designer usa a palavra-chave partial para dividir a implementação de Form1 em dois arquivos separados. Esse comportamento impede que o código gerado pelo designer sendo intercaladas com seu código.

    Para obter mais informações sobre os novos aprimoramentos linguagem Visual Basic 2005, visite o seguinte site da Web Microsoft Developer Network (MSDN): Para obter mais informações sobre classes parciais e o Windows Forms Designer, visite o seguinte site da MSDN:
  2. Na janela estrutura do Form1, adicione um controle Button . Alterar a propriedade Name para btnShowForm2 e altere a propriedade Text para Mostrar Form2 .
  3. No menu Project , clique em Add Windows Form para adicionar um novo formulário para este projeto. Você irá usar este formulário como uma caixa de diálogo.
  4. Clique em Abrir . Um novo formulário denominado Form2 é criado.
  5. Adicione dois controles Button para Form2. Button1 e Button2 são adicionados por padrão. Defina as propriedades desses botões como segue: Button1

    • nome : btnOK
    • DialogResult : OK
    • texto : OK

    Button2

    • nome : btnCancel
    • DialogResult : Cancelar
    • texto : Cancelar

  6. Form2 foi concluída. Observe que você concluir essas etapas através do Windows Forms Designer e a janela Propriedades. Você não copiar ou escrever qualquer código.
  7. Retornar para a janela de design do Form1. Clique duas vezes no controle btnShowForm2 . O Visual Studio .NET integrado Development Environment (IDE) abre a janela Code do Form1 e cria automaticamente o protótipo de função para o evento btnShowForm2_Click :
    Private Sub btnShowForm2_Click(ByVal sender As System.Object, _ByVal e As System.EventArgs) Handles btnShowForm2.ClickEnd Sub					
  8. Adicione o seguinte código ao procedimento de evento btnShowForm2_Click :
    Dim dr As DialogResult   Dim f As New Form2()   dr = f.ShowDialog()   If dr = DialogResult.OK Then     MsgBox("User clicked OK button")   ElseIf dr = DialogResult.Cancel Then     MsgBox("User clicked Cancel button")      End If					
Isso exibe Form2 como uma caixa de diálogo modal. Quando o usuário clica em OK ou Cancel , uma caixa de mensagem exibe qual botão o usuário clicou.

back to the top

Concluir a listagem de código

Public Class Form1    Inherits System.Windows.Forms.Form#Region " Windows Form Designer generated code "    Public Sub New()        MyBase.New()        'The Windows Form Designer requires this call.        InitializeComponent()        'Add any initialization after the InitializeComponent() call.    End Sub    'Form overrides Dispose to clean up the component list.    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)        If disposing Then            If Not (components Is Nothing) Then                components.Dispose()            End If        End If        MyBase.Dispose(disposing)    End Sub  Friend WithEvents btnShowForm2 As System.Windows.Forms.Button  'The Windows Form Designer requires this code.  Private components As System.ComponentModel.Container  'NOTE: The Windows Form Designer requires this procedure.  'You can use the Windows Form Designer to modify the code.    'However, do not use the Code editor to modify it.  <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()    Me.btnShowForm2 = New System.Windows.Forms.Button()    Me.SuspendLayout()    '    'Button1    '    Me.btnShowForm2.Location = New System.Drawing.Point(112, 88)    Me.btnShowForm2.Name = "Button1"    Me.btnShowForm2.TabIndex = 0    Me.btnShowForm2.Text = "Show Form2"    '    'Form1    '    Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)    Me.ClientSize = New System.Drawing.Size(288, 165)    Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button1})    Me.Name = "Form1"    Me.Text = "Form1"    Me.ResumeLayout(False)  End Sub#End Region  Private Sub Form1_Load(ByVal sender As System.Object, _  ByVal e As System.EventArgs) Handles MyBase.Load  End Sub  Private Sub btnShowForm2_Click(ByVal sender As Object, _  ByVal e As System.EventArgs) Handles btnShowForm2.Click    Dim dr As DialogResult    Dim f As New Form2()    dr = f.ShowDialog()    If dr = DialogResult.OK Then      MsgBox("User clicked OK button")    ElseIf dr = DialogResult.Cancel Then      MsgBox("User clicked Cancel button")    End If  End SubEnd ClassPublic Class Form2    Inherits System.Windows.Forms.Form#Region " Windows Form Designer generated code "    Public Sub New()        MyBase.New()        'The Windows Form Designer requires this call.        InitializeComponent()        'Add any initialization after the InitializeComponent() call.    End Sub    'Form overrides Dispose to clean up the component list.    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)        If disposing Then            If Not (components Is Nothing) Then                components.Dispose()            End If        End If        MyBase.Dispose(disposing)    End Sub  Friend WithEvents btnOK As System.Windows.Forms.Button  Friend WithEvents btnCancel As System.Windows.Forms.Button    'The Windows Form Designer requires this code.    Private components As System.ComponentModel.Container    'NOTE: The Windows Form Designer requires this procedure.    'You can use the Windows Form Designer to modify the code.      'However, do not use the Code editor to modify it.    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()    Me.btnOK = New System.Windows.Forms.Button()    Me.btnCancel = New System.Windows.Forms.Button()    Me.SuspendLayout()    '    'btnOK    '    Me.btnOK.DialogResult = System.Windows.Forms.DialogResult.OK    Me.btnOK.Location = New System.Drawing.Point(80, 72)    Me.btnOK.Name = "btnOK"    Me.btnOK.TabIndex = 0    Me.btnOK.Text = "OK"    '    'btnCancel    '    Me.btnCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel    Me.btnCancel.Location = New System.Drawing.Point(160, 72)    Me.btnCancel.Name = "btnCancel"    Me.btnCancel.TabIndex = 1    Me.btnCancel.Text = "Cancel"    '    'Form2    '    Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)    Me.ClientSize = New System.Drawing.Size(320, 101)    Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.btnCancel, Me.btnOK})    Me.Name = "Form2"    Me.Text = "Form2"    Me.ResumeLayout(False)  End Sub#End RegionEnd Class				
back to the top

Verificar se ele funciona

  1. Pressione a combinação de teclas CTRL + F5 para executar o projeto. Form1 aparece na tela.
  2. Clique em Mostrar Form2 .
  3. Na caixa de diálogo resultante, clique em OK ou Cancelar para fechar o formulário. Uma caixa de mensagem exibe qual botão você clicou.

    Se você tiver clicado em OK , a caixa de mensagem exibe a legenda a seguir:
    Usuário clicasse o botão OK
    Se você clicou em Cancelar , a caixa de mensagem exibirá a legenda a seguir:
    Usuário clicou botão Cancelar
back to the top

Aviso: este artigo foi traduzido automaticamente

Propriedades

ID do Artigo: 315711 - Última Revisão: 05/11/2007 07:08:50 - Revisão: 3.5

Microsoft Visual Basic 2005, Microsoft Visual Basic .NET 2003 Standard Edition, Microsoft Visual Basic .NET 2002 Standard Edition

  • kbmt kbvs2005swept kbvs2005applies kbhowtomaster KB315711 KbMtpt
Comentários