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把一个标签label中的文字居中，怎么设定

1、Label 控件不可以水平，上下居中
2、不过可以用 PictureBox 控件做到
3、拖动一个 PictureBox 控件到工程，并命名为 picTextShow，把 AutoDraw 设为 True，加上以下代码就可以实现：
Option Explicit Private Sub Form_Load() picTextShow.CurrentX=(picTextShow.ScaleWidth-picTextShow.TextWidth("要显示的文本"))/2 picTextShow.CurrentY=(picTextShow.ScaleHeight-picTextShow.TextHeight("要显示的文本"))
picTextShow.Print "要显示的文本" End Sub
这样文本就可以在图片框中间显示了。

⑶ VB 标签如何设置字体 居中 啊

在VB6中

（1）设置标签居中方法如下图

（4）只能设置标签内容的水平对齐方式。无法设置标签内容垂直对齐方式

⑷ vb把文字居中，怎么设定

在Vb中如text和label控件是没有垂直居中功能的。

⑸ vb如何将图片框中的文字居中

是水平居中还是垂直居中？还是两者都要居中？

水平居中：

DimsAsString
s="要显示的文字"
WithPicture1
.CurrentX=(.ScaleWidth-.TextWidth(s))2
EndWith
Picture1.Prints

垂直居中：

DimsAsString
s="要显示的文字"
WithPicture1
.CurrentY=(.ScaleHeight-.TextHeight(s))2
EndWith
Picture1.Prints

完全居中：

DimsAsString
s="要显示的文字"
WithPicture1
.CurrentX=(.ScaleWidth-.TextWidth(s))2
.CurrentY=(.ScaleHeight-.TextHeight(s))2
EndWith
Picture1.Prints

⑹ VB怎么把标签内容设置为居中

利用下面的代码可实现标签内容设置为居中：
Label1.Alignment=2

关于Alignment属性：
设置或返回一个值，决定 CheckBox 或 OptionButton 控件、控件中的文本、或 DataGrid
控件列中的值的对齐方式。对 CheckBox 、 OptionButton 和 TextBox
控件在运行时为只读。

语法

object.Alignment [= number]

⑺ VB中，让文本框文字居中的设置，怎么搞

在VB中让文本框文字居中需要设置TextAlign属性，下面用Visual Studio 2019给大家演示一下：

1、打开Visual Studio，模板选择Visual Basic的窗体应用程序，如下图所示

⑻ vb里按钮加入图片后怎么添加文字

我不想拿你的分，不过只想告诉你，在VB里，如果你想只用VB自带的按钮控件，那么是不可能做到你说的效果的，你要是想实现你的效果，只有以下3个方法：

1、在图片中加入中文（虽然你认为这是废话，不过我可以负责任的告诉你，我所读过的VB程序中都是这么实现的，如果你认为是废话我也没办法）

2、自己编写自己的按钮控件，不用VB自带的

3、放弃用VB，改用其他语言

虽然可能对你没什么帮助，不过只是想告诉你你的问题是多么无聊！

所有的程序都是以实现功能为最终目的的，如果你什么都不会，什么都依赖VB程序自己，估计你也就是一辈子问别人的初级程序员罢了！（哦，那不叫程序员，在我们那里，这只能叫“写代码的”）

⑼ VB.NET中label显示的文字怎么居中

1. Label 控件不可以水平，上下居中

2. 不过可以用 PictureBox 控件做到

3. 拖动一个 PictureBox 控件到工程，并命名为 picTextShow，把 AutoDraw 设为 True，加上以下代码就可以实现：

4. Option Explicit Private Sub Form_Load() picTextShow.CurrentX=(picTextShow.ScaleWidth-picTextShow.TextWidth("要显示的文本"))/2 picTextShow.CurrentY=(picTextShow.ScaleHeight-picTextShow.TextHeight("要显示的文本"))

5. picTextShow.Print "要显示的文本" End Sub

6. 这样文本就可以在图片框中间显示了。

⑽ 关于VB的标签，怎么把VB标签中的字居中

1、label
控件不可以水平，上下居中
2、不过可以用
picturebox
控件做到
3、拖动一个
picturebox
控件到工程，并命名为
pictextshow，把
autodraw
设为
true，加上以下代码就可以实现：
option
explicit
private
sub
form_load()
pictextshow.currentx=(pictextshow.scalewidth-pictextshow.textwidth("要显示的文本"))/2
pictextshow.currenty=(pictextshow.scaleheight-pictextshow.textheight("要显示的文本"))
pictextshow.print
"要显示的文本"
end
sub
这样文本就可以在图片框中间显示了。