Paintteki kalem aracının benzerini vb 6.0 yapalm..

istediğimiz rengi yukarıdan seçiyoz ve daha sonra fare ile formun üzerine istediğimiz gibi çizebiliyoruz.. programda tek combobox kullanılmıştır.

ComboBox’a yazılacak renkler sırasıyla;

KIRMIZI
MAVİ
YEŞİL
SARI
TURKUAZ YEŞİL
MOR
GÜMÜŞ

Renkleri yazdıktan sonra  programa yazılacak kodlar;

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
x1 = X
y1 = Y
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Combo1.ListIndex = 0 Then
If Button = 1 Then
Line (x1, y1)-(X, Y), RGB(256, 0, 0)
x1 = X
y1 = Y
End If
End If
If Combo1.ListIndex = 1 Then
If Button = 1 Then
Line (x1, y1)-(X, Y), RGB(0, 0, 256)
x1 = X
y1 = Y
End If
End If
If Combo1.ListIndex = 2 Then
If Button = 1 Then
Line (x1, y1)-(X, Y), RGB(0, 256, 0)
x1 = X
y1 = Y
End If
End If
If Combo1.ListIndex = 3 Then
If Button = 1 Then
Line (x1, y1)-(X, Y), RGB(256, 256, 0)
x1 = X
y1 = Y
End If
End If
If Combo1.ListIndex = 4 Then
If Button = 1 Then
Line (x1, y1)-(X, Y), RGB(0, 256, 256)
x1 = X
y1 = Y
End If
End If
If Combo1.ListIndex = 5 Then
If Button = 1 Then
Line (x1, y1)-(X, Y), RGB(256, 0, 256)
x1 = X
y1 = Y
End If
End If
If Combo1.ListIndex = 6 Then
If Button = 1 Then
Line (x1, y1)-(X, Y), RGB(200, 200, 200)
x1 = X
y1 = Y
End If
End If
End Sub

Projeyi İndir

Rica: Sitemizin Google'da Ön Sıralarda Çıkması İçin Lütfen Alttaki Google+ Butonuna Tıklayınız , Sayfamızı Facebookta Beğeniniz veya yazıları Twitter,Facebookta paylaşınız.