" Cok Guzel Bir Uyguluma Deneyin "


'Ewet Arkadaşlar Bu makalemde Sizlere Mause İle Picxtrue box uzerine cizgiler Nasıl Cizilir ONları Gosterecem.
'Bir adet tolboxsumuzdan PictureBox1 ekliyoruz
Public Class Form1
'EweT Başlıyoruz Once Bazı Alt programlara İhtiyacımız Var Once Alt programlarımızı Tanımlıyoruz
Public grafik As Graphics
Private resim_cizim As New Bitmap(400, 300)
Private grafik_cizim As Graphics = Graphics.FromImage(resim_cizim)
'bu alt programda ise kalemimizi belirliyoruz ve hangi renk cizeceğini belirttik
'isterseniz bi renk dialog ekleyip ona rengini atayabilirsiniz.
Private kalem As New System.Drawing.SolidBrush(System.Drawing.Color.Bla ck)
Dim tx, ty As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Arkadaşlar Formun load kısmına pictureboxun yeni bir grafik cizim nesnesi olduğunu belirttik
grafik = PictureBox1.CreateGraphics()
End Sub
'pictureboxsumuzun mausemove ozelliğine yazmamız lazım
Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
'Yemi bir integer değişken tanımlıyoruz
Dim k As Integer
k = 9
'Eğer Soltuş basılıysa Diye bi if(Eğer)yapısı kullanıyoruz
If e.Button = Windows.Forms.MouseButtons.Left Then
'ici dolo şekilde kucuk Minik Elips(Daire şekiller)ciziyor
'mosue basılı tutuldukca bu işlem devam eder siz sanki elips değil cizgi ciziyor gibi olur.
grafik.FillEllipse(kalem, New Rectangle(e.X - 5, e.Y - 5, k, k))
grafik_cizim.FillEllipse(kalem, New Rectangle(e.X - 5, e.Y - 5, k, k))
End If
tx = e.X
ty = e.Y
End Sub
End Class
'sonuc İstediğmiz şekilde cizgiler cizebiliyoruz
__________________