Jump to content
Sign in to follow this  
joninho

[vb6] Botões Msgbox

Recommended Posts

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

Share this post


Link to post
Share on other sites
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

Share this post


Link to post
Share on other sites
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

Share this post


Link to post
Share on other sites
vbmaster

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

Share this post


Link to post
Share on other sites
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

Share this post


Link to post
Share on other sites
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?

Share this post


Link to post
Share on other sites
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:

Share this post


Link to post
Share on other sites
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

Share this post


Link to post
Share on other sites
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

Share this post


Link to post
Share on other sites
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

Share this post


Link to post
Share on other sites
joninho

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

Share this post


Link to post
Share on other sites
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

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.