PROBLEMA COM O FOCU NO FORM DO VB.NET
Olá caro colegas,
Estou tento um problema que esta me dando uma chateação incrÃvel, eu tenho 2 formulários Form1 e Form2, quando o form1 aberto por via função do teclado abro o Form2 até ai tudo bem, quando eu fecho o Form2 o Form1 fica escondido por traz de qualquer outra aplicação que esteja aberta no meu desktop, no Vb6 isso não ocorre, como faço pra resolver isso.
[ô]Para abrir o Form2 uso o comando abaixo e funciona blz
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] - LOCALIZAR ITEM
[ô]Call localiza()
Form2.ShowDialog()
TextBox1.Focus()
Exit Sub
End Select
End Sub
[ô]Para fechar o Form2 eu uso esse comando e funciona blz, menos a parte que o focu do Form1 desaparece fazendo com que ele ficar por traz de qualquer outra aplicação aberta no meu Desktop.
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] - LOCALIZAR ITEM
Me.Close()
Me.Dispose()
End Select
End Sub
Desde já agradeço ajuda de vocês.
Estou tento um problema que esta me dando uma chateação incrÃvel, eu tenho 2 formulários Form1 e Form2, quando o form1 aberto por via função do teclado abro o Form2 até ai tudo bem, quando eu fecho o Form2 o Form1 fica escondido por traz de qualquer outra aplicação que esteja aberta no meu desktop, no Vb6 isso não ocorre, como faço pra resolver isso.
[ô]Para abrir o Form2 uso o comando abaixo e funciona blz
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] - LOCALIZAR ITEM
[ô]Call localiza()
Form2.ShowDialog()
TextBox1.Focus()
Exit Sub
End Select
End Sub
[ô]Para fechar o Form2 eu uso esse comando e funciona blz, menos a parte que o focu do Form1 desaparece fazendo com que ele ficar por traz de qualquer outra aplicação aberta no meu Desktop.
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] - LOCALIZAR ITEM
Me.Close()
Me.Dispose()
End Select
End Sub
Desde já agradeço ajuda de vocês.
Você pode colocar:
Form1.BringToFront()
Boa tarde,
Já tentou form1.focus() no unload do 2?
To em casa nao testei mas creio que va funcionar.
Abraços.
Já tentou form1.focus() no unload do 2?
To em casa nao testei mas creio que va funcionar.
Abraços.
TENTA UTILIZAR O SHOWDIALOG
isso tbm pode ajudar .. ele vai ficar por cima de todas
isso tbm pode ajudar .. ele vai ficar por cima de todas
Olá pessoal,
Eu já fiz todos os exemplos citados acima e não resolveu
Estou aceitando mais sugestões.
Desde já agradeço
Eu já fiz todos os exemplos citados acima e não resolveu
Estou aceitando mais sugestões.
Desde já agradeço
Pessoal ninguém conseguiu me dar uma solução para esse problema
será que o Vb.Net fica para traz de algo tão simples que o VB6 tira de letra,
Ou que niquem passou por esse problema ou se passou deixou pra lá ??
será que o Vb.Net fica para traz de algo tão simples que o VB6 tira de letra,
Ou que niquem passou por esse problema ou se passou deixou pra lá ??
Quando você for chamar o formulário faça como este exemplo:
Form1.[txt-color=#e80000]TopLevel = false[/txt-color]
Form1.Show()
faça em ambos os formulários
Form1.[txt-color=#e80000]TopLevel = false[/txt-color]
Form1.Show()
faça em ambos os formulários
Cara é meio impossÃvel de acreditar que nenhuma das dicas tenha te ajudado
Meu projeto mesmo, eu faço FormTal.BringToFront ou If FormTal.Visible = False Then FormTal.Visible = True
mas se você quiser pode fazer uma gambiarra:
Se ainda assim não funcionar, se puder enviar o seu projeto para a gente dar uma analisada seria bom.
Meu projeto mesmo, eu faço FormTal.BringToFront ou If FormTal.Visible = False Then FormTal.Visible = True
mas se você quiser pode fazer uma gambiarra:
With Form1
.TopMost = True
. TopMost = False
End WithSe ainda assim não funcionar, se puder enviar o seu projeto para a gente dar uma analisada seria bom.
Ainda não solucionou o problema???? Se sim favor fechar o tópico e pontuar quem o ajudou.
Att,
Lucas
Att,
Lucas
Algum dos administradores feche este tópico por favor, acho que resolveram o problema e esqueceram de pontuar e fechar o tópico.
Faz dez dias desde meu último comentário.
Faz dez dias desde meu último comentário.
Tópico encerrado , respostas não são mais permitidas