- 27 Ocak 2007
- 3,178
- 1
- 603
PictureBox nesnesine tam olarak ortalanmış yazı yazmak
yazi = "turkhackteam.org"
With Picture1
If t - 1 > 0 Then .Picture = Picture1(0).Picture
With .Font
.Name = "verdana"
.Size = "8"
.Bold = True
End With
.ForeColor = RGB(255, 0,0)'kırmızı
th = .TextHeight(yazi)
tw = .TextWidth(yazi)
.CurrentX = (.ScaleWidth / 2) - (tw / 2)
.CurrentY = (.ScaleHeight / 2) - (th / 2)
Picture1.Print yazi
End With
yazi = "turkhackteam.org"
With Picture1
If t - 1 > 0 Then .Picture = Picture1(0).Picture
With .Font
.Name = "verdana"
.Size = "8"
.Bold = True
End With
.ForeColor = RGB(255, 0,0)'kırmızı
th = .TextHeight(yazi)
tw = .TextWidth(yazi)
.CurrentX = (.ScaleWidth / 2) - (tw / 2)
.CurrentY = (.ScaleHeight / 2) - (th / 2)
Picture1.Print yazi
End With