Jump to content

Fechar form


Leudassdf
 Share

Recommended Posts

boas!

No meu programa tenho o seguinte:

Me.Hide()

        My.Forms.Form1.Show()

o que acontece e que e esconde o form que esta aberto e abre outro. mas o que eu queria e que ele fize-se uma especie de end para que ao clicar no botao vermelho para fechar o programa, ele não continua-se com a sua execução.

Como posso contornar este problema?

Link to comment
Share on other sites

Boas

Se queres fechar o form fazes

Form1.Close();

Para terminar a aplicação

Application.Exit()

mas se eu fizer o form1.close ele fecha a aplicaçao e nao mostra os outros forms.

O que quero e que ele feche aquele form mas abra outro.

o que acontece e que se fizer o me.hide no form 1 ele esconde mas o problema e que se depois quiser fechar a aplicaçao ao clicar no botao vermelho tenho que ir ao visual basic fazer o stop debugging

Link to comment
Share on other sites

No form 1 podes usar o ShowDialog, que abre o form2 e bloqueia o form1 até a form2 fechar.

Form2.ShowDialog

Ou podes fazer é:

Form2.Show
Form1.Hide

Que mostra a form2 e esconde, não fecha, a form1

Espero ter-te ajudado

Cumps. J.Viana

Learning

  • VB.Net
  • HTML
  • C/C++

Link to comment
Share on other sites

Olá boa tarde.

Antes de mais gostaria de solicitar o código e/ou parte do mesmo para poder ser ajudado.

Até+

Programadorvb6

______________________________________________________________________________

Que minha coragem seja maior que meu medo e que minha força seja tão grande quanto minha fé.
 

Link to comment
Share on other sites

Olá

Veja se é +- isto como mostra este video : www.youtube.com/watch?v=RduET1_91b8&hd=1 

Siga o exemplo em baixo :

 Public Class Form1

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        Select Case Asc(e.KeyChar)
            Case 13     '//TECLA [ENTER] - ABRIR TELA DE RECEBIMENTO DE TITULOS PAGOS
                'Form2.TopLevel = True
                Form2.BringToFront()
                Form2.ShowDialog()
                'Me.TopLevel = True
        End Select
    End Sub

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Me.TopMost = True
        Me.TextBox1.Focus()
    End Sub
End Class


============
Public Class Form2

    Private Sub Form2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
        Select Case Asc(e.KeyChar)
            Case 13     '//TECLA [ENTER] - ABRIR TELA DE RECEBIMENTO DE TITULOS PAGOS
                Me.Close()
                Me.Dispose()
            Case 27     '//TECLA [ESC] - FECHAR FORMULARIO
                'Me.Close()
                'Me.Dispose()
        End Select
    End Sub

    Private Sub Form2_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Me.TopMost = True
        Form1.TextBox1.Focus()
    End Sub
End Class 

______________________________________________________________________________

Que minha coragem seja maior que meu medo e que minha força seja tão grande quanto minha fé.
 

Link to comment
Share on other sites

Olá

Veja se é +- isto como mostra este video : www.youtube.com/watch?v=RduET1_91b8&hd=1 

Siga o exemplo em baixo :

 Public Class Form1

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        Select Case Asc(e.KeyChar)
            Case 13     '//TECLA [ENTER] - ABRIR TELA DE RECEBIMENTO DE TITULOS PAGOS
                'Form2.TopLevel = True
                Form2.BringToFront()
                Form2.ShowDialog()
                'Me.TopLevel = True
        End Select
    End Sub

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Me.TopMost = True
        Me.TextBox1.Focus()
    End Sub
End Class


============
Public Class Form2

    Private Sub Form2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
        Select Case Asc(e.KeyChar)
            Case 13     '//TECLA [ENTER] - ABRIR TELA DE RECEBIMENTO DE TITULOS PAGOS
                Me.Close()
                Me.Dispose()
            Case 27     '//TECLA [ESC] - FECHAR FORMULARIO
                'Me.Close()
                'Me.Dispose()
        End Select
    End Sub

    Private Sub Form2_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Me.TopMost = True
        Form1.TextBox1.Focus()
    End Sub
End Class 

e No gênero disto!

Mas no click. ou seja ao clicar no fechar ele devera terminar o form.

Link to comment
Share on other sites

Veja se é isto :

''' <summary>
''' Define ou retorna se o sistema deverá ser encerrado
''' </summary>
Private PodeFechar As Boolean = True
' Constante do botão fechar
Private Const WM_CLOSE As Integer = CInt(&H10)
Protected Overrides Sub WndProc(ByRef pM As System.Windows.Forms.Message)
If pM.Msg = WM_CLOSE Then
   If MessageBox.Show("Deseja encerrar o sistema?", _
                      "Encerrar sistema!", _
                       MessageBoxButtons.YesNo, _
                       MessageBoxIcon.Question) = _
                       Windows.Forms.DialogResult.Yes Then
       Me.PodeFechar = True
   Else
       Me.PodeFechar = False
   End If
End If
MyBase.WndProc(pM)
End Sub
Private Sub frmEventoFechar_FormClosing(ByVal sender As Object, _
       ByVal e As System.Windows.Forms.FormClosingEventArgs) _
       Handles Me.FormClosing
If Me.PodeFechar = False Then
   e.Cancel = True
   Me.PodeFechar = True
End If
End Sub

Espero ter ajudado.

Até+

Programadorvb6

______________________________________________________________________________

Que minha coragem seja maior que meu medo e que minha força seja tão grande quanto minha fé.
 

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.