---

書式変換して入力値を整形する

【注意書き】 ●VB.NET を使っているものとします。 ●動作環境は、Windows XX を使用しているとします。 .NET でも、書式変換して入力値を整形させることが可能です。 この機能を使えば、簡単に、桁合わせされた 表形式の簡易表示や、リスト表示を行うアプリケーション など簡単に作成できます。 フォームに次の様なコードを記述します -----------VB.NETコーディングここから------------------- １．フォームに、テキストボックスコントロール、     コンボボックスコントロール、     ボタンコントロール     を配置します。     下記は、デフォルトのオブジェクトの名前と配置を示しています。    ┏━━━━━━━━━━━┓    ┃TextBox1              ┃    ┗━━━━━━━━━━━┛    ┏━━━━━━━━━━━━━━━━━━━━━━━━┓    ┃Combobox1                                     ▼┃    ┗━━━━━━━━━━━━━━━━━━━━━━━━┛    ┏━━━━┓    ┃Button1 ┃    ┗━━━━┛ ２．ボタンコントロールの     Button1 text プロパティに「変換」と記述します。 　　※説明用のためです。必須ではありません。    ┏━━━━━━━━━━━┓    ┃TextBox1              ┃    ┗━━━━━━━━━━━┛    ┏━━━━━━━━━━━━━━━━━━━━━━━━┓    ┃Combobox1                                     ▼┃    ┗━━━━━━━━━━━━━━━━━━━━━━━━┛    ┏━━━━┓    ┃変換    ┃    ┗━━━━┛ ３．フォームをダブルクリックして、     フォームロードイベントのコード編集を開始して、     次のコードを記述します。     Private Sub Form1_Load(ByVal sender As System.Object, _     ByVal e As System.EventArgs) Handles MyBase.Load         ComboBox1.Width = 200         ComboBox1.Items.Add("０で埋める８桁の数値")         ComboBox1.Items.Add("空白で埋める８桁の数値")         ComboBox1.Items.Add("カンマ区切り８桁の数値")         ComboBox1.Items.Add("小数点以下２方固定１０桁の数値")         ComboBox1.SelectedIndex = 0     End Sub     Private Sub Button1_Click(ByVal sender As System.Object, _     ByVal e As System.EventArgs) Handles Button1.Click         Dim intSel As Integer         If Not IsNumeric(TextBox1.Text) Then             MsgBox("半角数字で入力してください")             Exit Sub         End If         intSel = ComboBox1.SelectedIndex         Select Case intSel             Case 0                 '０で埋める８桁の数値                 TextBox1.Text = String.Format("{0:00000000}", _                 CLng(TextBox1.Text))             Case 1                 '空白で埋める８桁の数値                 TextBox1.Text = String.Format("{0,8}", _                 CLng(TextBox1.Text))             Case 2                 'カンマ区切り８桁の数値                 TextBox1.Text = String.Format("{0:##,###,###}", _                 CLng(TextBox1.Text))             Case 3                 '小数点以下２方固定１０桁の数値                 TextBox1.Text = String.Format("{0:##,###,###.00}", _                 CLng(TextBox1.Text))         End Select     End Sub ４．ビルドして実行します。 ５．テキストボックスに半角で「 123400 」を入れます。 ６．フォームに表示された 　　ドロップダウンで「０で埋める８桁の数値」を選択します。 ７．フォームに表示された     ボタン「変換」を押します。 ８．テキストボックスの入力値が「 00123400 」と 　　先頭に０づめで８桁の数値で表示されます。 ９．フォームに表示された 　　ドロップダウンで「空白で埋める８桁の数値」を選択します。 １０．フォームに表示された     ボタン「変換」を押します。 １１．テキストボックスの入力値が「 __123400 」と 　　先頭に０づめで８桁の数値で表示されます。          ※説明用のため上記表示は空白を _ で表しています。 １２．フォームに表示された 　　ドロップダウンで「カンマ区切り８桁の数値」を選択します。 １３．フォームに表示された     ボタン「変換」を押します。 １４．テキストボックスの入力値が「 123,400 」と 　　先頭に０づめで８桁の数値で表示されます。 １５．フォームに表示された 　　ドロップダウンで「小数点以下２方固定１０桁の数値」を選択します。 １６．フォームに表示された     ボタン「変換」を押します。 １７．テキストボックスの入力値が「 123,400.00 」と 　　先頭に０づめで８桁の数値で表示されます。 -----------VB.NETコーディングここまで------------------- 本サンプルでは、数値を桁あわせの目的で ０づめしたり、空白で埋めたりしています。 ドロップダウンで選択されている書式にしたがって テキストボックスに入力されている数値を整形します

---

---

　

Copyright(c)2001-2004 Ai Net Makoto 記事・情報の無断転載を禁止します。