SetPasswordChar

Синтаксис

Sub SetPasswordChar(ByVal gadget As Long, ByVal CharCode As UBYTE=0)

Описание

Устанавливает одинаковый символ при вводе для всех клавиш. Используется для ввода паролей.

Параметры

gadget - номер гаджета

CharCode - код символа Ascii (можно посмотреть ЗДЕСЬ )

Платформы

Windows

Пример

#Include "window9.bi"
Dim As integer event
Var hwnd=OpenWindow("1",300,10,500,500)
EditorGadget(1,10,10,300,300, "")
SetPasswordChar(1,4)
Do
  event=WaitEvent()
  If event=EventClose Then End
Loop

Результат

Created with the Personal Edition of HelpNDoc: Easily create Web Help sites