hur gör man för att lägga till text i en picturebox?
jag vet att det ska gå, och jag tror att frågan kommit upp tidigare, men jag kan inte hitta den vid en sökning.

jag ska lägga till minst två olika texter med olika storlekar.

efter att ha sökt på nätet såg jag att man ska använda picturebox.print
men hu gör jag om jag vill vill centrera texten? måste jag använda space()-funktionen, eller finns det nåt bättre sätt?

Hej
Till Picture box kan du använda samma teknik
som till en Form eller Printer eller Debug

Picture1.FontName = "Arial"
Picture1.FontSize = 16
Picture1.FontBold = True
Picture1.CurrentX = 100: Printer.CurrentY = 100 'twips
Picture1.Print "Banarne"

eller
Picture1.Print ;Tab(25);"Banarne"

mvh fritt ur minnet
Sven

aha, tack så mycket för hjälpen!

Förlåt att jag kommer med ett ytterligare inlägg. Men det finns mycket man kan göra med fonter. Bland annat skapa instanser av stdFont objektet och på så sätt bara behöva göra ett anrop när man ändrar till en helt annan font. Till skillnad fråna att uppdatera alla egenskaper som skilljer fonterna åt. Finns desutom ett dold Interface IFont för stdFont objektet med vilket man kan clona en font. Här är ett litet exempel jag skapat för att demonstrera:
<code>
Option Explicit

Private mFont1 As StdFont
Private mFont2 As StdFont

Private Function CloneFont(Font As IFont) As IFont
Font.Clone CloneFont
End Function


Private Sub Form_Load()
Set mFont1 = CloneFont(Picture1.Font)
mFont1.Size = 10
Set mFont2 = CloneFont(mFont1)
mFont2.Size = 14
End Sub

Private Sub Picture1_Paint()
Picture1.CurrentX = Picture1.ScaleX(1, vbCentimeters)
Picture1.CurrentY = Picture1.ScaleY(1, vbCentimeters)
Set Picture1.Font = mFont1
Picture1.Print "Font 1"

Picture1.CurrentX = Picture1.ScaleX(1, vbCentimeters)
Picture1.CurrentY = Picture1.ScaleY(2, vbCentimeters)
Set Picture1.Font = mFont2
Picture1.Print "Font 2"
End Sub
</code>