Truques e Dicas - Tutoriais de Visual Basic

tutoriais

Photoshop

ASP

PHP

jogos

Galerias

fóruns

Flash

TUTORIAIS DE VISUAL BASIC

1. Introdução

Página:

Message Box, Dialog Box

Uma Message Box, mostra uma caixa de diálogo e espera que o utilizador click num botão, retornando um valor indicador do botão que foi clicado.

A sintax é a seguinte :

MsgBox(Mesagem, Botões, Titulo)

Para o exemplo de cima, escrevemos a seguinte linha de código:

Dim resp As Integer
resp = MsgBox("Texto da mensagem", vbAbortRetryIgnore + vbCritical + vbDefaultButton1, "Titulo da mensagem")

De seguida publicaremos uma tabela com as caracteristicas dos botões, assim como dos valores retornados consoante o botão que o utilizador clica.

CONSTANTE

VALOR

DESCRIÇÃO

vbOKOnly	0	Mostra o botão de OK
vbOKCancel	1	Mostra botões de Ok e Cancel
vbAbortRetryIgnore	2	Mostra botões de Abortar, Tentar, Ignorar
vbYesNoCancel	3	Mostra botões de Sim, Não, Cancel
vbYesNo	4	Mostra botões de Sim e Não
vbRetryCancel	5	Mostra botões de Tentar e Cancelar
VbCritical	16	Mostra o icon de Perigo
vbQuestion	32	Mostra o icon de Interrogação
vbExclamation	48	Mostra o icon de Exclamação
vbInformation	64	Mostra o icon de Informação
vbDefaultButton1	0	Coloca em defeito o 1º botão
vbDefaultButton2	256	Coloca em defeito o 2º botão
vbDefaultButton3	512	Coloca em defeito o 3º botão
vbDefaultButton4	768	Coloca em defeito o 4º botão
vbApplicationModal	0	Aplicação modal. O utilizador deve responder á caixa de mensagem antes de continuar a trabalhar na aplicação.
vbSystemModal	4096	Sistema modal. Todas as aplicações são suspensas até que o utilizador responda á caixa de mensagens.

A função MsgBox retorna os seguintes valores:

CONSTANTE

VALOR

BOTÃO

vbOK	1	OK
vbCancel	2	Cancel
vbAbort	3	Abort
vbRetry	4	Retry
vbIgnore	5	Ignore
vbYes	6	Yes
vbNo	7	No

Dialog Box

A Message Box serve para informar o utilizador de algo que se passou, e espera um click para executar uma acção. Com a Dialog Box pretendemos que o utilizador intruduza uma determinada informação para completar uma tarefa.

Por exemplo, se pretendermos fazer um Backup (segurança) de uma Base de dados da nossa aplicação, podemos pedir ao utilizador que digite o nome da base de dados destino.

Atendamos ao exemplo seguinte:

Para o exemplo acima, escrevemos as seguintes linhas de código:

Dim Stexto as String

mens = " DIGITE O NOME DA BASE DE DADOS "
tit = " SISTEMA DE SEGURANÇA"
Stexto = InputBox$(mens, tit)

Seguinte

ANÚNCIOS