Boa noite galera dedicada!!!!
Acompanho todos nestes fóruns e vocês são fenomenais, gostaria de uma ajuda referente ao título desse fórum... de como "Bloquear redimensionamento de um form";
Sou iniciante no vba e estou desenvolvimento um pequeno sistema para minha área de "BI" e precisava bloquear o redimensionamento do formulário, gostaria que ele apareça em tela inteira e que este não seja minimizado em momento algum, seja pelo botão "esc", seja por duplo clic na barra de ferramentas, e dos botões de fechar na barra de títulos.
Ficaria imensamente grato pela ajuda!!!
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Bloquear redimensionamento de um form
-
- Acabou de chegar
- Mensagens: 1
- Registrado em: Sáb Out 18, 2014 11:14 pm
Re: Bloquear redimensionamento de um form
Thone, vê se isso dá certo
EM DECLARAÇÃO DO FORMULARIO COLE ESSA API
Option Explicit
Private Declare Function ExibirÍcone Lib "user32" Alias "SendMessageA" ( _
ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
LParam As Any) As Long
Private Declare Function IniciaJanela Lib "user32" Alias "GetWindowLongA" ( _
ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function MoveJanela Lib "user32" Alias "SetWindowLongA" ( _
ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetFocus Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, _
ByVal nCmdShow As Long) As Long
Private Const FOCO_ICONE = &H80
Private Const ICONE = 0&
'Private Const GRANDE_ICONE = 1&
Private Const ESTILO_PROLONGADO = (-20)
Private Const ESTILO_ATUAL As Long = (-16)
Private Const WS_CAPTION = &HC00000
Private Const WS_BARRA_TAREFAS = &H40000
Private Const WS_MENU As Long = &H80000
‘Private Const WS_CX_MINIMIZAR As Long = &H20000 '// Botão maximizar
‘Private Const WS_CX_MAXIMIZAR As Long = &H10000 '// Botão minimizar
Private Const WS_POPUP As Long = &H80000000
Private Const SW_EXIBIR_NORMAL = 1
Private Const SW_EXIBIR_MINIMIZADO = 2
Private Const SW_EXIBIR_MAXIMIZADO = 3
Dim Form_Personalizado As Long
Dim ESTILO As Long
Dim hIcone As Long
E NA FUNÇÃO ACTIVATE DO FORMULÁRIO COLE ESSE CÓDIGO
ESTILO = IniciaJanela(Form_Personalizado, ESTILO_ATUAL)
‘ESTILO = ESTILO Or WS_CX_MINIMIZAR '// Botão Minimizar
‘ESTILO = ESTILO Or WS_CX_MAXIMIZAR '// Botão Minimizar
ESTILO = ESTILO Or WS_POPUP '
ESTILO = ESTILO Or WS_CAPTION
MoveJanela Form_Personalizado, ESTILO_ATUAL, (ESTILO)
ESTILO = IniciaJanela(Form_Personalizado, ESTILO_PROLONGADO)
ESTILO = ESTILO Or WS_BARRA_TAREFAS
MoveJanela Form_Personalizado, ESTILO_PROLONGADO, ESTILO
hIcone = Image3.Picture.Handle
Call ExibirÍcone(Form_Personalizado, FOCO_ICONE, ICONE, ByVal hIcone)
DrawMenuBar Form_Personalizado
SetFocus Form_Personalizado
ShowWindow Form_Personalizado, SW_EXIBIR_MAXIMIZADO
Boa sorte
EM DECLARAÇÃO DO FORMULARIO COLE ESSA API
Option Explicit
Private Declare Function ExibirÍcone Lib "user32" Alias "SendMessageA" ( _
ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
LParam As Any) As Long
Private Declare Function IniciaJanela Lib "user32" Alias "GetWindowLongA" ( _
ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function MoveJanela Lib "user32" Alias "SetWindowLongA" ( _
ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetFocus Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, _
ByVal nCmdShow As Long) As Long
Private Const FOCO_ICONE = &H80
Private Const ICONE = 0&
'Private Const GRANDE_ICONE = 1&
Private Const ESTILO_PROLONGADO = (-20)
Private Const ESTILO_ATUAL As Long = (-16)
Private Const WS_CAPTION = &HC00000
Private Const WS_BARRA_TAREFAS = &H40000
Private Const WS_MENU As Long = &H80000
‘Private Const WS_CX_MINIMIZAR As Long = &H20000 '// Botão maximizar
‘Private Const WS_CX_MAXIMIZAR As Long = &H10000 '// Botão minimizar
Private Const WS_POPUP As Long = &H80000000
Private Const SW_EXIBIR_NORMAL = 1
Private Const SW_EXIBIR_MINIMIZADO = 2
Private Const SW_EXIBIR_MAXIMIZADO = 3
Dim Form_Personalizado As Long
Dim ESTILO As Long
Dim hIcone As Long
E NA FUNÇÃO ACTIVATE DO FORMULÁRIO COLE ESSE CÓDIGO
ESTILO = IniciaJanela(Form_Personalizado, ESTILO_ATUAL)
‘ESTILO = ESTILO Or WS_CX_MINIMIZAR '// Botão Minimizar
‘ESTILO = ESTILO Or WS_CX_MAXIMIZAR '// Botão Minimizar
ESTILO = ESTILO Or WS_POPUP '
ESTILO = ESTILO Or WS_CAPTION
MoveJanela Form_Personalizado, ESTILO_ATUAL, (ESTILO)
ESTILO = IniciaJanela(Form_Personalizado, ESTILO_PROLONGADO)
ESTILO = ESTILO Or WS_BARRA_TAREFAS
MoveJanela Form_Personalizado, ESTILO_PROLONGADO, ESTILO
hIcone = Image3.Picture.Handle
Call ExibirÍcone(Form_Personalizado, FOCO_ICONE, ICONE, ByVal hIcone)
DrawMenuBar Form_Personalizado
SetFocus Form_Personalizado
ShowWindow Form_Personalizado, SW_EXIBIR_MAXIMIZADO
Boa sorte