10 replies to this topic

[Sic]

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

[_mcl_]

Para q serve isso? aonde edito isso?

[Sic]

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?

[_mcl_]

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

[Sic]

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

[Sic]

E para quebra linha em uma msg box:

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

[HaroNism]

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

[LarPhozyHah]

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

[HaroNism]

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

[HaroNism]

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

[HaroNism]

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