？怎样把汉字显示在 PictureBox 上

Question

同题

Answer 1

这个问题很简单，picturebox同时出是一个容器控件，你可以先添加一个picturebox控件，然后再picturebox控件中添加一个label控件就行了，一般都要把label控件的backstyle属性改为0－transparent,这样运行时从表面上看就觉得汉字显示在picturebox上了。

Answer 2

Picture1.AutoRedraw = True
Picture1.Print "HaHa"

Answer 3

Private Sub Command1_Click()
   Picture1.CurrentX = 100
   Picture1.CurrentY = 100
   Picture1.AutoRedraw = True
   Picture1.Print "汉字"
End Sub

Answer 4

Private Sub Form_Load()
Picture1.CurrentX = 100'x,y来指定显示的位置
Picture1.CurrentY = 100
Picture1.Print "ff"
End Sub

Answer 5

简单先放一个picturebox再加一个label写上字就行

Answer 6

模块:
Option Explicit
Public Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End TypePublic Declare Function DrawText Lib "user32" Alias "DrawTextA" (ByVal hdc As Long, ByVal lpStr As String, ByVal nCount As Long, lpRect As RECT, ByVal wFormat As Long) As Long
Public Const DT_CALCRECT = &H400Public Const DT_WORDBREAK = &H10Form中
Option ExplicitPrivate Sub Command1_Click()
     Dim r As RECT
     Dim lngLen As Long
     Dim strMsg  As String
     r.Left = 10
     r.Top = 10
     r.Right = 500
'     Me.FontSize = 12
     strMsg = "无啊四" & vbCr & "幅阿大厦哈斯阿诗啊素iasuidfsaiudfuisdiufsfguisdif十四13四谷夫斯夫斯阿幅阿大厦哈斯阿诗啊素iasuidfsaiudfuisdiufsfguisdif十四四谷夫斯夫斯阿"
     lngLen = LenB(StrConv(strMsg, vbFromUnicode))     DrawText Me.hdc, strMsg, lngLen, r, DT_CALCRECT Or DT_WORDBREAK
    
    DrawText Me.hdc, strMsg, lngLen, r, DT_WORDBREAK
    
End Sub

Answer 7

就用 rainstormmaster(rainstormmaster) 的，把分给他吧。