パスワードが表示か非表示かはフラグで管理し、ボタンを押すたびに
フラグのON/OFFを切り替えれば良いのでは。
(ついでに、過去にやった『パスワードを2バイト文字に置き換えて表示する方法』も
実装してみました)
a=""
input a,200,30 : id=stat : h=objinfo(id,2) //hは入力ボックスのハンドル
s="入力してください"
sdim s16,strlen(s)*2+2 : cnvstow s16,s //UTF-16に変換
sendmsg h,0x1501,1,varptr(s16) //EM_SETCUEBANNER=0x1501
objsize 200,30 : button gosub "切り替え",*toggle
chr="●" //パスワードの文字
if strlen(chr)<=1 : chr2=peek(chr,0) : else : chr2=peek(chr,0)<<8|peek(chr,1)
flag=1 //パスワードを隠すフラグ
gosub *toggle0
stop
*toggle
flag=(flag=0) //flagが1なら0に、0なら1にする
*toggle0
if flag {
sendmsg h,0x00CC,chr2,0 //EM_SETPASSWORDCHAR
} else {
sendmsg h,0x00CC,0,0
}
objprm id,a
return