FORM上に文字を書くには？ (ID:82904)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 一番簡単なのはPrintメソッドですかね。 Private Sub Command1_Click() Dim XX(100), YY(100) As Single Dim id As String id = Text1.Text XX(id) = Text2.Text YY(id) = Text3.Text Form1.DrawWidth = 7 Form1.PSet (XX(id), YY(id)), QBColor(9) '描画された点に重ならないように座標を求める Form1.CurrentX = XX(id) + (Form1.ScaleX(Form1.DrawWidth, vbPixels, Form1.ScaleMode) / 2) Form1.CurrentY = YY(id) - (Form1.TextHeight("出力する文字列") / 2) Form1.Print "出力する文字列" id = id + 1 Text1.Text = id End Sub Printメソッドは座標を指定して出力できないので、 出力位置をCurrentX,CurrentYプロパティで指定してください。 上記のソースでは描画された点に重ならないように座標を求めて代入しています。 だいぶ適当に作りましたが、DrawWidthとか変えても点の右側に文字列が出力されると思います。 また、出力される文字列はFormのFontプロパティに依存しますので、 文字列のサイズ等変更したい場合はFontプロパティを変更するようにしてください。