【】Top

【】VB.NET
【】VB6.0

【】メールマガジンの購読
【】メールマガジンの解除






【】会社概要

【】お問い合わせ


姉妹サイト「バーチャルコネクション!」はこちらです。

姉妹サイト「七福神のメールでビンゴ!」はこちらです。

アイネットマコト

●24時間365日の安心をあなたにAT-LINK専用サーバ・サービスお勧めのサーバです。






英字を大文字や小文字に変換する

【注意書き】
●VB.NET を使っているものとします。
●動作環境は、Windows XX を使用しているとします。


.NET でも、英字を大文字や小文字に変換させることが可能です。

この機能を使えば、簡単に、
メールアドレスなど大文字と小文字の区別がない文字情報を
ユニークに取り扱いたい場合など大変便利です。


フォームに次の様なコードを記述します


-----------VB.NETコーディングここから-------------------


1.フォームに、テキストボックスコントロール、
    ボタンコントロール
    を配置します。
    下記は、デフォルトのオブジェクトの名前と配置を示しています。

   ┏━━━━━━━━━━━┓
   ┃TextBox1              ┃
   ┗━━━━━━━━━━━┛
   ┏━━━━┓┏━━━━┓┏━━━━┓
   ┃Button1 ┃┃Button2 ┃┃Button3 ┃
   ┗━━━━┛┗━━━━┛┗━━━━┛



2.ボタンコントロールの
    Button1 text プロパティに「大文字」と記述します。
    Button1 text プロパティに「小文字」と記述します。
    Button1 text プロパティに「タイトル」と記述します。

  ※説明用のためです。必須ではありません。

   ┏━━━━━━━━━━━┓
   ┃TextBox1              ┃
   ┗━━━━━━━━━━━┛
   ┏━━━━┓┏━━━━┓┏━━━━┓
   ┃大文字  ┃┃小文字  ┃┃タイトル┃
   ┗━━━━┛┗━━━━┛┗━━━━┛




3.ボタンコントロールをダブルクリックして、
    ボタンのクリックイベントの編集を開始して、
    フォームの宣言部に、次のコードを記述します。
    ※フォームクラス定義(Public Class Form1)より、
    上に記述してください。

    'インポート
    Imports System.Globalization


  さらに、次のコードを記述します。

    Private Sub Button1_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button1.Click

        Dim cultInfo As CultureInfo
        Dim txtInfo As TextInfo

        cultInfo = cultInfo.CurrentCulture
        txtInfo = cultInfo.TextInfo

        '大文字に変換する(テキストインフォの場合)
        TextBox1.Text = txtInfo.ToUpper(TextBox1.Text)

        '大文字に変換する(Stringオブジェクトの場合)
        'TextBox1.Text = TextBox1.Text.ToString.ToUpper


    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button2.Click

        Dim cultInfo As CultureInfo
        Dim txtInfo As TextInfo

        cultInfo = cultInfo.CurrentCulture
        txtInfo = cultInfo.TextInfo


        '小文字に変換する(テキストインフォの場合)
        TextBox1.Text = txtInfo.ToLower(TextBox1.Text)

        '小文字に変換する(Stringオブジェクトの場合)
        'TextBox1.Text = TextBox1.Text.ToString.ToLower

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button3.Click


        Dim cultInfo As CultureInfo
        Dim txtInfo As TextInfo

        cultInfo = cultInfo.CurrentCulture
        txtInfo = cultInfo.TextInfo

        '一旦小文字に変換
        TextBox1.Text = txtInfo.ToLower(TextBox1.Text)

        'タイトル文字に変換する(テキストインフォの場合)
        TextBox1.Text = txtInfo.ToTitleCase(TextBox1.Text)


    End Sub


4.ビルドして実行します。

5.フォームに表示された
    テキストボックスに半角英字で
   「 TextBox1 」と入力します。

6.フォームに表示された
    ボタン「大文字」を押します。

7.テキストボックス(TextBox1)に
    「 TEXTBOX1  」と表示されます

8.フォームに表示された
    ボタン「小文字」を押します。

9.テキストボックス(TextBox1)に
    「 textbox1  」と表示されます

10.フォームに表示された
    ボタン「タイトル」を押します。

11.テキストボックス(TextBox1)に
    「 Textbox1  」と表示されます




-----------VB.NETコーディングここまで-------------------

TextInfo クラス(System.Globalization名前空間)を使用して、
カルチャ情報を通じて、文字変換を行っています。

また、本サンプルでは使用しておりませんが、
Stringオブジェクト

        '大文字に変換する(Stringオブジェクトの場合)
        'TextBox1.Text = TextBox1.Text.ToString.ToUpper

        '小文字に変換する(Stringオブジェクトの場合)
        'TextBox1.Text = TextBox1.Text.ToString.ToLower

のコードでも 大文字小文字の変換は可能です。




 

http://anetm.com/dev/d.cgi?SC=DTDTL&o=Om7

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

「これがほしかった!厳選サンプルツール集」の注意点
●当サイトはリンクフリーです。
2018/12/15(土)00:05 更新