20/11/2003, 04:13
|
| | | Fecha de Ingreso: noviembre-2003
Mensajes: 9
Antigüedad: 21 años, 3 meses Puntos: 0 | |
| por qué no haces una función, y la llamas en los botones que la necesites?. Como parámetro le pasas el valor que quieras validar, y listo. Yo hice esta , por ejemplo, para validar la extensión de un archivo. Suerte!!!
Private Function ComprobarExtensionML(extension As String) As Boolean
If Trim$(Right$(comExaminar.FileName, 3)) <> "xml" Then
ComprobarExtensionML = False
Else
ComprobarExtensionML = True
End If
End Function |