vb图片怎么添加文字

1. vb 图片中加入文字

先把图片载入DC，然后用API函数DrawText或DrawTextEx或TextOut可以把文字写到DC的图片上，当然写出来的文字跟DC选择的字体和字号有关，然后再把DC中的图片保存为文件就可以了。

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

如果你想只用vb自带的按钮控件，
那么是不可能做到你说的效果的，你要是想实现你的效果，
只有以下3个方法：
不过我可以负责任的告诉你，
我所读过的vb程序中都是这么实现的，
2、自己编写自己的按钮控件，不用vb自带的
3、放弃用vb，改用其他语言
估计你也就是一辈子问别人的初级程序员罢了！（哦，那不叫程序员，在我们那里，这只能叫“写代码的”）

3. VB 给图片添加文字水印

VB6.0给已有图片添加文字可通过定位的Print 方法实现。要将添加文字的位图储存为JPG格式文件，需要使用API函数等实现。

具体步骤：

1）在图片框加载需要添加文字水印的图片。

2）使用如下代码实现添加文字到图片框。

PrivateSubCmdEdit_Click()'修改
DimstrTxtAsString
strTxt="风雨无阻拍摄"
Picture1.FontSize=18
Picture1.CurrentY=Picture1.ScaleHeight-30
Picture1.CurrentX=Picture1.ScaleWidth/2-Picture1.TextWidth(strTxt)/2
Picture1.ForeColor=vbWhite
Picture1.FontItalic=True
Picture1.PrintstrTxt
EndSub

3）将以下API转换图片格式代码放置于标准模块，模块命名为saveApg。

OptionExplicit
PublicTypeGUID
Data1AsLong
Data2AsInteger
Data3AsInteger
Data4(0To7)AsByte
EndType
PublicTypeGdiplusStartupInput
GdiplusVersionAsLong
DebugEventCallbackAsLong

SuppressExternalCodecsAsLong
EndType
PublicTypeEncoderParameter
GUIDAsGUID
NumberOfValuesAsLong
typeAsLong
ValueAsLong
EndType
PublicTypeEncoderParameters
CountAsLong
ParameterAsEncoderParameter
EndType
"GDIPlus"(tokenAsLong,inputbufAsGdiplusStartupInput,ByValoutputbufAsLong)AsLong
"GDIPlus"(ByValtokenAsLong)AsLong
"GDIPlus"(ByValhbmAsLong,ByValhpalAsLong,BitmapAsLong)AsLong
"GDIPlus"(ByValImageAsLong)AsLong
"GDIPlus"(ByValImageAsLong,ByValfileNameAsLong,clsidEncoderAsGUID,encoderParamsAsAny)AsLong
"ole32"(ByValstrAsLong,idAsGUID)AsLong
"GDIPlus"(ByValfileNameAsLong,BitmapAsLong)AsLong

(ByValpictAsStdPicture,ByValfileNameAsString,OptionalByValqualityAsByte=80)AsBoolean
DimtSIAsGdiplusStartupInput
DimlResAsLong
DimlGDIPAsLong
DimlBitmapAsLong
'初始化GDI+
tSI.GdiplusVersion=1
lRes=GdiplusStartup(lGDIP,tSI,0)
IflRes=0Then
'从句柄创建GDI+图像
lRes=GdipCreateBitmapFromHBITMAP(pict.Handle,0,lBitmap)

IflRes=0Then
DimtJpgEncoderAsGUID
DimtParamsAsEncoderParameters

'初始化解码器的GUID标识
CLSIDFromStringStrPtr("{557CF401-1A04-11D3-9A73-0000F81EF32E}"),tJpgEncoder

'设置解码器参数
tParams.Count=1
WithtParams.Parameter'Quality
'得到Quality参数的GUID标识
CLSIDFromStringStrPtr("{1D5BE4B5-FA4A-452D-9CDD-5DB35105E7EB}"),.GUID
.NumberOfValues=1
.type=4
.Value=VarPtr(quality)
EndWith

'保存图像
lRes=GdipSaveImageToFile(lBitmap,StrPtr(fileName),tJpgEncoder,tParams)

'销毁GDI+图像
GdipDisposeImagelBitmap
EndIf

'销毁GDI+
GdiplusShutdownlGDIP
EndIf

IflResThen
PictureBoxSaveJPG=False
Else
PictureBoxSaveJPG=True
EndIf
EndFunction

4）使用以下代码实现将加好文字水印图片保存为jpg格式图片。

PrivateSubCommand3_Click()'保存为.jpg图片
'设置“CancelError”为True
CommonDialog1.CancelError=True
OnErrorGoToErrHandler
'设置标志
CommonDialog1.Flags=cdlOFNHideReadOnly
'设置过滤器
CommonDialog1.Filter="JPEGFiles"&"(*.jpg)|*.jpg"
'指定缺省的过滤器
CommonDialog1.FilterIndex=2
'显示“打开”对话框
CommonDialog1.ShowSave
'显示选定文件的名字
'MsgBoxCommonDialog1.fileName
SetPicture2.Picture=Picture1.Image'转移Picture1所绘图为Picture2.Picture赋值
DimretAsBoolean
ret=PictureBoxSaveJPG(Picture2,CommonDialog1.fileName)'保存压缩后的图片
Ifret=FalseThen
MsgBox"保存失败"
EndIf
ExitSub
ErrHandler:
'用户按了“取消”按钮
ExitSub
EndSub

4. 让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

5. 让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

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

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

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

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

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

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

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

7. 让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

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

picture1.print"Demo"

第二种方法

"gdi32"Alias"TextOutA"(ByValhdcAsLong,ByValxAsLong,ByValyAsLong,ByVallpStringAsString,ByValnCountAsLong)AsLong

privatesubPicture1_Click()
dimSasstring
s="DEMO"
picture1.cls
TextOutpicture1.hdc,10,10,s,len(s)
picture1.refresh
endsub

9. VB 在图片上添加文字 高分！急！

有一个方法就是在picture上打印，代码如下：Private Sub Command1_Click()
With Picture1
.Cls
.CurrentX = 100
.CurrentY = 100
End With
Picture1.Print "OK"
End Sub但缺点挺多的，比如窗体的刷新就很麻烦。 还有就是用一个label控件，把label放到picture里，把backstyle属性改成0就可以让label透明了！

10. 怎么用VB在图片框上显示文字

例：

picture1.currentx=300

picture1.currenty=400

picture1.print "考试"

”定义完坐标后输出的文字就从那个坐标开始。“

还可以对字体进行设置（当然要在.print之前进行）：

with picture1

.forecolor=vbred

.fontname="宋体"

.fontsize=16

......

end with

(10)vb图片怎么添加文字扩展阅读

vb文本输入框：

如果同时提供了帮助文件和上下文，则会自动将帮助按钮添加到对话框中。如果用户单击OK或按ENTER，InputBox函数将返回文本框中的任何内容。如果用户单击Cancel，函数将返回一个零长度字符串（“”）。

以下示例使用input box函数显示输入框并将字符串分配给变量输入：

Dim Input

Input = InputBox("Enter your name")

MsgBox ("You entered: " & Input)