tipo password en un inputbox

[GABRIL]

una mano:
deseo saber como hacerle para que los datos que introduzca en un inputbox, aparezcan tipo password, es decir, cada escriba una letra o simbolo, aparezca el *, repito, en un inputbox.

hasta ahora tengo esto:

contra = InputBox("Introduce la CONTRASEÑA de administrador", "Atención")

gracias de antemano-..
saludos..

[Avellaneda]

Iniciado por GABRIL

una mano:
deseo saber como hacerle para que los datos que introduzca en un inputbox, aparezcan tipo password, es decir, cada escriba una letra o simbolo, aparezca el *, repito, en un inputbox.

hasta ahora tengo esto:

contra = InputBox("Introduce la CONTRASEÑA de administrador", "Atención")

gracias de antemano-..
saludos..

No, no se puede.

La función InputBox no tiene ningún parámetro para indicarle el tipo de letra y al no ser un control, tampoco tiene eventos, pero es de lo mas sencillo crearte tu propio "InputBox" con un formulario que lo simule.

[Kruzado]

yo encontre este cdigo por internet y funciona super bien, te lo mand :

aber el inputbox y reemplaza los caracteres ingresados con asterisco

Call inputbox_Password(Comanda, "*") Comanda es el nombre del formulario (ejemplo form1)
Password = InputBox(" Ingrese el Password ", App.Title)


abre un modulo y declara las siguientes funciones

' Declaraciones del Api
Private Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, _
ByVal nIDEvent As Long) As Long

Private Declare Function SendMessageLongRef Lib "user32" _
Alias "SendMessageA" ( _
ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
ByRef lParam As Long) As Long

Private Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long

Private Declare Function FindWindowEx Lib "user32" _
Alias "FindWindowExA" ( _
ByVal hWnd1 As Long, _
ByVal hWnd2 As Long, _
ByVal lpsz1 As String, _
ByVal lpsz2 As String) As Long

Private Declare Function SetTimer Lib "user32" ( _
ByVal hwnd As Long, _
ByVal nIDEvent As Long, _
ByVal uElapse As Long, _
ByVal lpTimerFunc As Long) As Long


Private m_ASC As Long


Sub inputbox_Password(El_Form As Form, Caracter As String)

m_ASC = Asc(Caracter)

Call SetTimer(El_Form.hwnd, &H5000&, 100, AddressOf TimerProc)

End Sub


Private Sub TimerProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal idEvent As Long, _
ByVal dwTime As Long)

Dim Handle_InputBox As Long

'Captura el handle del textBox del InputBox
Handle_InputBox = FindWindowEx(FindWindow("#32770", App.Title), 0, "Edit", "")

'Le establece el PasswordChar
Call SendMessageLongRef(Handle_InputBox, &HCC&, m_ASC, 0)
'Finaliza el Timer
Call KillTimer(hwnd, idEvent)

End Sub


ya, pruebalo y nos comentas, deja buscar la pagina donde lo encontre y te posteo el enlace

[GABRIL]

ya no lo pude probar, de ultima hora use un text, y pues ahi es mas facil,...pero gracias por los comentarios.
saludos..