Membuat Efek Laser Pada Picture Box Di VB6

Saya sebenarnya bingung mau memberikan nama apa di postingan kali ini, namun karena efek dari yang saya posting ini seperti laser jadi saya beri nama Membuat Efek Laser Pada Picture Box Di VB6 saja yah :D
Coba kalian ikuti langkah - langkah nye seperti di bawah ini:
1. Bukalah project seperti biasanya.

2.Masukan komponen Picture Box

lalu masuklah ke properties pictute box tersebut dan cari bagian picture

3. Pilihlan folder dimana kalian menyimpan gambarnya, setelah sudah ketemu maka pilih Open

4. Klik Code di bagian pojok kanan atas , lalu masukan sintek nya seperti di bawah ini

'**************************************************************************************
' Created Sunday, November 03, 2013 Yesan - South Korea
' Developer nanank
'**************************************************************************************
Option Explicit
Dim XPos, YPos As Integer
Dim Color As Long

Dim vLeft As Boolean, hLeft As Boolean
Private Enum LaserDrawModes
LaserCorner
PrinterScan
WierdDraw
WierdDrawSlow
End Enum

Private Sub LaserDraw(PictureToDraw As PictureBox, DrawSurface As Object, Optional LaserOriginX = -1, Optional LaserOriginY = -1, Optional BackColor As ColorConstants = -1, Optional LaserDrawMode As LaserDrawModes = LaserCorner)
DrawSurface.ScaleMode = vbPixels
If BackColor <> -1 Then
DrawSurface.BackColor = BackColor
End If

PictureToDraw.ScaleMode = vbPixels
PictureToDraw.AutoRedraw = True
PictureToDraw.Visible = False

If LaserOriginX = -1 Then
LaserOriginX = PictureToDraw.ScaleWidth
End If
If LaserOriginY = -1 Then
LaserOriginY = PictureToDraw.ScaleHeight
End If

For XPos = 0 To PictureToDraw.ScaleWidth
DoEvents
For YPos = 0 To PictureToDraw.ScaleHeight
Color = PictureToDraw.Point(XPos, YPos)
If LaserDrawMode = LaserCorner Then
DrawSurface.Line (XPos, YPos)-(LaserOriginX, LaserOriginY), Color
ElseIf LaserDrawMode = PrinterScan Then
DrawSurface.Line (XPos, YPos)-(LaserOriginX, YPos), Color
DrawSurface.Line (XPos + 1, YPos - 1)-(LaserOriginX, YPos - 1), BackColor
DoEvents
ElseIf LaserDrawMode = WierdDrawSlow Then
DrawSurface.Line (XPos, YPos)-(LaserOriginX, YPos), Color
DoEvents
Else
DrawSurface.Line (XPos, YPos)-(LaserOriginX, YPos), Color
End If
Next
Next
End Sub

Private Sub Form_Load()
Me.Show
LaserDraw Picture1, Me, Me.ScaleWidth, Me.ScaleHeight, vbBlack, WierdDraw
End Sub

 Setelah itu cobalah Play dengan cara klik menu play yang ada di bagian tengah atas

Selamat mencoba.

Keterangan:
- Perhatikan gambar yang sudaha saya lingkari dengan warna merah

Terima kasih sudah menyempatkan waktu untuk membaca artikel Membuat Efek Laser Pada Picture Box Di VB6. Jika terdapat link error silahkan langsung hubungi saya di menu Contact supaya bisa langsung di perbaiki dan jangan lupa tinggalkan komentar kamu setelah selesai membaca artikel ini. Salam Admin

Ditulis oleh: Unknown - Saturday, 2 November 2013