PictureBox, tekst og print
Hej eksperter...Jeg fandt lige noget kode jeg kunne bruge på eksperten, som tidligere er besvaret men kan ikke helt selv finde ud af hvordan jeg skal bruge det i mit projekt.
Tidligere spørgsmål:
http://www.eksperten.dk/spm/124364
Jeg vil nu gerne også kunne skrive på mit billede i bunden af det problemet er bare at jeg tilføjer billeder ved hjælp af en knap og loader først et billede der.
Følgende kode bruger jeg nu:
Private Sub cmdTilfoj_Click()
Load picTable(picTable.UBound + 1)
With picTable(picTable.UBound)
.Picture = LoadPicture("c:\billede.ico")
.AutoRedraw = True
.FontName = "Comic Sans MS" 'Font navn
.FontSize = 20 'Font size
.ForeColor = &HFF8080 'Font color
.Left = Me.Width / 2 - .Width / 2
.Top = Me.Height / 2 - .Height / 2
.Visible = True
.CurrentX = 0
.CurrentY = 0
.Tag = i + 1
End With
End Sub
Hvordan får jeg skrevet i bunden af de pictureboxes der?
Metoden i det tidligere spørgsmål virker nemli ikke. Altså .print "la la"
på forhånd tak
hiks
