Visual Basicde Form üzerine resim çizme

By_OnEseLF

By_OnEseLF

Katılımcı Üye
12 Eyl 2010
655
0
Forma hiç bir eklenti yapmanaza gerek yoktur.
kodları olduğu gibi kopyalayın ve programı başlatın çiziminizi yapın

______________________________________________________________

Public Class Form1
'Coder By_OnEseLF


Dim x1, y1 As Integer

Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
If e.Button = Windows.Forms.MouseButtons.Left Then
x1 = e.X
y1 = e.Y
End If
If e.Button = Windows.Forms.MouseButtons.Right Then
x1 = e.X
y1 = e.Y
End If
End Sub

Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
If e.Button = Windows.Forms.MouseButtons.Left Then
Dim renk As New System.Drawing.Pen(System.Drawing.Color.Red)
Dim grafik As System.Drawing.Graphics
grafik = Me.CreateGraphics()
grafik.DrawLine(renk, e.X, e.Y, x1, y1)
renk.Dispose()
grafik.Dispose()
x1 = e.X
y1 = e.Y
ElseIf e.Button = Windows.Forms.MouseButtons.Right Then
Dim renk As New System.Drawing.Pen(Me.BackColor)
Dim grafik As System.Drawing.Graphics
grafik = Me.CreateGraphics()
grafik.DrawLine(renk, e.X, e.Y, x1, y1)
renk.Dispose()
grafik.Dispose()
x1 = e.X
y1 = e.Y
End If
End Sub

End Class
_________________________________________


 
Cevap yazmak için giriş yap yada kayıt ol.
Üst

Turkhackteam.org internet sitesi 5651 sayılı kanun’un 2. maddesinin 1. fıkrasının m) bendi ile aynı kanunun 5. maddesi kapsamında "Yer Sağlayıcı" konumundadır. İçerikler ön onay olmaksızın tamamen kullanıcılar tarafından oluşturulmaktadır. Turkhackteam.org; Yer sağlayıcı olarak, kullanıcılar tarafından oluşturulan içeriği ya da hukuka aykırı paylaşımı kontrol etmekle ya da araştırmakla yükümlü değildir. Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz. Türkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Türkhackteam sorumlu değildir. Sitelerinize Türkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.