IMPEDIR REDIMENSIONAMENTO DO FORM
Bom dia.
Como faço pra impedir que, ao usuario dar duplo clique no topo do form, o mesmo se redimensione? Pois no meu menu ele [Ô]encolhe/restaura[Ô] e o topo fica fora do acesso do mouse do usuário.
Fiz assim:
Porém fica esteticamente estranho.
Ja busquei na net mas nao acho nada que funcione.
Como faço pra impedir que, ao usuario dar duplo clique no topo do form, o mesmo se redimensione? Pois no meu menu ele [Ô]encolhe/restaura[Ô] e o topo fica fora do acesso do mouse do usuário.
Fiz assim:
me.WindowState = 2
Porém fica esteticamente estranho.
Ja busquei na net mas nao acho nada que funcione.
Citação::
Bom dia.
Como faço pra impedir que, ao usuario dar duplo clique no topo do form, o mesmo se redimensione? Pois no meu menu ele [Ô]encolhe/restaura[Ô] e o topo fica fora do acesso do mouse do usuário.
Fiz assim:me.WindowState = 2
Porém fica esteticamente estranho.
Ja busquei na net mas nao acho nada que funcione.
Deixe a opção do form [ô]BorderStyle = 3[ô] [ô]Fixed Dialog[ô]
Ou também pode colocar o seguinte código no evento Resize:
Geralmente eu olho a altura e largura que já estão definidas
e as coloco.
On error resume Next
me.Heigth = [ô]Aqui vc coloca a altura desejada
me.Width = [ô]Aqui vc coloca a largura desejada
Geralmente eu olho a altura e largura que já estão definidas
e as coloco.
Citação::
On error resume Next
me.Heigth = [ô]Aqui vc coloca a altura desejada
me.Width = [ô]Aqui vc coloca a largura desejada
Aqui é uma abordagem um pouquinho diferente, que pode ser usada, porém não deixa o form [ô]piscando[ô] quando ele é redimensionado...
With Me
If .Width < 11670 Or .Width > 11670 Then
.Width = 11670
.Enabled = False
DoEvents: DoEvents
.Enabled = True
End If
If .Height < 8970 Then
.Height = 8970
Enabled = False
DoEvents: DoEvents
.Enabled = True
End If
End With
eu deixo form.resize como fixe single..bem simples.
Tópico encerrado , respostas não são mais permitidas