在对话框的文本栏里输入，怎样让它实时显示为“ * ” ？

xazhji

就好像我们在任何windows环境下，输入密码时的情况一样，我想用lisp来解决，不知道能不能实现？

e2002

lisp不能直接做到,
可能的方法是:
1. 使用DOSLib,有输入密码的函数
2. 使用ActiveX方法,调用API或别的对象库中的输入密码的函数

meflying

在设计对话框时，编辑控件的属性中加：
password_char = "*";
如下：
password:dialog{
: edit_box {
        label = "输入密码(&E):";
        key = "pass";
        password_char = "*";
        fixed_width = true;
        width = 10;
}
}

xazhji

妙！妙！妙！非常感谢！对话框很成功！

kanone

不错好东西

谢谢了

didini

由属性的，可是，作什么用呢？

diablo_xie

(defun test( pw / m_pw pa)
  (setq m_pw "")
  (princ "\nEnter password: ")
  (while (/= (setq pa (cadr(grread nil 2 2))) 13)
    (setq m_pw (strcat m_pw (chr pa)))
    (princ "*")
  )
(if (/= pw m_pw)
  (progn
  (alert "\n密码错误<退出:>")
  (exit)
  )
)
)
;举例 (test "12345")