CENTER txt in picturebox...

[sal21]

Code: Select all

Option Explicit
Private Sub Command1_Click()

  Call DrawText
  
End Sub
Private Sub DrawText()

    Const SAMPLE_TEXT As String = "0123456789"

    ' Draw on the picture.
    Me.Picture1.Font.Name = "ARIAL"
    Me.Picture1.Font.Size = 24
    Me.Picture1.Font.Bold = True
    Me.Picture1.ForeColor = vbBlack

    ' Center the text horizontally at the top of the picture.
    Me.Picture1.CurrentX = (Me.Picture1.ScaleWidth - Me.Picture1.TextWidth(SAMPLE_TEXT)) / 2
    Me.Picture1.CurrentY = 0

    Me.Picture1.AutoRedraw = True
    Me.Picture1.Print SAMPLE_TEXT

    ' Make the text a permanent part of the image.
    ' This is important if you later need to copy
    ' the picture to another control or the Printer.
    Me.Picture1.Picture = Me.Picture1.Image

End Sub

but the text is cetered to the top of picturebox.

i need to center text in orizontal and vertical, possible?

[HansV]

Does this work?

Code: Select all

    Me.Picture1.CurrentY = (Me.Picture1.ScaleHeight - Me.Picture1.TextHeight(SAMPLE_TEXT)) / 2

[sal21]

Does this work?

Code: Select all

    Me.Picture1.CurrentY = (Me.Picture1.ScaleHeight - Me.Picture1.TextHeight(SAMPLE_TEXT)) / 2

HUMMMM...
i use this code as function...
but how to clear the old text, before to insert a new txt?

[HansV]

If you look at the line for CurrentX, you could easily have modified the line for CurrentY!

You cannot remove text written by the Print method of the PictureBox.

[sal21]

GOOGLING...
correct:

Me.Picture1 = Nothing
Me.Picture1.Cls

[HansV]

Yes, you can do that, but that will clear the entire picturebox.