Membuat Aplikasi Paint di Visual Basic 6.0

                   Paint merupakan aplikasi grafis bawaan dari OS Windows. mulai dari Windows 98 sampai Windows 8 aplikasi ini selalu ada. pasti kalian tahu kan, aplikasi ini. untuk membuat aplikasi "paint" ikuti langkah-langkah berikut:

1. Buka Visual Basic, pilih standard.exe, maka akan tampil area kerja.sesuaikan ukuran kerja sesuai dengan rancangan kalian.

2. pilih tool "PictureBox" , klik dan drag pada area kerja.

Gambar 1. Icon PictureBox

3. ubah warna "BackColor" menjadi putih.

4. pilih tool "VschroolBar" nantinya digunakan untuk mengatur ketebalan Brush Tool. Agar aplikasi mudah di mengerti orang awam tambahkan label juga.

   

                              Kodenya ini: Picture1.DrawWidth = VScroll1

5.  ini masih belum lengkap, lengkapnya tunggu lanjutin  sesinya...

6. dibawah ini gambar aplikasinya:

Gambar 2. Aplikasi Paint (sesi 1)

          Kode program lengkapnya ini:

Dim draw As Boolean
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    draw = True
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If draw Then
        Picture1.PSet (X, Y), vbBlack
    End If
End Sub

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    draw = False
End Sub

Private Sub VScroll1_Change()
Picture1.DrawWidth = VScroll1
End Sub

 

Sekian posting saya yang sederhana ini, semoga dapat memberi wawasan baru untuk anda.

>>Terima kasih telah berkunjung di AKUBECUS.blog <<<