Ribas
|
SÃO PAULO
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 25/03/2006 12:22 hs
Prezados Amigos, Desenvolvi um programa de Automação Comercial que, durante a impressão do Cupom, ele exibe uma mensagem “Aguarde. Imprimindo Cupom”. Para isso, eu utilizei um Formulário e para exibi-lo uso os Métodos “Show” e “Refresh”. Está tudo Ok, porém ele exibe o botão de “Fechar” a janela, o que não poderia ser feito. Alguém saberia me dizer como posso desabilitar ou esconder o botão de “Fechar” da janela do Formulário? Ou será que não há como usar um “MsgBox” sem os botões? Também seria interessante. Agradeço desde já.
-- []'s Henrique Ribas
|
|
|
|
|
|
Korn
|
SAO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 25/03/2006 13:59 hs
mensage sem botao é assim MsgBox "Iniciando Serviço de Impressao..... Aguarde!"
Jesus Cristo é O Senhor!!!
|
|
|
|
|
|
Postada em 25/03/2006 14:14 hs
|
|
|
|
LCRamos
|
GOIANIA
GO - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 25/03/2006 16:48 hs
No Option Explicit do formulário
Private Declare Function DeleteMenu Lib "user32" (ByVal hMENU As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Const MF_BYPOSITION = &H400& No Form Load, ou em um botão RemoveMenus No formulário:
Private Sub RemoveMenus()
Dim hMENU As Long
hMENU = GetSystemMenu(hwnd, False)
DeleteMenu hMENU, 6, MF_BYPOSITION
End Sub
Trocando hMENU = GetSystemMenu(hwnd, True) retorna o botão close do formulário vlu// |
|
|
|
|
|
Postada em 27/03/2006 10:03 hs
Olá Ribas!!! Para fazer o que você que basta definir as seguintes propriedades do form, que você criou, com os valores abaixo: BorderStyle = 1 - Fixed Single Caption = Empty (sem nada escrito no caption) ControlBox = False Fazendo isso seu form fica sem borda e sem os botões de minimizar, maximizar/restaurar e fechar. Espero te ajudado!!!
Abraços!!! 
by
Gustavo Bittencourt Costa
|
|
|
|
