投稿日 | : 2004/10/22(Fri) 01:35 |
投稿者 | : ヘイロー |
URL | : |
タイトル | : InputBoxでの文字入力を"*"で表示したい |
いつもお世話になっています。
ボタンをクリックしたら、パスワードを入力する画面を表示して、その入力値により
エラーメッセージを出したり、フォームを表示したりしたいと思っています。
現在は以下のようなプログラムを組んでいます。
Dim Psword as string
Psword = InputBox ("パスワードを入力してください。","パスワードの確認","")
if Psword = "" then
exit sub
elseif Psword ="パスワード" then
call 次期フォーム
elseif Psword <> "パスワード" then
MsgBox "パスワードが違います。"
exit sub
end if
のようにしていますが、パスワードを入力するとき、"*"で表示したいと思っています。
色々と探してみましたが表示する方法が見つかりませんでした。
表示する方法を知っている方がいらっしゃいましたら教えていいただけないでしょうか?
また、InputBoxではなく、他の関数なのでできる方法がありましたら教えてください。
(パスワード入力用のフォームの作成以外でお願いします。)
開発環境 VB6 SP6
WindowsXP