Haz una pregunta
  Foros de Electrónica » Diseño digital » Interfaces y Programación
Foros Registrarse ¿Olvidaste tu contraseña?

Temas similares

20/11/2015 #1


Solicitar nombre de usuario en Visual Basic 6
Buenas tardes, compañeros.
Estoy aprendiendo programación en Visual Basic 6, tengo una duda y espero me puedan ayudar.

  • Al ingresar a mi aplicación se solicitará el nombre del Usuario.
  • Si el usuario es "José" se mostrará el formulario, caso contrario se enviará mensaje de error y se cerrará el sistema.

El código que he puesto es el siguiente, pero no sé cómo poner para que me deniegue el acceso si no escribo "José"

Código:
Private Sub Form_Load()
x = InputBox("USUARIO", "INGRESO DE DATOS")
     LblUsuario.Caption = x
End Sub


Gracias por su paciencia, compañeros.
20/11/2015 #2

Avatar de papirrin

Puede ser así:

Código:
Private Sub Form_Load()
if uppercase( InputBox("USUARIO", "INGRESO DE DATOS"))<>"JOSE" then 
 msgbox "Password invalido"
 app.end
end if
End Sub


Hace mucho que no programo en Visual Basic 6.0, pero eso te puede servir como referencia.

El MsgBox tiene opción de aceptar y cancelar, pero no recuerdo cómo se pone.
Consulta el MSDN de Microsoft.
20/11/2015 #3
Moderador

Avatar de D@rkbytes

Ésta es otra forma de hacerlo, pero dando al usuario 3 intentos para ingresar el nombre correcto:
Código PHP:
Private Sub Form_Load()
    
Dim Contador As Byte
    
    Contador 
0
    
    
Do
        
Contador Contador 1
        
If Contador 3 Then
            MsgBox 
"Se han superado los 3 intentos." vbCrLf _
            
"El programa se cerrará."vbExclamation"Nombre de usuario, incorrecto."
            
End
        End 
If
            
        If 
UCase(InputBox("Nombre de usuario:""Ingreso de datos")) <> "JOSE" Then
            MsgBox 
"El nombre de usuario que ha ingresado,es inválido."vbInformation_
            
"Nombre de usuario, incorrecto."
        
Else
            Exit Do
        
End If
    
Loop
End Sub 
20/11/2015 #4


muchas gracias por las respuestas, que me han ayudado mucho

tengo otra duda.

1.-he creado un label1.(en donde quiero que aparezca "JOSE", que es el nombre de usuario correco)

seria algo asi?
label1.caption = ???
20/11/2015 #5

Avatar de papirrin

label1.caption = ???
si, label1.caption="JOSE"
24/11/2015 #6


compañeros una consulta:

he creado un textbox y quiero un nombre (por ejemplo: con máximo de 16 letras) y que al salir de la casilla de ese textbox ( el nombre se muestre en mayúsculas automáticamente)

gracias
24/11/2015 #7
Moderador

Avatar de D@rkbytes

Eso se puede hacer en el evento "LostFocus" del control TextBox

Por ejemplo:
Código:
Private Sub Text1_LostFocus()
    Text1.Text = UCase(Text1.Text)
End Sub
Y para que sólo acepte 16 letras, se usa la propiedad "MaxLength"
Respuesta
¿Tienes una mejor respuesta a este tema? ¿Quieres hacerle una pregunta a nuestra comunidad y sus expertos? Registrate

Buscar más temas sobre:
Lupa Interfaces y Programación

Lenguajes de programación, gestión y manejo de puertos

Cerrar
Foros de Electrónica » Diseño digital » Interfaces y Programación

Powered by vBulletin® Version 3.8.4
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Search Engine Optimization by vBSEO ©2011, Crawlability, Inc.