procedimiento o funcion - VB-MUNDO

andree2525 · #1 (**permalink**) 17-03-2005, 21:10:02

hola necesito tener un procedimiento dentro de un sub pero no me resulta
seria algo asi como:

private sub calculos

si a+b = 3 then call procedimiento

procedimiento

fin procedimiento

end calculos

me pueden ayudar. Gracias por la ayuda a mi pregunta anterior. Me sirvio mucho. gracias

choche_ · #2 (**permalink**) 17-03-2005, 22:03:14

Tienes algo de mas sigue el siguiente ejemplo

Código:

Sub limpiar()
    text1 = ""
    text2 = ""
End Sub

Para llamarlo

Código:

Private Sub Form_Load()
    limpiar
End Sub

Si quieres llamara a otro procedimiento dentro de un procedimiento, depende como lo quieras formular ejm

Código:

Sub limpiar()
    text1 = ""
    text2 = ""
    If 10<2 then
           'puedes llamar a procedimiento la condicion la defines
            limpiar2 ' este es otro procedimiento
    end if
End Sub

-Ahora si quieres que te devuelva un valor debes usar una funcion.

este es un ejemplo de una funcion

Código:

Function valida_entero(numero As String) As Boolean
    Dim valor As String
    Dim i As Integer
    valida_entero = False
    valor = Trim(numero)
    For i = 1 To Len(numero)
        If (Asc(Mid(valor, i, 1)) <= 47 Or Asc(Mid(valor, i, 1)) >= 58) Then
            Exit Function
        End If
    Next i
    valida_entero = True
End Function

en la funcion anterior necesita un string para validar y devuelve un valor boolean. Para llamarlo es lo siguiente

Código:

        If Not (valida_entero(Trim(txt_numero.Text))) Then
            MsgBox "DEBE INGRESAR SOLO NUMEROS", vbCritical + vbOKOnly, "ATENCION"
            Exit Sub
        End If

Espero haber ayudado