03/02/2010, 13:57
iyi günler
Ayrıntı.PSet (500, 500), 255
diye bir komut olabilirmi
daha doğrusu
Nesne.PSET (X,Y), Renk
şeklinde vb için bir kod var
nesnenin belirlenmiş bölgesine nokta koyuyor
bu ayrıntı için geçerli olur mu
ayrıntı bir nesne midir
teşekkürler
Sub Ayrıntı_Print(Cancel As Integer, PrintCount As Integer)
Dim sngMidPt As Single, intI As Integer
' Set scale to pixels.
Me.ScaleMode = 3
' Calculate midpoint.
sngMidPt = Me.ScaleHeight / 2
' Loop to draw line down horizontal axis pixel by pixel.
For intI = 1 To Me.ScaleWidth
Me.PSet(intI, sngMidPt)
Next intI
End Sub
Ayrıntı.PSet (500, 500), 255
diye bir komut olabilirmi
daha doğrusu
Nesne.PSET (X,Y), Renk
şeklinde vb için bir kod var
nesnenin belirlenmiş bölgesine nokta koyuyor
bu ayrıntı için geçerli olur mu
ayrıntı bir nesne midir
teşekkürler
Sub Ayrıntı_Print(Cancel As Integer, PrintCount As Integer)
Dim sngMidPt As Single, intI As Integer
' Set scale to pixels.
Me.ScaleMode = 3
' Calculate midpoint.
sngMidPt = Me.ScaleHeight / 2
' Loop to draw line down horizontal axis pixel by pixel.
For intI = 1 To Me.ScaleWidth
Me.PSet(intI, sngMidPt)
Next intI
End Sub