KMSpico Activator - Download for Windows 11, 10, 8, 7 & Office

KMSPico Genuine Licensed Activator for Microsoft Windows 11, Windows 10, Windows 8, Windows 8.1, Windows 7, and Office 2019, Office 365, Office 2016
Get it now for FREE !

KMSpico Download

Membuat Program Paint sederhana dengan VB 6

Author: · Published: January 13, 2012 · Category: 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 Sub

Private Sub cmdhpsemua_Click()
Picture1.Cls
End Sub

Private Sub cmdpensil_Click()
cmdpensil.Enabled = False
cmdhapus.Enabled = True
End Sub

Private Sub Command1_Click()
Unload Me
End Sub

Private 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 Sub

Private Sub lblwarna_Click(Index As Integer)
Picture1.ForeColor = lblwarna(Index).BackColor
End Sub

Private 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 Sub

Private 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 Sub

Private 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:

Download Program Selengkapnya

Ditunggu komentarnya ya. Semoga berguna. 🙂

Related Articles

  1. Membuat Database Karyawan Beserta Foto dengan Delphi 7.0 – Access
  2. Mengenal Client Scripts di PHPMaker
  3. Pembelian Tiket Pesawat dengan menggunakan Google Form
  4. Pembuatan Form dengan Google Form
  5. Tutorial Pemanfaatan ZoneEdit.Com Membuat Private Nameserver
  6. Menyembunyikan dan menampilkan elemen dengan jQuery
  7. KONSEP PROGRAM
  8. Cara Mengunakan dan Menyimpan File Formulir di Google Form
  9. Cara Cepat Membuka Aplikasi di Windows
  10. Membuat Animasi Mata dengan Borland Delphi 7.0
  11. Membuat Program Perhitungan Sederhana dengan Java NetBeans 8.1
  12. Step By Step Menjadi Programmer Handal Dengan Vb.Net (15)
  13. Membuat Login Form Dengan Borland Delphi dan Basis Data Microsoft Access
  14. CARA PEMBUATAN FORMULIR MENGGUNAKAN GOOGLE FORM
  15. Pengenalan Bilangan Random dan Simulasi dengan Microsoft Excel/LibreOffice Calc
  16. Fasilitas Google Form
  17. 13 Program Matematika Unggulan untuk Linux
  18. Jalan Pintas Membuka Program Aplikasi
  19. Cepat Mahir Bahasa Pemrograman PHP
  20. Mengukur Waktu Tayang Form dengan Delphi