[Resolvido]Ajuda para tornar msgbox modal

Bom dia, mestres.

Retirei esse exemplo não me lembro se foi daqui dos mestres ou de mestres de outros fóruns.

Eu só queria saber como fazer esse exemplo de msgbox personalizada e não modal ficar sendo modal.

Ela está ótima aos meus propósitos, apenas quero deixá-la modal e não estou conseguindo.

Desculpem se sou um tanto quanto burro.

Bom dia Leoni... está falando Pop Up? Abrir por cima de algum form?

Cumprimentos.

Boa tarde, Piloto.

É que quando clico em outra parte do form que a chamou (que é pop up) essa msgbox personalizada fica por trás dele. Queria que ela funcionasse como msgbox normal que fica em primeiro plano até ser clicado um botão.

Não sei se me fiz entender.

Boa tarde, Avelino.

O acDialog para o form eu já fiz como você disse e funcionou perfeito.

O problema com essa MsgboxPersonalizada é que é API do windows. Quando clico no form ela fica por trás.

Obrigado.

Porque não faz um form no estilo de msgBox contendo oos 3 botões... ai coloque ele como restrito...
Ficará igual.

Cumprimentos.

Boa noite, mestre Piloto.

Vou verificar e se não ficar legal, vou pesquisar mais.

Obrigado.

Fica não só igual como com a mesma eficiência.

Aguardamos.

cumprimentos.

Bom dia, mestre Piloto.

Desculpe a demora em responder.

O problema é que em meu BD são muitas MsgBox e com textos diferentes. Para se ter uma idéia, o bd está hoje com 30 Mb de tamanho, mas não é por não está conpactado não, é por ser um bd ligado ao setor público, à unidade que lida com adolescentes infratores, com todo tipo de cadastro de infratores e funcionários, impressões diretamente no bd (praticamente sem uso do word), consequentemente, muitos forms.

Por isso que utilizando essa MsgBoxPersonalizada por API do windows seria melhor.

Cumprimentos.

Continuo com a mesma opinião... agora levando em consideração o que falaste...

Cria uma tabela com as mensagens, esta tabela conteria 3 campos...
ID_Msg
cpMsg
cpFormOrigem

E ao abrir o form, identificaria o form de origem, e carregaria em uma caixa texto desacoplada no form Msg o texto correspondente... Simples.


Cumprimentos.

Pode até utilizar imagens personalidades para a mensagem cmo Exclamação, interrogação etc...

Cumprimentos.

Boa tarde, mestre Piloto.

Você tem razão. dessa forma se tem muito mais opções.

Obrigado.

O Fórum agradece o retorno

Boa tarde, pessoal.

Resolvi entrar novamente neste tópico, apesar de já resolvido, só para deixar a solução para o tópico que criei.

Para tornar a MsgBoxPersonalizada uma msg modal basta apenas acrescentar no VbMsgBoxStyle a constante vbSystemModal.

Ex.

Não modal: PerText = BBmsgbox(3, 2, "Projeto Teen's", "Qual o processo para a impressão?", vbQuestion, "Criar PDF", "Impressora", "Cancelar")

Modal: PerText = BBmsgbox(3, 2, "Projeto Teen's", "Qual o processo para a impressão?", vbQuestion Or vbSystemModal, "Criar PDF", "Impressora", "Cancelar")

Muito bom... Parabéns pela solução.

Cumprimentos.