una función

24/04/2006 - 17:41 por Minnie | Informe spam
Alguien me puede decir por favor qué significa éste código?
la función la llamo valida(Me, Opt)´, esta función está dentro de una dll
Public Function valida(ByRef pantalla As Form, ByVal opcion As String) As
Boolean
Dim x As Integer
For x = 0 To Perfiles.Length - 1
If IsNothing(Perfiles(x)) Then
Exit For
End If
If Not IsDBNull(Perfiles(x)(opcion)) Then
If pantalla.Name.ToUpper =
UCase(Trim(Perfiles(x)("cve_pant"))) And Trim(Perfiles(x)(opcion)) = "1" Then
Return True
Exit Function
End If
End If
Next
Return False
End Function

Gracias
conociendo más de vb
 

Leer las respuestas

#1 Eduardo A. Morcillo [MS MVP VB]
24/04/2006 - 19:33 | Informe spam
Alguien me puede decir por favor qué significa éste código?



Aparentemente es un codigo para verificar si un usuario tiene o no acceso a
un formulario segun su perfil de usuario.

Eduardo A. Morcillo [MS MVP VB]
http://www.mvps.org/emorcillo
http://mvp.support.microsoft.com/pr...4EF5A4191C

Preguntas similares