Italian B4j TextField Password mode on off

Xfood

Expert
Licensed User
Buongiorno,
sto impazzendo per gestire la password visibile on / off
su un TextField B4j, in modalita designer posso mettere la spunta su password ed in effetti
quando lancio il programma mi va in modalita nascosta, con i pallini,
ma se da codice voglio vedere il valore , non trovo un modo per disabilitare passwordfield true, false
mi sono perso qualcosa?
chi mi aiuta?
Grazie


 

Gianni M

Well-Known Member
Licensed User
Longtime User
Puoi creare una custom view, oppure un textbox da visualizzare o nascondere all' occorrenza
 

Xfood

Expert
Licensed User
Puoi creare una custom view, oppure un textbox da visualizzare o nascondere all' occorrenza
ma in questo modo non posso poi scrivere in chiaro, e passare dalla modalita password alla modalita in chiaro, anche pre scrivere,
dovrei aggiornare contemporaneamente due textfiel, di cui uno nascosto da utilizzare per l'occorrenza...
strano che nn si possa disabilitare il passwordmode da codice, e riabilitarlo da codice, ma sono il designer mode...
 

TILogistic

Expert
Licensed User
Longtime User
?
see:

 
Last edited:

Xfood

Expert
Licensed User

ivanomonti

Expert
Licensed User
Longtime User
Ottimo grazie
vedo solo ora questo post ed era il mio problema, per banalitΓ  mi sono creato al momnto il mio campo password con 3 righe di codice


campo assword personalizzato:
Private Sub Button_PASSWORD_VISIBLE_Click
   
    If TextField_password.Text.IndexOf("😁") > -1 Then
        ' Mostra la password originale
        TextField_password.Text = TextField_password.Tag
    Else
        ' Salva la password originale nel Tag
        TextField_password.Tag = TextField_password.Text
       
        Dim emojis() As String = Array As String("😁","πŸ˜‚","🀣","πŸ˜…","😊","😎","🀐","πŸ™ƒ","πŸ˜‡","😜")
       
        Dim masked As String = ""
       
        For i = 0 To TextField_password.Text.Length - 1
            If i = 0 Then
                masked = "😁"
            Else
                masked = masked & emojis(Rnd(1, emojis.Length))
            End If
        Next
       
        TextField_password.Text = masked
       
    End If
End Sub

 
Cookies are required to use this site. You must accept them to continue using the site. Learn more…