|
XDlgAskPassword
(XDLGS32)
Deklaration
VB 6.0
Function XDlgAskPassword (ByVal Psw As String, ByVal MaxChars
As Integer, ByVal Tries As Integer) As Integer
Deklaration VB.NET
Function XDlgAskPassword (ByVal Psw As String, ByVal MaxChars
As Short, ByVal Tries As Short) As Integer
Beskrivning
Denna funktion öppnar upp en dialogruta där användaren kan skriva
in ett lösenord. De tecken som användaren skriver in visas som stjärnor
(" * "). Användaren kan skriva in ett felaktigt lösenord upp till
ett specificerat antal gånger, sedan stängs dialogrutan automatiskt.
En informationsruta talar om för användaren om lösenordet är fel.
Följande inparametrar används:
. |
| Psw |
Sträng som innehåller
korrekt lösenord. |
| MaxChars |
Maximalt antal tecken
som får skrivas in. |
| Tries |
Maximalt antal försök
innan dialogrutan stängs. |
| . |
Returvärden
Funktionen returnerar en av följande värden:
. |
|
Värde |
Beskrivning |
-1
1
2
3 |
Ett fel inträffade
Användaren skrev in korrekt lösenord
Användaren tryckte på Avbryt
Användaren skrev in felaktigt lösenord mer än Tries gånger |
|
. |
Se även
XDlgSetLanguage |
Exempel
Nedanstående exempel frågar användaren
efter ett lösenord. Användaren får tre försök på sig att skriva in rätt
lösenord, sedan stängs dialogrutan.
Const OK = 1
If XDlgAskPassword("SAMLOGIC", 16, 3) = OK Then
Label1 = "Lösenordet är korrekt!"
Else
Label1 = "Åtkomst nekad!"
End If
|
