VB中怎样在picturebox 中输入文字

在按钮的click事件中的代码

2025-02-06 10:56:33

推荐回答（4个）

回答1：

简单的实现方法：在PictureBox中加入一个Label控件，利用这个Label显示文字。将Label背景设置为透明，所显示的文字不会影响画面。

具体实现方法如下：

（1）在窗体Form1上布置一个PictureBox，将一个Label拖入到PictureBox内。再在窗体上布置一个TextBox

在PictureBox中载入一个图片；将label1的BackStyle属性设置为： 0 -Transparent

（2）窗体代码

Option Explicit

Private Sub Form_Load()
    Label1.Caption = ""
    Text1.Text = ""
End Sub

Private Sub Text1_Change()
    Label1.Caption = Text1.Text
End Sub

（3）运行效果

回答2：

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
http://iask.sina.com.cn/b/3049914.html
下有演示工程文件：
picturePrint.rar

回答3：

Picture1.Print:Picture1.Print "VB中怎样在picturebox 中输入文字"

回答4：

麻烦，直接放进去一个label就行了。

最新问答

深圳积分入户之后子女的户籍怎么迁

喜欢与爱的区别？

免维护蓄电池也需要保养，如何保养?

大家觉得这是自私吗？我有一个舍友，他每次回宿舍都不自己开门，每次都敲门，让我开。开始我没觉得什么，

急急急！！！求10张古风头饰图片和十二星座首饰图片，拜托，我有急用

沾到了芒果汁，怎么洗都洗不掉，用什么方法才能洗掉

已婚女人爱上外地的已婚男人,很想他

求古风的一个红衣长裙的女子被抱起的图片，急急。

形容美好事物的词语有哪些？

关于冲减管理费用