Hola ya busco en google, vi que puede ser por muchos motivos el error, mi programa inicia con un pantallita donde pide el usuario y la contraseña, como ya esta .exe no me marca el error exactamente en una linea, si no que me manda la pantalla de ellos y es todo no me deja avanzar mas... No me pide nisiquiera el usuario y ni la contraseña, osea no alcanzo a ver nada...
Aqui les mando el codigo de esta pantalla:
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpbuffer As String, nSize As Long) As Long
Public OK As Boolean
Private Sub Form_Load()
Dim sBuffer As String
Dim lSize As Long
sBuffer = Space$(255)
lSize = Len(sBuffer)
Call GetUserName(sBuffer, lSize)
If lSize > 0 Then
txtUserName.Text = Left$(sBuffer, lSize)
Else
txtUserName.Text = vbNullString
End If
End Sub
Private Sub cmdCancel_Click()
OK = False
Me.Hide
End Sub
Private Sub cmdOK_Click()
'Pendiente: crear comprobación de contraseña
'comprobar si la contraseña es correcta
If txtPassword.Text = "" Then
OK = True
Form1.Show
frmLogin.Hide
Else
MsgBox "La contraseña no es válida; vuelva a intentarlo", , "Inicio de sesión"
txtPassword.SetFocus
txtPassword.SelStart = 0
txtPassword.SelLength = Len(txtPassword.Text)
End If
End Sub
Gracias
Autor
En línea
