入力した文字を回転させる .NET でも、入力した文字を回転させることが可能です。この機能を使えば、簡単に、文字列の回転イメージ機能のあるアプリケーションや、ガタガタと震える文字など簡単に作成できます。フォームに次の様なコードを記述します-----------VB.NETコーディングここから-------------------１．フォームに、テキストボックスコントロール、 ボタンコントロール、 ピクチャボックスコントロールを配置します。 下記は、デフォルトのオブジェクトの名前と配置を示しています。 ┏━━━━━━━━━━━━━━┓┏━━━━┓ ┃TextBox1 ┃┃Button1 ┃ ┗━━━━━━━━━━━━━━┛┗━━━━┛ ┏━━━━━━━━━━━━━━━━━━━━┓ ┃PictureBox1 ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┗━━━━━━━━━━━━━━━━━━━━┛２．ボタンコントロールの Button1 text プロパティに「描画」と記述します。 ※説明用のためです。必須ではありません。 ┏━━━━━━━━━━━━━━┓┏━━━━┓ ┃TextBox1 ┃┃描画 ┃ ┗━━━━━━━━━━━━━━┛┗━━━━┛ ┏━━━━━━━━━━━━━━━━━━━━┓ ┃PictureBox1 ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┗━━━━━━━━━━━━━━━━━━━━┛３．ボタンコントロールをダブルクリックして、 ボタンのクリックイベントの編集を開始して、 次のコードを記述します。 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４．ビルドして実行します。５．フォームに表示された テキストボックスに、「回転してます」と入力します。６．フォームに表示された 「描画」ボタンを押すと、入力した文字「回転してます」が 回転しながら描画されます。-----------VB.NETコーディングここまで-------------------上記をカスタマイズして、回転する角度のステップを縮めたり、色を変えたりする事が簡単に可能です。また、ピクチャーボックスで入力イメージを振動させながら、テキスト入力させるといった演出効果も可能ですねっ。
Copyright(c)2001-2004 Ai Net Makoto 記事・情報の無断転載を禁止します。
