【】Top

【】VB.NET
【】VB6.0

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






【】会社概要

【】お問い合わせ


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

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

アイネットマコト

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






入力した文字を回転させる

.NET でも、入力した文字を回転させることが可能です。

この機能を使えば、簡単に、
文字列の回転イメージ機能のあるアプリケーションや、
ガタガタと震える文字など簡単に作成できます。


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


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


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

    ┏━━━━━━━━━━━━━━┓┏━━━━┓
    ┃TextBox1                    ┃┃Button1 ┃
    ┗━━━━━━━━━━━━━━┛┗━━━━┛
    ┏━━━━━━━━━━━━━━━━━━━━┓
    ┃PictureBox1                             ┃
    ┃                                        ┃
    ┃                                        ┃
    ┃                                        ┃
    ┃                                        ┃
    ┃                                        ┃
    ┃                                        ┃
    ┃                                        ┃
    ┃                                        ┃
    ┗━━━━━━━━━━━━━━━━━━━━┛


2.ボタンコントロールの
    Button1 text プロパティに「描画」と記述します。
  ※説明用のためです。必須ではありません。

    ┏━━━━━━━━━━━━━━┓┏━━━━┓
    ┃TextBox1                    ┃┃描画    ┃
    ┗━━━━━━━━━━━━━━┛┗━━━━┛
    ┏━━━━━━━━━━━━━━━━━━━━┓
    ┃PictureBox1                             ┃
    ┃                                        ┃
    ┃                                        ┃
    ┃                                        ┃
    ┃                                        ┃
    ┃                                        ┃
    ┃                                        ┃
    ┃                                        ┃
    ┃                                        ┃
    ┗━━━━━━━━━━━━━━━━━━━━┛


3.ボタンコントロールをダブルクリックして、
    ボタンのクリックイベントの編集を開始して、
  次のコードを記述します。

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


        Dim Gr As Graphics          'グラフィックオブジェクト
        Dim sglGrangle As Single    'アングル(角度)

        '描画先のピクチャーボックスに、
        'グラフィックオブジェクトを作成()
        With PictureBox1
            .Image = New Bitmap(.Width, .Height)
            Gr = Graphics.FromImage(.Image)

        End With

        'アングルを初期化
        sglGrangle = 0

        'テキストボックスに入力した文字列を
        'ピクチャーボックスに回転しながら描画します
        Do
            With Gr

                '変換マトリックスを初期化
                .ResetTransform()

                'ピクチャーボックスの中心が始点
                .TranslateTransform( _
                PictureBox1.Width \ 2, _
                PictureBox1.Height \ 2)

                '回転の角度
                .RotateTransform(sglGrangle)

                '実際に描画します
                .DrawString(TextBox1.Text, _
                Me.Font, Brushes.Blue, 10, 0)



            End With


            '回転角度のステップ
            sglGrangle = sglGrangle + 20
            '360度を越える場合は、処理を抜けます
            If sglGrangle > 360 Then Exit Do

        Loop

    End Sub



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

5.フォームに表示された
    テキストボックスに、「回転してます」と入力します。

6.フォームに表示された
    「描画」ボタンを押すと、入力した文字「回転してます」が
    回転しながら描画されます。



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


上記をカスタマイズして、回転する角度のステップを縮めたり、
色を変えたりする事が簡単に可能です。
また、ピクチャーボックスで入力イメージを振動させながら、
テキスト入力させるといった演出効果も可能ですねっ。




 

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

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

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