[366.xls]



' [mjSumple] のコード
'■■ テキストボックスに入力された文字の代わりに表示する文字を指定する ■■
'
'

'フォームを表示します
Sub frmSumple_Show()
       
    frmSumple.txtInput1.PasswordChar = "*" '入力文字の代わりに * を表示
    frmSumple.txtInput2.PasswordChar = "?" '入力文字の代わりに * を表示
    frmSumple.txtInput3.PasswordChar = "X" '入力文字の代わりに * を表示
    
    'フォームの表示
    frmSumple.Show
End Sub