如何在vb中的图片框中加入文字

Question

如题所述

Answer 1

picture1.print "Demo"

第二种方法

private 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 Picture1_Click()
    dim S as string
    s="DEMO"
    picture1.cls
    TextOut picture1.hdc,10,10,s,len(s)
    picture1.refresh
end sub

Answer 2

picture1.print "hello~!"

Answer 3

Dim 文字 As Graphics = 图像框.CreateGraphics()
文字.DrawString("我喜欢！", New Font("黑体", 30), Brushes.Red, New Point(100, 100))
这是 .NET，图像框是一个 PictureBox本回答被网友采纳