同じ文字を繰り返しセットする 【注意書き】●VB.NET を使っているものとします。●動作環境は、Windows XX を使用しているとします。.NET でも、同じ文字を繰り返しセットすることが可能です。この機能を使えば、簡単に、文字列の中で特定の文字を伏せ文字に置換したい場合などに活用できます。フォームに次の様なコードを記述します-----------VB.NETコーディングここから-------------------１．フォームに、ラベルコントロール 、テキストボックスコントロール 、ボタンコントロール を配置します。 下記は、デフォルトのオブジェクトの名前と配置を示しています。 ┏━━━━━━━━┓┏━━━━━━━━━━━━━━━━┓ ┃Label1 ┃┃TextBox1 ┃ ┗━━━━━━━━┛┗━━━━━━━━━━━━━━━━┛ ┏━━━━━━━━┓┏━━━━━━━━━━━━━━━━┓ ┃Label2 ┃┃TextBox2 ┃ ┗━━━━━━━━┛┗━━━━━━━━━━━━━━━━┛ ┏━━━━━━━━┓ ┃Button1 ┃ ┗━━━━━━━━┛ ┏━━━━━━━━┓┏━━━━━━━━━━━━━━━━┓ ┃Label3 ┃┃TextBox3 ┃ ┗━━━━━━━━┛┗━━━━━━━━━━━━━━━━┛２．ボタンコントロールの Button1 text プロパティに「作成」と記述します。 ラベルコントロールの Label1 text プロパティに「繰り返す回数」と記述します。 Label2 text プロパティに「繰り返す文字」と記述します。 Label3 text プロパティに「作成された文字列」と記述します。 ※説明用のためです。必須ではありません。 ┏━━━━━━━━┓┏━━━━━━━━━━━━━━━━┓ ┃繰り返す回数 ┃┃TextBox1 ┃ ┗━━━━━━━━┛┗━━━━━━━━━━━━━━━━┛ ┏━━━━━━━━┓┏━━━━━━━━━━━━━━━━┓ ┃繰り返す文字 ┃┃TextBox2 ┃ ┗━━━━━━━━┛┗━━━━━━━━━━━━━━━━┛ ┏━━━━━━━━┓ ┃ 作 成 ┃ ┗━━━━━━━━┛ ┏━━━━━━━━┓┏━━━━━━━━━━━━━━━━┓ ┃作成された文字列┃┃TextBox3 ┃ ┗━━━━━━━━┛┗━━━━━━━━━━━━━━━━┛３．ボタンコントロールをダブルクリックして、 ボタンのクリックイベントの編集を開始して、 次のコードを記述します。 Private Sub Form1_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load '繰り返す回数 TextBox1.Text = "3" '繰り返す文字 TextBox2.Text = "x" TextBox3.Text = "" End Sub Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click '繰り返された文字をセット TextBox3.Text = _ StrDup(CInt(TextBox1.Text), TextBox2.Text) End Sub４．ビルドして実行します。５．繰り返す回数に、”3”を入力します。６．繰り返す文字に、”x”を入力します。７．フォームに表示された「作成」ボタンを押します。８．作成された文字に”xxx”が表示されることを確認できます。-----------VB.NETコーディングここまで-------------------本サンプルでは、フォームロード時に、”繰り返す回数”と”繰り返す文字”をデフォルトであらかじめセットしています。繰り返す文字の指定が、２文字以上の文字列ときは、最初の一文字目が繰り返される文字として、適用されます。例えば、”繰り返す文字”に、”xyz”と指定した場合は、”xyz”の最初の一文字目である”x”が繰り返される文字として扱われ、後続の”yz”は無視されます。
Copyright(c)2001-2004 Ai Net Makoto 記事・情報の無断転載を禁止します。
