[vb6] Botões Msgbox

[joninho]

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:

http://img500.imageshack.us/img500/930/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..

[vbmaster]

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.... 😄

[Tiago Salgado]

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.... 😄

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

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

Cumps

[vbmaster]

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

[joninho]

lol, ok entao eu depois modifico o topico... 👍 lol

[Tiago_22]

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  😄

[joninho]

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... 😄

lol precebes?

[Tiago_22]

o codigo seguinte e para um botao que tem o objectivo de limpar o texto escrito... mas para ser mais completo 😁 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 👍

[UnKnowN]

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 😄

[Tiago Salgado]

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

[UnKnowN]

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 😄

[joninho]

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

[Tiago_22]

obrigado a todos  😉 principalmente ao Tiago Salgado.

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

cumps  😛

[joninho]

lol d nada 😉 tamos aqui para ajudar