图片上的文本

Question

请问如何才能做出像PhotoShop中在一个图片上可以输文本的效果？
    我想做出像Visio中画数据流程图时选择 业务进程 上可以在框内写文本的效果。    给出建议者再给加分！！

Answer 1

Picture2.CurrentX = 
Picture2.CurrentY = 
Picture2.Print 字符串

Answer 2

明白楼主意思，楼主是想弄个带背景的文本框？光标效果可以这么做：
1。画线
2。图片cls
3。返回1。
或，用timmer控件，控制line控件:
line1.visible=not line1.visible

Answer 3

谁能给我提供一些文字打印相关 的API函数？

Answer 4

如何在PictureBox上面的鼠标点击位置显示光标：Private Declare Function SetCaretPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function CreateCaret Lib "user32" (ByVal hwnd As Long, ByVal hBitmap As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
Private Declare Function ShowCaret Lib "user32" (ByVal hwnd As Long) As LongPrivate Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    CreateCaret Picture1.hwnd, 0, 2, 10
    SetCaretPos X / Screen.TwipsPerPixelX, Y / Screen.TwipsPerPixelY
    ShowCaret Picture1.hwnd
End Sub

Answer 5

这三个Api 也许有用
要隐藏光标用 HideCaret 要再显示用 ShowCaret
要去掉光标用 DestroyCaret