No procesa el codigo de una Funcion
Publicado por gerson (1 intervención) el 12/01/2018 21:24:27
=====================Form1=============================
=====================Form2=============================
=====================Form3=============================
1
2
3
4
5
6
7
8
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
End Class
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public Function averiguoTipoDeDato() As String
Dim valor As String
valor = Trim(TextBox1.Text)
If valor = “” ThenaveriguoTipoDeDato = “El TextBox no contiene información.”
Exit Function
End If
If valor <> “” Then
averiguoTipoDeDato = “El TextBox contiene esto: “ & valor
Exit Function
End If
averiguoTipoDeDato = “No fue procesada ninguna de las opciones.”
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
MsgBox(HayValorIngresado)
End Sub
End Function
1
2
3
4
5
6
7
8
9
10
11
Public Function TotalDeSuma(ByVal tUno As Single, ByVal tDos As Single)
As Double
If IsNumeric(tUno) And IsNumeric(tDos) Then
TotalDeSuma = tUno + tDos
Exit Function
End If
TotalDeSuma = 0Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
MsgBox(TotalDeSuma(TextBox1.Text, TextBox2.Text))
End Sub
Valora esta pregunta
0