|
同じ文字を繰り返しセットする
|
|
|
.NET (VB)の内容
|
【注意書き】
●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”は無視されます。
|
http://anetm.com/dev/d.cgi?SC=DTDTL&o=l3O
Copyright(c)2001-2006 Ai Net Makoto 記事・情報の無断転載を禁止します。
|