此示例演示如何使用简单的对话框向用户请求密码。 注意:磁贴的属性仅在 Windows 上受支持。password_charedit_box
下面定义一个名为的对话框,其中包含两个磁贴:用户在其中输入密码的磁贴和磁贴。它使用 DCL 属性来屏蔽用户输入的文本:passdlgedit_boxok_cancelpassword_char // GETPASS.DCL // passdlg : dialog { label = "Password Protected"; : edit_box { label = "Password:"; edit_width = 20; key = "password"; password_char = "?"; } ok_cancel; } 下面定义了一个名为的函数。此函数加载getpass.dcl文件并显示对话框。当用户在编辑框中输入文本时,它将被 DCL 文件中定义的字符遮盖。分配给编辑框的操作可确保用户输入的字符设置为变量:GETPASSpassdlgpassword_charpass ;; GETPASS.LSP ;; (defun GETPASS ( / dcl_id pass ) (setq dcl_id (load_dialog "getpass.dcl")) (if (new_dialog "passdlg" dcl_id) (progn (action_tile "password" "(setq pass $value)") (start_dialog) (unload_dialog dcl_id) ) (princ "Error: Unable to load GETPASS.DCL. ") ) pass ) 该函数返回用户输入的字符串。GETPASS |
|Archiver|CAD开发者社区 ( 苏ICP备2022047690号-1 )
GMT+8, 2024-6-10 19:18
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.