Private Sub MyTextBox_TextChanged(ByVal sender As Object,ByVal e As EventArgs) Randomize() Dim musk As String Select Case 1+CInt(Rnd*2)'結果によって、マスクの文字数を変える Case 1 musk="*" Case 2 musk="**" Case 3 musk="***" Case Else musk="*" End Case MyTextBox.PasswordChar = musk End Sub
名無し 2017/12/24 (Sun) 11:26:48
とても分かりやすかったです。ありがとうございます!