９３．文字列を指定の位置に出力する

＜　使用用途　＞
文字列を指定の位置に出力する

今回のサンプルソースをダウンロードする方は下記の「ダウンロード」を！
＝＞　ダウンロード・・・　下に書いてあるサンプルソースと同じです

　＜　説明　＞
ＡＰＩ関数のTextOut を使用します
TextOut ＝＞文字列を指定の位置に出力する
　　＜引数＞
　　　　　 hDC:デバイス コンテキストのハンドル
　　　　 　X:出力位置のX座標
　　　　　 Y:出力位置のY座標
　　　　　 lpString:文字列
　　　　　 nCount:文字列の文字数　
　　＠戻り値＠
　　　　　 正常終了0以外

<　ＳＡＭＰＬＥ　＞
’ここでは文字列を指定の位置に出力する処理です
'標準モジュール
Public Declare Function TextOut Lib "GDI32" Alias "TextOutA" (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long, ByVal lpString As String, ByVal nCount As Long) As Long

'ここからはフォーム内の処理です
Private Sub Command1_Click()
　　Dim nString As String
　　Dim nLeng As Long

　　　 nString = Text1.Text
　　　nLeng = Len(nString)

　　　Ret = TextOut(hDC, 20, 30, Text1.Text, nLeng)
End Sub

Private Sub Command2_Click()
　 Dim nString As String
　Dim nLeng As Long

　　nString = Text1.Text
　　nLeng = Len(nString)

　　 Ret = TextOut(hDC, 120, 30, Text1.Text, nLeng)
End Sub

Private Sub Command3_Click()
　Dim nString As String
　Dim nLeng As Long

　　nString = Text1.Text
　　nLeng = Len(nString)

　Ret = TextOut(hDC, 220, 30, Text1.Text, nLeng)

End Sub

Private Sub Form_Load()
　Text1.Text = "VisualBasic"
End Sub