用什么方法实现在PictureBox中输出文本？

Question

Private Sub Command1_Click()
Me.Picture1.CurrentX = 100
Me.Picture1.CurrentY = 100
Picture1.Print "ABC"
End Sub

Answer 1

在PictureBox中加个textbox，设置成颜色一样就行了

Answer 2

可以看看这个实现特殊效果的函数
Public Function raisetext(s As String, x As Integer, y As Integer, width As Integer, COLOR As Long, f As Variant)
Dim i As Integer
f.ForeColor = RGB(255, 255, 255)
For i = 1 To width
f.CurrentX = x - i
f.CurrentY = y - i
f.Print s
Next i
f.ForeColor = RGB(0, 0, 0)
For i = 1 To width
f.CurrentX = x + i
f.CurrentY = y + i
f.Print s
Next i
f.ForeColor = COLOR
f.CurrentX = x
f.CurrentY = y
f.Print s
End Function
Public Function dectext(s As String, x As Integer, y As Integer, width As Integer, COLOR As Long, f As Variant)
Dim i As Integer
f.ForeColor = RGB(0, 0, 0)
For i = 1 To width
f.CurrentX = x - i
f.CurrentY = y - i
f.Print s
Next i
f.ForeColor = RGB(255, 255, 255)
For i = 1 To width
f.CurrentX = x + i
f.CurrentY = y + i
f.Print s
Next i
f.ForeColor = COLOR
f.CurrentX = x
f.CurrentY = y
f.Print s
End Function
Public Function slidetext(s As String, x As Integer, y As Integer, width As Integer, COLOR As Long, f As Variant)
Dim i As Integer
f.ForeColor = RGB(60, 60, 60)
For i = 1 To width
f.CurrentX = x + i
f.CurrentY = y + i
f.Print s
Next i
f.ForeColor = COLOR
f.CurrentX = x
f.CurrentY = y
f.Print s
End Function
Public Function shadowtext(s As String, x As Integer, y As Integer, width As Integer, COLOR As Long, f As Variant)
Dim i As Integer
f.ForeColor = RGB(60, 60, 60)
For i = 1 To width
f.CurrentX = x + width
f.CurrentY = y + width
f.Print s
Next i
f.ForeColor = COLOR
f.CurrentX = x
f.CurrentY = y
f.Print s
End Function
其实如果不是特殊效果的话用Print就行了