print 打印中的定位问题

Question

当我用print方法在picturebox显示了几行文字后，想在文字下面再打印图形，那么我该怎么定位这个current?

Answer 1

 Picture1.CurrentX = 100
  Picture1.CurrentY = 1000定位从那个位置开始打印

Answer 2

关键是如何计算文字的位置:
打印文字前:
fx=Picture1.CurrentX 
fy=Picture1.CurrentY 
打印文字后:
lx=Picture1.CurrentX 
ly=Picture1.CurrentY 
打印图形:
Picture1.line(fx,fy)-(lx,ly),,BF

Answer 3

假如你的几行文字是如txtP = "当我用print方法在picturebox显示了几行文字后，当我用print方法在picturebox显示了几行文字后，" & vbNewLine & "想在文字下面再打印图形，那么我该怎么定位这个current?"方法拼接的，则可使用如下代码：Option Explicit
    Dim txtH As Long
    Dim txtP As String
Private Sub Command1_Click()
    txtP = "当我用print方法在picturebox显示了几行文字后，当我用print方法在picturebox显示了几行文字后，" & vbNewLine & "想在文字下面再打印图形，那么我该怎么定位这个current?"
    Picture1.Print txtP
    txtH = Picture1.TextHeight(txtP)
    Picture1.Line (0, txtH)-(5000, txtH + 500), vbRed, BF
End Sub