Esempio di pulsante

In questo esempio si sommano 2 numeri.
Mettere nel form questi controlli: un pulsante chiamato CmdCalcola e due textbox chiamate rispettivamente Txt1 e Txt2.

private sub cmdCalcola_click()

msgbox "Il risultato è "+cstr(txt1.text+txt2.text)

end sub

txt1.text è il testo che c'è all'interno della casella.
Proviamo ora a controllare il contenuto delle caselle e se vuoto avvertire l'utente.

private sub cmdCalcola_click()

if txt1.text<>"" and txt2.text<>"" then

msgbox "Il risultato è "+cstr(txt1.text+txt2.text)

else

msgbox "Non hai scritto niente!"

end if

end sub