VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [過去ログ] [管理用]

投稿日： 2003/12/22(Mon) 11:27
投稿者： 魔界の仮面弁士
Ｅメール：
ＵＲＬ：
タイトル： Re: TextOut関数の使い方

ソースを見る限りでは、APIを使う必要は無いような。
    Picture1.Cls
    Picture1.ScaleMode = vbPixels
    Picture1.Font.Size = 60
    Picture1.ForeColor = vbBlack
    Picture1.CurrentX = 10
    Picture1.CurrentY = 10
    Picture1.Print ST

で、もし TextOut を使うなら、Wide系のエントリを使った方が楽かも。

Private Declare Function TextOut Lib "gdi32" _
    Alias "TextOutW" ( _
        ByVal hdc As Long, _
        ByVal x As Long, _
        ByVal y As Long, _
        ByRef lpString As Byte, _
        ByVal nCount As Long) As Long

Private Sub Command1_Click()
    Dim S() As Byte

    S = "123う 広島"
    Picture1.Cls
    Picture1.Font.Size = 60
    Picture1.ForeColor = vbBlack
    TextOut Picture1.hdc, 10, 10, S(0), Len(CStr(S))
    Picture1.Refresh
End Sub

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- Web Forum -