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)