30.04.2013 Views

1. Visual Basic - Curso completo teoria y practica

1. Visual Basic - Curso completo teoria y practica

1. Visual Basic - Curso completo teoria y practica

SHOW MORE
SHOW LESS

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

TextField1<br />

Nombre TxtN<br />

Id TxtN<br />

Value<br />

TextArea1<br />

Nombre TxtTabla<br />

Id TxtTabla<br />

Value<br />

En seguida haga doble click sobre el cuadro de texto TxtN<br />

e ingrese lo siguiente:<br />

Private Sub DHTMLPage_Load()<br />

Document.bgColor = “Yellow”<br />

Titulo.Style.Color = “Red”<br />

End Sub<br />

Private Sub Titulo_onmouseout()<br />

Titulo.Style.Color = “Red”<br />

End Sub<br />

Private Sub Titulo_onmouseover()<br />

Titulo.Style.Color = “Blue”<br />

End Sub<br />

Private Sub TxtN_onpropertychange()<br />

If IsNumeric(TxtN.Value) Then<br />

Dim N As Integer, I As Integer, S As String<br />

N = Val(TxtN.Value)<br />

For I = 0 To 12<br />

S = S & N & “ * ” & I & “ = ” & N * I & vbCrLf<br />

Next I<br />

Pág. 386

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!