怎样在vb的picture图中写文字？

热心网友

VB6。0中使用函数功能,可实现在vb的picture图中写文字,且字号及字体颜色可按要求改变,代码如下:Option ExplicitDim xx, yy As IntegerDim fnt As LongDim txt As StringDim colvb As StringDim wp As VariantPublic Function xp(colvb As Variant, xx As Variant, yy As Variant, fnt As Variant, txt As Variant)Picture1。ForeColor = colvb 'QBColor(14)Picture1。CurrentX = xxPicture1。CurrentY = yyPicture1。FontSize = fntPicture1。Print txt 'End FunctionPrivate Sub Form_Load()Picture1。AutoRedraw = Truexx = 500yy = 500fnt = 24colvb = vbRedtxt = "这是VB对PICTURE图片框的图片上写字的演示"wp = xp(colvb, xx, yy, fnt, txt)xx = 500yy = 2500fnt = 48colvb = vbGreentxt = "字号调大的演示"wp = xp(colvb, xx, yy, fnt, txt)End Sub下附压缩的工程文件。

热心网友

picture1.print "这不是就写出来了么"

热心网友

写文字？拖个标签框或者一个文本框都可以实现啊