Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

Untitled

By: a guest on Apr 26th, 2012  |  syntax: VisualBasic  |  size: 0.44 KB  |  hits: 17  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
This paste has a previous version, view the difference. Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. Private Sub Sumar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Sumar.Click
  2.         If (IsNumeric(TextBox1.Text) And IsNumeric(TextBox2.Text)) Then
  3.             TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
  4.         Else
  5.             MsgBox("Dato no Válido, sólo acepta números", 48, "Advertencia")
  6.             TextBox1.Text = ""
  7.             TextBox2.Text = ""
  8.             TextBox3.Text = ""
  9.  
  10.         End If
create a new version of this paste RAW Paste Data