FORM DESAPARECE

IGNORANTE 24/04/2014 13:49:40
#437575
Tenho num form um texto e um botão que faz aparecer outro pequeno form onde, numa caixa de texto, se escreve uma palavra para encontrar.
Tudo bem, a palavra é encontrada e sublinhada mas o pequeno form é minimizado e quando quero procurar a palavra seguinte ele está cá em baixo.
Já tentei tudo e não vejo maneira de o manter acima.
Alguém me pode ajudar?

Obrigado desde já.
MOUSER 24/04/2014 15:05:09
#437579
Já tentou usar a função Hide? Ele invés de minimizar o form, ele simplesmente oculta, caso precise dele novamente é só usar a função reversa.
IGNORANTE 24/04/2014 15:16:07
#437582
O que acontece é que a form é minimizada e eu quero que não seja, quero que fique visível onde estava.
Não a quero ocultar.
MOUSER 24/04/2014 15:39:36
#437584
Neste caso, já experimentou chamala novamente depois da execução ou colocar a função para maximizar o form? Por mais que as vezes não tenha nada que faça minimizar, no VB.Net já passei por algo similar, e tive que colocar a função para maximizar o form, mesmo sem ter a função para minimizar. Mas mesmo assim sem a função de maximizar e vice-versa ele minimizava. Só depois que add. Talves ajude. Vou tentar achar o projeto e converter para VB/VBA e tentar ver o que acontece sem e com a função. Vou conversar com alguns professores tambem para tentar nos auxiliar.
IGNORANTE 24/04/2014 15:55:20
#437585
Já experimenttei chamá-la outravez, Já experimentei fazer form2.left=..., form2.top=... para tentar que~lá fique e nada.
Minimiza sempre.
MARCELO.TREZE 24/04/2014 18:20:35
#437596
Resposta escolhida
no form que ficara sempre no topo

coloque

Private Declare Function SetWindowPos Lib [Ô]user32[Ô] (ByVal hwnd As Long, _
ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, _
ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Private Const SWP_NOMOVE = 2
Private Const SWP_NOSIZE = 1
Private Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2

Private Sub Form_Load()
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS
End Sub

IGNORANTE 24/04/2014 18:43:55
#437597
Muito, muito, muito obrigado, Marcelo.
Funciona na perfeição!
Por mim mesmo nunca chegaria lá.
Tópico encerrado , respostas não são mais permitidas