miércoles, 23 de abril de 2014

Usando InputBox

' Gambas class file
'colocar un label en el formulario

Public Sub Form_Open()
Dim frase As String

frase = InputBox("Inserte contraseña", "Autentificación", "Ingrese contraseña aquí")
If frase = "gambas2345" Then
  Label1.Caption = "Bienvenido administrador"
Else
  Me.Close
Endif


End

No hay comentarios.:

Publicar un comentario

Related Posts Plugin for WordPress, Blogger...

Facebook

www.gambas-es.org

www.gambas-es.org
Si quieres que tu curva de aprendizaje sea rápida, regístrate en este gran foro en español.