Jump to content


Photo

Dica - Msgbox Em Botão Sair


  • Faça o login para participar
10 replies to this topic

#1 Sic

Sic

    Meu Reggae é Roots!

  • Usuários
  • 311 posts
  • Sexo:Masculino
  • Localidade:SP - ZL!
  • Interesses:Web, Desenvolvimento, Design, ITIL.<br /><br />Praia, Sol, Surf, Música, Violão e um Forreggae.

Posted 26/03/2004, 00:29

Ai pessoal dica simple para botão sair

Dim sair as string
sair = msgbox ("Deseja realmente sair?", vbYesNo + vbExclamation , "Atenção")

If sair = vbYes then
end
else
cancel = true
end if

Bruno Cesar Dutra - "Mudar é ir Além!"
UbuntuUser - 7.04

Poesias Trash - Idiotice & Conscientização | BlackVistaMod @ Tecnologia

#2 _mcl_

_mcl_

    Mestre

  • Usuários
  • 609 posts
  • Sexo:Masculino
  • Localidade:Ipatinga / MG

Posted 26/03/2004, 01:20

Para q serve isso? aonde edito isso?
Posted Image Posted Image Posted Image Posted Image

#3 Sic

Sic

    Meu Reggae é Roots!

  • Usuários
  • 311 posts
  • Sexo:Masculino
  • Localidade:SP - ZL!
  • Interesses:Web, Desenvolvimento, Design, ITIL.<br /><br />Praia, Sol, Surf, Música, Violão e um Forreggae.

Posted 26/03/2004, 01:55

Tipo no programa que você fez, você coloca o botão sair, cetro?
Esse code serve pra quando o usuario clicar em sair, o programa fazer uma checagem com uma msgbox se ele realmente deseja sair.
Entendeu?
Bruno Cesar Dutra - "Mudar é ir Além!"
UbuntuUser - 7.04

Poesias Trash - Idiotice & Conscientização | BlackVistaMod @ Tecnologia

#4 _mcl_

_mcl_

    Mestre

  • Usuários
  • 609 posts
  • Sexo:Masculino
  • Localidade:Ipatinga / MG

Posted 26/03/2004, 01:59

A soh kra, entendi, muito bom este codigo!! Vlw!!
Posted Image Posted Image Posted Image Posted Image

#5 Sic

Sic

    Meu Reggae é Roots!

  • Usuários
  • 311 posts
  • Sexo:Masculino
  • Localidade:SP - ZL!
  • Interesses:Web, Desenvolvimento, Design, ITIL.<br /><br />Praia, Sol, Surf, Música, Violão e um Forreggae.

Posted 05/05/2004, 15:11

As msgbox tambem podem ser usadas para confirmação de outras rotinas como em salvar dados em um BD, entre outras.

Dim salvar as string
sair = msgbox ("Deseja realmente salvar os dados?", vbYesNo + vbExclamation , "Atenção")

If salvar = vbYes then
'instruções para salvar no BD'
else
cancel = true
end if

Bruno Cesar Dutra - "Mudar é ir Além!"
UbuntuUser - 7.04

Poesias Trash - Idiotice & Conscientização | BlackVistaMod @ Tecnologia

#6 Sic

Sic

    Meu Reggae é Roots!

  • Usuários
  • 311 posts
  • Sexo:Masculino
  • Localidade:SP - ZL!
  • Interesses:Web, Desenvolvimento, Design, ITIL.<br /><br />Praia, Sol, Surf, Música, Violão e um Forreggae.

Posted 05/05/2004, 17:22

E para quebra linha em uma msg box:

MsgBox "Linha 1" + Chr$(13) & "Linha 2" + Chr$(13) & "Linha 3", vbCritical, "TESTE"

Bruno Cesar Dutra - "Mudar é ir Além!"
UbuntuUser - 7.04

Poesias Trash - Idiotice & Conscientização | BlackVistaMod @ Tecnologia

#7 HaroNism

HaroNism

    Super Veterano

  • Usuários
  • 13822 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 26/09/2017, 06:05

Viagra Efectos Y Contraindicaciones Price For Cephalexin Cephalexin Used In Cats generic cialis Where Can I Get Digoxin

#8 LarPhozyHah

LarPhozyHah

    Super Veterano

  • Usuários
  • 14515 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 04/10/2017, 08:23

Buy Tuf 20 Softabs Cheap Priligy Istruzioni Canadian Pharmacy 24hr viagra Amoxicillin For Venereal Diseases
Come Ottenere Viagra Can You Get High Off Cephalexin Can I Get Cytotec At Walmart over seas orders for vardenafil Clomid Absence Ovulation

#9 HaroNism

HaroNism

    Super Veterano

  • Usuários
  • 13822 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 08/10/2017, 09:46

Commander Du Viagra En France viagra online prescription Can You Open Keflex Capsule
Roaccutane Commander Cheapest Cialis Dosage 20mg Price viagra Kamagra Discount Code Discount Worldwide Clobetasol Get Drugs Online Price
1145 Order Antibiotics Overnight viagra Accutane Pharacy Online Dose Of Amoxicillin For Tick Bite Buygenericlevitraonlineusa

#10 HaroNism

HaroNism

    Super Veterano

  • Usuários
  • 13822 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 03/11/2017, 22:59

Prezzo Viagra 100 Mg Levitra Cuanto Dura En El Cuerpo buy viagra Viagra Prescription Houston Kamagra 100mg Test
Flomax No Prescription Drug Levitra China Sale vivanza 20mg Mexico Viagra Online Buy Disulfiram Online Cialis Mexico

#11 HaroNism

HaroNism

    Super Veterano

  • Usuários
  • 13822 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 29/11/2017, 23:42

Propecia Espana Online Buy Viagra Online Off Pharmacy Prices realcheaplevitra Amoxicillin And Blood Pressure
Viagra Generico Originale online pharmacy Amoxil Junior




1 user(s) are reading this topic

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq