by Matthias Bartelt (1 Submission)
Category: Graphics
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Tue 6th June 2000
Date Added: Mon 8th February 2021
Rating: (1 Votes)
A very cool GRAPHIC EFFECT: A laser draw a picture pixel for pixel.
Dim iZahl, iZahl2 As Integer
Dim sFarbe2 As String
Me.ScaleMode = vbPixels
With picBild
.ScaleMode = vbPixels
.AutoRedraw = True
End With
For iZahl2 = 0 To picBild.ScaleWidth
For iZahl = 0 To picBild.ScaleHeight
sFarbe2 = picBild.Point(iZahl2, iZahl)
Line (StartX, StartY)-(StandLeft + iZahl2, StandRight + iZahl), sFarbe2
Next
Line (StartX, StartY)-(StandLeft + iZahl2, StandRight + picBild.ScaleHeight), sFarbe
Next
For iZahl2 = 0 To picBild.ScaleHeight
Line (StartX, StartY)-(StandLeft + picBild.ScaleWidth, StandRight + iZahl2), sFarbe
Next
End Function
Private Sub Command1_Click()
Laser Picture1, 300, 300, 10, 10, Me.BackColor
End Sub
No comments have been posted about A very cool GRAPHIC EFFECT: A laser draw a picture pixel for pixel.. Why not be the first to post a comment about A very cool GRAPHIC EFFECT: A laser draw a picture pixel for pixel..