• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

joninho

[vb6] Botões Msgbox

14 mensagens neste tópico

Botões do MSGBOX do Visual Basic 6

Para quem não sabe a sintaxe básica do msgbox eh:

Msgbox “Bem vindo ao nosso programa de gestão”,3,”Boas-vindas”

“Bem-vindo ao nosso programa de gestão” é o texto k aparece na Box.

3 é o número do conjunto de botões.

“Boas Vindas” é o título da box.

Podes alterar os botões da box, mudando o número em vex d 3, podes por outro consoante os seguintes

Botões 1:

botes11qe.jpg

Botões 2:

http://img500.imageshack.us/img500/8329/botes29cb.jpg

Botões 3:

http://img297.imageshack.us/img297/7695/botes31xh.jpg

Botões 4:

http://img297.imageshack.us/img297/8566/botes41xv.jpg

Botões 5:

http://img297.imageshack.us/img297/8928/botes52qk.jpg

Botões 6:

http://img500.imageshack.us/img500/5508/botes65bs.jpg

Cumps... lol klkr dia meto os numeros dos tipos d boxs, d aviso pergunta etc..

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Nice para os iniciantes...

Normalmente agora já não se usa os numeros, faz-se cenas tipo vbOKOnly+vbCritical que junta uma msgbox com só um OK e com um símbolo de informação crítica.

Ops, mas isto já é em vb.net.... :D

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Nice para os iniciantes...

Normalmente agora já não se usa os numeros, faz-se cenas tipo vbOKOnly+vbCritical que junta uma msgbox com só um OK e com um símbolo de informação crítica.

Ops, mas isto já é em vb.net.... :D

Não é apenas em VB.NET ...em VB6 tambem podes usar essa junção.

Exemplo: MsgBox "Deseja Sair?",vbYesNo+vbQuestion,"titulo"

Cumps

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Pois, sendo assim é sempre melhor usares esses termos que os numeros Joninho.... :D

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Boas!

Exemplo: MsgBox "Deseja Sair?",vbYesNo+vbQuestion,"titulo"

da para interagir com estes botoes? por exemplo usar depois um If a dizer se o ultilizador responder yes entao ele faz isto senao faz akilo... ou para ixo tenhu k fazer como o joninho...

cumps  :D

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

usar MsgBox "Deseja Sair?",vbYesNo+vbQuestion,"titulo" ou os numeros é igual, e com os ifs podes fazer o msgbox tb retorna valores se fixeres

a =  MsgBox "Deseja Sair?",vbYesNo+vbQuestion,"titulo"

depois podes meter um if

ou entao if MsgBox "Deseja Sair?",vbYesNo+vbQuestion,"titulo" = vbYesNo then

etc... :D

lol precebes?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

o codigo seguinte e para um botao que tem o objectivo de limpar o texto escrito... mas para ser mais completo :cheesygrin: pergunta se n pretende guardar o texto actual...

Private Sub mnunew_Click(Index As Integer)
Dim numficheiro
MsgBox "Deseja guardar as alterações feitas no documento actual?", vbYesNo + vbQuestion, "Guardar"
If vbYes Then
CommonDialog1.ShowSave
numficheiro = FreeFile
If CommonDialog1.FileName <> "" Then
   Open CommonDialog1.FileName & ".txt" For Output As numficheiro
   Print #numficheiro, Text1.Text
   Close #numficheiro
End If
Else
Text1.Text = ""
End If
End Sub

mas axi n funciona... porque quer diga sim quer diga não ele pede para gravar...

axi como o joninho disse ou pelo menos como eu entrepertei (o codigo que vou por abaixo) tambem não dá...

Private Sub mnunew_Click(Index As Integer)
Dim numficheiro
MsgBox "Deseja guardar as alterações feitas no documento actual?", vbYesNo + vbQuestion, "Guardar"
If MsgBox "Deseja guardar as alterações feitas no documento actual?", vbYesNo + vbQuestion, "Guardar"=vbYes Then
CommonDialog1.ShowSave
numficheiro = FreeFile
If CommonDialog1.FileName <> "" Then
   Open CommonDialog1.FileName & ".txt" For Output As numficheiro
   Print #numficheiro, Text1.Text
   Close #numficheiro
End If
Else
Text1.Text = ""
End If
End Sub

alguem me pode ajudar e explicar como ixto funciona?

cumps a tds :thumbsup:

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

O Código correcto é :

Private Sub Command1_Click()
If MsgBox("Sair?", vbYesNo + vbQuestion, "Sair") = vbYes Then
End
End If
End Sub

Agr tu perguntas: Ah e Tal, Onde é que está a MsgBox ... dizes If a MsgBox tal e tal ... ?

E Eu respondo, só se poe 1 vez a MsgBox pk se puseres duas ele pergunta-te 2 vezes :)

Code Fornecido por Psiico :D

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Ou entao ainda podes fazer do genero

Private Sub mnunew_Click(Index As Integer)
Dim numficheiro as Integer
Dim resposta as String
resposta = MsgBox ("Deseja guardar as alterações feitas no documento actual?", vbYesNo + vbQuestion, "Guardar")
If resposta = vbYes Then
CommonDialog1.ShowSave
numficheiro = FreeFile
If CommonDialog1.FileName <> "" Then
    Open CommonDialog1.FileName & ".txt" For Output As numficheiro
    Print #numficheiro, Text1.Text
    Close #numficheiro
End If
Else
Text1.Text = ""
End If
End Sub

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Ou entao ainda podes fazer do genero

Private Sub mnunew_Click(Index As Integer)
Dim numficheiro as Integer
Dim resposta as String
resposta = MsgBox ("Deseja guardar as alterações feitas no documento actual?", vbYesNo + vbQuestion, "Guardar")
If resposta = vbYes Then
CommonDialog1.ShowSave
numficheiro = FreeFile
If CommonDialog1.FileName <> "" Then
    Open CommonDialog1.FileName & ".txt" For Output As numficheiro
    Print #numficheiro, Text1.Text
    Close #numficheiro
End If
Else
Text1.Text = ""
End If
End Sub

EhEh também tinha pensado nisso :D

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

pronto no fundo é isso tudo que eu tava a tentar diser XD lol como vês é muito simples ;)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

obrigado a todos  ;) principalmente ao Tiago Salgado.

joninho, no fundo, no fundo foi quase isso que eu percebi da tua explicaçao  ;)

cumps  :P

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora