Membuat Program Paint sederhana dengan VB 6
Author: Danu Wira · Published: January 13, 2012 · Category: Algoritma, Pemograman, Tool, Animasi dan Multimedia, eLearning dan eEducation, Pemrograman VB
Program yang dibahas kali ini terinspirasi dari program bawaan Microsoft Windows yaitu Ms. Paint. Kali ini kita akan sedikit mengupas cara membuat program paint tersebut dalam versi yang lebih sederhana dengan menggunakan Visual Basic. Program ini dapat Anda download dan kostumisasi sesuai keinginan Anda secara GRATIS.
Langkah pertama adalah membuat sebuah project dengan sebuah form menggunakan objek label, button, picture box dan frame dengan desain seperti ini:
Langkah selanjutnya adalah melakukan pengaturan properties sehingga tampilan didapat seperti pada gambar diatas.
Langkah terakhir adalah memberikan listing program untuk form tersebut sebagai berikut:
Dim paintnow As Boolean
Private Sub cmdhapus_Click()
cmdhapus.Enabled = False
cmdpensil.Enabled = True
End SubPrivate Sub cmdhpsemua_Click()
Picture1.Cls
End SubPrivate Sub cmdpensil_Click()
cmdpensil.Enabled = False
cmdhapus.Enabled = True
End SubPrivate Sub Command1_Click()
Unload Me
End SubPrivate Sub Form_Load()
Dim i As Integer
For i = 0 To 14
lblwarna(i).BackColor = QBColor(i)
Next i
Picture1.ForeColor = QBColor(0)
Picture1.BackColor = QBColor(15)
End SubPrivate Sub lblwarna_Click(Index As Integer)
Picture1.ForeColor = lblwarna(Index).BackColor
End SubPrivate Sub Picture1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = vbLeftButton Then
paintnow = True
Picture1.CurrentX = x
Picture1.CurrentY = y
End If
End SubPrivate Sub Picture1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
If paintnow Then
If cmdpensil.Enabled = False Then
Picture1.Line -(x, y), Picture1.ForeColor
Picture1.MousePointer = 99
End If
If cmdhapus.Enabled = False Then
Picture1.Line -(x, y), RGB(255, 255, 255), B
Picture1.MousePointer = 12
End If
End If
End SubPrivate Sub Picture1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = vbLeftButton Then
paintnow = False
End If
End Sub
Kemudian simpan dan jalankan program tersebut untuk melihat hasilnya.
Untuk mempermudah Anda mencoba program tersebut, berikut ini adalah Project lengkapnya yang sudah saya upload dalam format rar:
Ditunggu komentarnya ya. Semoga berguna. :)
Related Articles
- Memproteksi Image dengan PHP
- Membuat Program Perhitungan dengan If
- Membuat File DLL dengan Borland Delphi
- Membuat Database Karyawan Beserta Foto dengan Delphi 7.0 – Access
- Memanipulasi Registry Windows
- Pemrograman dengan GOTOXY
- Form Cantik dengan Delphi
- Multi-Tabed User Interface
- Representasi Chromosome Algoritma Genetika Dalam Bentuk Biner
- Tutorial Pemanfaatan Layanan ZoneEdit.Com untuk Membuat Private Nameserver
- MULTIPLE BINDINGNAVIGATOR PADA VB 2008
- Aplikasi Tebak Suara dengan Visual Basic
- Limit Bandwidth di Mikrotik 2.9.2 7
- Step by Step Menjadi Programer Handal dengan VB.NET (6)
- Membuat Animasi Mata dengan Borland Delphi 7.0
- Mengukur Waktu Tayang Form Dengan Delphi
- Instalasi OpenOffice 1.1 Release
- Program Password Multi User dengan Pascal
- Berlatih Tipe Data di Delphi
- Mengcompile dan Menginstal Kernel Linux