高校问答无冬之夜2长眠引者:急救!~我现在要用VB实现输入一个数据, 然后在图片本里将那个数据的点打出
来源：百度文库 编辑：高校问答 时间：2024/04/29 18:49:15
VB6.0中使用函数功能,可实现在vb的picture图中写文字,且字号及字体颜色可按要求改变,你可将 txt = "*" 用于打点,代码如下:
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