消防员山姆叔叔动画片:让VB在图片指定位置加入文字

来源：百度文库编辑：中科新闻网时间：2024/05/06 10:59:59

让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在图片指定位置加入文字在提问时怎样加入指定图片? 怎么在Dreamweaver指定位置插入图片在VB.NET中(VS.net)，怎样指定透明颜色，让图片透明。怎样在图片上加入文字怎么在图片中加入文字如何在文字下面加入Photoshop图片如何在图片上面加入文字？急问!!!VFP6.0的表单中怎样才能加入指定位置的图片 Dreamweaver中怎么在已经插入了图象的导航条中加入文字信息？要让文字在图片的图层上