ひろひろの生活日記(LIFE Of HIROHIRO)

パソコン講習とソフト開発をしています。自作小説も掲載しています。ネット情報発信基地(上野博隆)Hirotaka Ueno

文字表示のテストしてみました。

2007年11月18日 21時46分37秒 | ひろひろシステム


次のPGMでフォームをクリックすると文字を表示します。

Imports System.Drawing.Drawing2D
Public Class Form1


Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown


Dim textSize As SizeF
Dim g As Graphics

Dim myFont As New Font("MS ゴシック", 30, FontStyle.Regular)

' ピクチャ ボックスからグラフィックス オブジェクトを作成し、それを消去します。
g = PictureBox1.CreateGraphics()
g.Clear(Color.White)

' サンプル テキストの描画に必要なサイズを見つけます。
textSize = g.MeasureString("ABCDEFG", myFont)


g.DrawString("ABCDEFG", myFont, Brushes.Brown, _
0, 0)
End Sub
End Class
コメント
  • X
  • Facebookでシェアする
  • はてなブックマークに追加する
  • LINEでシェアする