Macros Ajustables para sus Proyectos

Patrocinada por: https://www.jfksoft.net

Tres sencillas macros en un formulario que contiene un control multipage y varios controles de texto y botón de comando.  Aquí se ejemplifica la  validación y entrada a sus propios proyectos.  VEASE CODIGO FUENTE ABAJO.


Private Sub btnPrincipal_Click()
MsgBox «Coloque aquí; las instrucciones de Entrada a su Proyecto», vbCritical, «Aviso!»
End Sub
Private Sub btnValidar_Click()
If txtUsuario.Text = «Peter» Then
If txtClave.Text = «12345» Then
MultiPage1.Pages(1).Enabled = True
MultiPage1.Value = 1
Else
MsgBox «Clave no Válida», vbCritical, «Aviso!»
txtClave.SetFocus
End If
Else
MsgBox «Usuario no Existe», vbCritical, «Aviso!»
txtUsuario.SetFocus
End If
End Sub
Private Sub UserForm_Initialize()
txtNota.Text = «GUIA PASO A PASO» & vbNewLine & _
«Siga las Instrucciones Paso a Paso» & vbNewLine & _
«Abra la Plantilla» & vbNewLine & _
vbNewLine & _
«Desarrollado por JFKSOFT» & vbNewLine & _
«Más Información:» & vbNewLine & _
«www.jfksoft.com»
MultiPage1.Value = 0
End Sub

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *