Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #57 da revista programar. Faz já o download aqui!

joninho

[vb6] Botões Msgbox

Mensagens Recomendadas

joninho    0
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:

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

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
vbmaster    5
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.... :D

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Tiago Salgado    2
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.... :D

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

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

Cumps

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Tiago_22    0
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  :D

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
joninho    0
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... :D

lol precebes?

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Tiago_22    0
Tiago_22

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:

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
UnKnowN    0
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 :D

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Tiago Salgado    2
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

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
UnKnowN    0
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 :D

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Tiago_22    0
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  :P

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


×

Aviso Sobre Cookies

Ao usar este site você aceita a nossa Política de Privacidade