vb.net图片加文字 vb在图片框显示文字

让VB在图片指定位置加入文字

VB6.0中使用函数功能,可实现在vb的picture图中写文字,且字号及字体颜色可按要求改变,代码如下:

Option

Explicit

Dim

xx,

yy

As

Integer

Dim

fnt

As

Long

Dim

txt

As

String

Dim

colvb

As

String

Dim

wp

As

Variant

Public

Function

xp(colvb

As

Variant,

xx

As

Variant,

yy

As

Variant,

fnt

As

Variant,

txt

As

Variant)

Picture1.ForeColor

=

colvb

'QBColor(14)

Picture1.CurrentX

=

xx

Picture1.CurrentY

=

yy

Picture1.FontSize

=

fnt

Picture1.Print

txt

'

End

Function

Private

Sub

Form_Load()

Picture1.AutoRedraw

=

True

xx

=

500

yy

=

500

fnt

=

24

colvb

=

vbRed

txt

=

"这是VB对PICTURE图片框的图片上写字的演示"

wp

=

xp(colvb,

xx,

yy,

fnt,

txt)

xx

=

500

yy

=

2500

fnt

=

48

colvb

=

vbGreen

txt

=

"字号调大的演示"

wp

=

xp(colvb,

xx,

yy,

fnt,

txt)

End

Sub

求大神指点 vb.net 怎么绘制一张有文字的图呢?并用 PictureBox1 显示出来

picture本身不是文本控件，文本是“画”上去的，换行需要用代码测量每个字在指定字体下的宽度，判断在当前picture的宽度之下，一行能容纳多少文字，剩下的文字就在下一行绘制。

VB.NET中怎么在图片上直接输出文字。向VB中有Print的方法

两种方法：

图片框上盖个Label 向其输入内容。

载入图片，通过内存直接 DrawImage绘制个新图，然后在图上盖文字。最后赋值给图片框。

VB6的print 实质是向图片框打印文字，不管有无图都能在上面Print. 考虑速度和实现难度问题，如果纯粹显示，最好直接盖个Label最简单。第二种方法 需要考虑文字大小、颜色、坐标定位等等。如果一行文字显示不下，不会自动换行，得自己切。

vb.net图片加文字的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb在图片框显示文字、vb.net图片加文字的信息别忘了在本站进行查找喔。