PAINT-RESİM YAPMA PROGRAMI

Oto Ekspertiz Cihazları hakkında bilgi almak isterseniz burayı tıklayın

Paint Benzeri Bir Uygulama Örneği:                  KOD İNDİR

Public Class Form1 Dim xpos As Integer Dim ypos As Integer Dim ilkX As Integer Dim ilkY As Integer Dim secx As Integer Dim secy As Integer Dim resim1 As Boolean Dim KalemRengi As New Pen(Color.Black, 1) Dim FircaRengi As Brush Dim elipsCiz As Boolean Dim DikdortgenCiz As Boolean Dim TextYaz As Boolean Dim Sprey As Boolean Dim SpreyBaslamaYeri As Boolean Dim font1 As New Font("arial", 10) 'sakla Dim bm As New Bitmap(1300, 1300) Dim Grafik As Graphics = Graphics.FromImage(bm) Dim Ad_1 As String Dim Sakla As Boolean 'çokgen / üçgen çizmek Dim UcgenCiz As Boolean Dim Deger1 As Integer = 0 Dim ilkTiklama As Point Dim ikinciTiklama As Point Dim UcuncuTiklama As Point 'elips çizmek Dim elips2_Ciz As Boolean ' Diktörtgen Çiz Dim dikdortgrn_Ciz As Boolean 'Üçgen Çiz Dim Ucgen_Ciz As Boolean Dim Deger2 As Integer = 0 Dim ilkTiklama2 As Point Dim ikinciTiklama2 As Point Dim UcuncuTiklama2 As Point 'PictureBox 'u yeniden boyutlandır Dim PicBoyutla As Boolean Dim CizimiBoyutla As Boolean Dim picx As Integer Dim picy As Integer Dim Yenile As Boolean Dim PicEni As Integer Dim PicBoyu As Integer 'Yeni resim özellikleri Dim Yeniimaj As Bitmap Dim YeniimajCiz As Boolean Dim ZeminX As Integer Dim ZeminY As Integer 'görüntü boyutu Dim imajX As Integer Dim imajY As Integer Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ToolTip1.SetToolTip(RenkPal, " Renk Paleti ") ToolTip1.SetToolTip(DolguluDaire, " İçi Dolu Daire ") ToolTip1.SetToolTip(DolgusuzDaire, " İçi Dolgusuz daire ") ToolTip1.SetToolTip(CizimAlaniArkaFonPic, " Çizim Alanı Arka Fonu belirleme ") ToolTip1.SetToolTip(AlanKaydirPic, " Çizim Alanı Genişletme, belirleme ") ToolTip1.SetToolTip(AcBtn, " Dosya Aç ") ToolTip1.SetToolTip(SaklaPic, " Çizim Sakla ") ToolTip1.SetToolTip(SilBtn, " Sil ") ToolTip1.SetToolTip(FircaPic, " Fırça ") ToolTip1.SetToolTip(KalemPic, " Kalem ") ToolTip1.SetToolTip(DolguUcgen, " İçi Dolgu Üçgen ") ToolTip1.SetToolTip(DolgusuzUcgen, " Dolgusuz Üçgen ") ToolTip1.SetToolTip(DolguluKare, " Dolgulu Kare,Dikdörtgen") ToolTip1.SetToolTip(DolgusuzUcgen, " Dolgusuz Kare,Dikdörtgen ") ToolTip1.SetToolTip(KalemPic, " Kalem ") ToolTip1.SetToolTip(YaziYazPic, " Metin Yazdırma ") ToolTip1.SetToolTip(DolgusuzKare, " DolgusuzKare Oluşturma") ToolTip1.SetToolTip(FontSecPic, " Font seç") FircaRengi = Brushes.Black Me.WindowState = FormWindowState.Normal 'font TextBox2.Text = FontDialog1.Font.Name NumericUpDown2.Value = FontDialog1.Font.Size TextBox3.Text = FontDialog1.Font.Style.ToString 'Grafik oluştur CizimAlaniPic.CreateGraphics() 'picturebox6 durum bilgileri ToolStripStatusLabel3.Text = CizimAlaniPic.Width ToolStripStatusLabel4.Text = CizimAlaniPic.Height ToolStripStatusLabel6.Text = CizimAlaniPic.BackColor.Name.ToString ToolStripStatusLabel11.Text = KalemRengi.Color.Name.ToString ToolStripStatusLabel13.Text = "hiçbiri" ToolStripStatusLabel15.Text = Windows.Forms.Cursor.Position.X ToolStripStatusLabel17.Text = Windows.Forms.Cursor.Position.Y End Sub Private Sub Panel2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles KrmRenkPaneli.Click KalemRengi.Color = Color.Red FircaRengi = Brushes.Red 'Şimdiki Renk ToolStripStatusLabel11.Text = KalemRengi.Color.Name.ToString End Sub Private Sub NumericUpDown1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown1.ValueChanged KalemRengi.Width = NumericUpDown1.Value End Sub Private Sub PortakalRenkPaleti_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PortakalRenkPaleti.Click KalemRengi.Color = Color.Orange FircaRengi = Brushes.Orange 'Şimdiki Renk ToolStripStatusLabel11.Text = KalemRengi.Color.Name.ToString End Sub Private Sub MaviRenkPaleti_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MaviRenkPaleti.Click KalemRengi.Color = Color.Blue FircaRengi = Brushes.Blue 'Şimdiki Renk ToolStripStatusLabel11.Text = KalemRengi.Color.Name.ToString End Sub Private Sub DesktopRenkPaleti_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles DesktopRenkPaleti.Click KalemRengi.Color = Color.Black FircaRengi = Brushes.Black 'Şimdiki Renk ToolStripStatusLabel11.Text = KalemRengi.Color.Name.ToString End Sub Private Sub YeşiRenkPaleti_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles YeşiRenkPaleti.Click KalemRengi.Color = Color.Green FircaRengi = Brushes.Green 'Şimdiki Renk ToolStripStatusLabel11.Text = KalemRengi.Color.Name.ToString End Sub Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize Panel1.Width = Me.Width If Yenile = True Then CizimAlaniPic.Height = PicBoyu CizimAlaniPic.Width = PicEni 'Panel kaydırma Panel12.Height = PicBoyu Panel12.Width = PicEni Else CizimAlaniPic.Height = Me.Height CizimAlaniPic.Width = Me.Width Panel12.Height = Me.Height - 150 Panel12.Width = Me.Width - 20 End If End Sub Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KalemPic.Click resim1 = True Sprey = False PicBoyutla = False TextYaz = False DikdortgenCiz = False dikdortgrn_Ciz = False elipsCiz = False UcgenCiz = False Ucgen_Ciz = False elips2_Ciz = False 'Yeni görüntü üzerinde çizim düzeltme YeniimajDuzenle() End Sub Private Sub DolguluDaire_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DolguluDaire.Click elipsCiz = True resim1 = False PicBoyutla = False TextYaz = False DikdortgenCiz = False dikdortgrn_Ciz = False Sprey = False UcgenCiz = False Ucgen_Ciz = False elips2_Ciz = False 'Yeni görüntü üzerinde çizim düzeltme YeniimajDuzenle() End Sub Private Sub DolgusuzKare_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DolgusuzKare.Click dikdortgrn_Ciz = True resim1 = False PicBoyutla = False TextYaz = False DikdortgenCiz = False Sprey = False elipsCiz = False UcgenCiz = False Ucgen_Ciz = False elips2_Ciz = False 'Yeni görüntü üzerinde çizim düzeltme YeniimajDuzenle() End Sub Private Sub YaziYazPic_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YaziYazPic.Click 'geçerli araç ToolStripStatusLabel13.Text = "Text Yaz" If TextBox1.Text.Length > 0 Then TextYaz = True resim1 = False PicBoyutla = False Sprey = False DikdortgenCiz = False dikdortgrn_Ciz = False elipsCiz = False UcgenCiz = False Ucgen_Ciz = False elips2_Ciz = False Else MsgBox("Girilecek metni yazınız." + vbNewLine + "Bu tuşa bastıktan sonra" + vbNewLine + "metnin görünmesini istediğiniz yeri tıklatın.", MsgBoxStyle.Information) End If 'Yeni görüntü üzerinde çizim düzeltme YeniimajDuzenle() End Sub Private Sub SilBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SilBtn.Click Try 'Renk Sil Using g As Graphics = Graphics.FromImage(CizimAlaniPic.Image) g.Clear(Color.White) Me.Refresh() End Using ' kalem genişliği NumericUpDown1.Value = 3 'Varsayılan Renk FircaRengi = Brushes.Black 'Araçlar TextYaz = False DikdortgenCiz = False resim1 = False elipsCiz = False 'Text sil TextBox1.Text = "" 'varsayılan text boyu NumericUpDown2.Value = 10 'Varsaılan kalem rengi KalemRengi.Color = Color.Black ' GÖRÜNTÜ AÇILIŞ SIRASINDA TÜM ARAÇ Seçimini Kaldır Ucgen_Ciz = False resim1 = False PicBoyutla = False TextYaz = False DikdortgenCiz = False dikdortgrn_Ciz = False elipsCiz = False UcgenCiz = False Sprey = False elips2_Ciz = False ' durum çubuğunu güncelleştir ToolStripStatusLabel6.Text = "Beyaz" ToolStripStatusLabel11.Text = KalemRengi.Color.Name.ToString ToolStripStatusLabel13.Text = "hiçbiri" Catch ex As Exception 'MsgBox(ex.Message, MsgBoxStyle.Exclamation, Me.Text) Beep() End Try End Sub Sub RenkSil() Dim bm As New Bitmap(1300, 1300) End Sub Private Sub FircaPic_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FircaPic.Click Sprey = True resim1 = False PicBoyutla = False TextYaz = False DikdortgenCiz = False dikdortgrn_Ciz = False elipsCiz = False UcgenCiz = False Ucgen_Ciz = False elips2_Ciz = False 'Yeni görüntü üzerinde çizim düzeltme YeniimajDuzenle() End Sub Private Sub SaklaPic_Click(sender As System.Object, e As System.EventArgs) Handles SaklaPic.Click Try If YeniimajCiz = True Then 'Kaynak bitmap alı Dim bm_source As New Bitmap(CizimAlaniPic.Image) 'Sonuç için bir bitmap yap Dim bm_dest As New Bitmap(CInt(CizimAlaniPic.Width), CInt(CizimAlaniPic.Width)) 'Sonuç Bitmap için bir Graf nesnesi yap Dim gr_dest As Graphics = Graphics.FromImage(bm_dest) 'Hedef bitmap halinde kaynak görüntüyü kopyala gr_dest.DrawImage(bm_source, 0, 0, bm_dest.Width + 1, bm_dest.Height + 1) 'Sonucu görüntüle Dim DsySakla As New SaveFileDialog DsySakla.FileName = "image" DsySakla.Filter = "Bitmap dosyalar |*.bmp" DsySakla.ShowDialog() bm_dest.Save(DsySakla.FileName) End If If YeniimajCiz = False Then 'Görüntü ve arka plan rengini alın Dim eskiimaj As Image = CizimAlaniPic.Image Dim arkaRenk As Color = CizimAlaniPic.BackColor '--------------------------------------------------------- 'Kodu düzenle Dim picEni As Integer = CizimAlaniPic.Width Dim picBoyu As Integer = CizimAlaniPic.Height 'Uygun büyüklükte yeni bir resim yapmak ve üzerine çizmek için hazır olsun Dim Yeniimaj2 As Image = New Bitmap(picEni, picBoyu, Imaging.PixelFormat.Format32bppArgb) Using g As Graphics = Graphics.FromImage(Yeniimaj2) 'Arka planı çizin, sonra görüntüle Using arkaFirca As New SolidBrush(arkaRenk) g.FillRectangle(arkaFirca, 0, 0, Yeniimaj2.Width, Yeniimaj2.Height) g.DrawImage(eskiimaj, 0, 0) End Using End Using Clipboard.SetImage(Yeniimaj2) Dim DsySakla As New SaveFileDialog DsySakla.FileName = "image" DsySakla.Filter = "Bitmap dosyalar |*.bmp" DsySakla.ShowDialog() Yeniimaj2.Save(DsySakla.FileName) End If Catch ex As Exception MsgBox(ex.Message, MsgBoxStyle.Exclamation, Me.Text) End Try End Sub Private Sub SariRenkPaleti_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles SariRenkPaleti.Click KalemRengi.Color = Color.Yellow FircaRengi = Brushes.Yellow 'Şimdiki Renk ToolStripStatusLabel11.Text = KalemRengi.Color.Name.ToString End Sub Private Sub GriRenkPaleti_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles GriRenkPaleti.Click KalemRengi.Color = Color.Gray FircaRengi = Brushes.Gray 'Şimdiki Renk ToolStripStatusLabel11.Text = KalemRengi.Color.Name.ToString End Sub Private Sub MorRenkPaleti_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MorRenkPaleti.Click KalemRengi.Color = Color.Purple FircaRengi = Brushes.Purple 'Şimdiki Renk ToolStripStatusLabel11.Text = KalemRengi.Color.Name.ToString End Sub Private Sub PembeRenkPaleti_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PembeRenkPaleti.Click KalemRengi.Color = Color.Pink FircaRengi = Brushes.Pink 'Şimdiki Renk ToolStripStatusLabel11.Text = KalemRengi.Color.Name.ToString End Sub Private Sub TextBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Click TextBox1.Text = "" End Sub Private Sub PictureBox7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FontSecPic.Click FontDialog1.ShowDialog() TextBox2.Text = FontDialog1.Font.Name NumericUpDown2.Value = FontDialog1.Font.Size TextBox3.Text = FontDialog1.Font.Style.ToString End Sub Private Sub PictureBox8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DolguUcgen.Click MsgBox("Formda üçgen noktalarını seç." + vbNewLine + "Ayrıca kalem rengini ve genişliğini de seçebilirsiniz.", MsgBoxStyle.Information) Ucgen_Ciz = True resim1 = False PicBoyutla = False TextYaz = False DikdortgenCiz = False dikdortgrn_Ciz = False elipsCiz = False UcgenCiz = False Sprey = False elips2_Ciz = False 'Yeni görüntü üzerinde çizim düzeltme YeniimajDuzenle() End Sub Private Sub DolgusuzDaire_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DolgusuzDaire.Click elips2_Ciz = True resim1 = False PicBoyutla = False TextYaz = False DikdortgenCiz = False dikdortgrn_Ciz = False elipsCiz = False UcgenCiz = False Ucgen_Ciz = False Sprey = False 'Yeni görüntü üzerinde çizim düzeltme YeniimajDuzenle() End Sub Private Sub DolguluKare_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DolguluKare.Click DikdortgenCiz = True resim1 = False PicBoyutla = False TextYaz = False Sprey = False dikdortgrn_Ciz = False elipsCiz = False UcgenCiz = False Ucgen_Ciz = False elips2_Ciz = False 'Yeni görüntü üzerinde çizim düzeltme YeniimajDuzenle() End Sub Private Sub DolgusuzUcgen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DolgusuzUcgen.Click 'Açıklama yap Göster MsgBox("Formda üçgen noktalarını seç." + vbNewLine + "Ayrıca kalem rengini ve genişliğini de seçebilirsiniz.", MsgBoxStyle.Information) UcgenCiz = True resim1 = False PicBoyutla = False TextYaz = False DikdortgenCiz = False dikdortgrn_Ciz = False elipsCiz = False Sprey = False Ucgen_Ciz = False elips2_Ciz = False 'Yeni görüntü üzerinde çizim düzeltme YeniimajDuzenle() End Sub Private Sub CizimAlaniArkaFonPic_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CizimAlaniArkaFonPic.Click CizimAlaniPic.BackColor = KalemRengi.Color ToolStripStatusLabel6.Text = CizimAlaniPic.BackColor.Name.ToString End Sub Private Sub BeyazRenkPaleti_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BeyazRenkPaleti.Click KalemRengi.Color = Color.White FircaRengi = Brushes.White 'Şimdiki Renk ToolStripStatusLabel11.Text = KalemRengi.Color.Name.ToString End Sub Private Sub AlanKaydirPic_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles AlanKaydirPic.MouseUp 'PictureBox 'u yeniden boyutlandır PicBoyutla = True resim1 = False Sprey = False TextYaz = False DikdortgenCiz = False dikdortgrn_Ciz = False elipsCiz = False UcgenCiz = False Ucgen_Ciz = False elips2_Ciz = False End Sub Private Sub PictureBox6_Resize(ByVal sender As Object, ByVal e As System.EventArgs) 'picturebox6 yükseklik ve genişliğini değiştir ToolStripStatusLabel3.Text = CizimAlaniPic.Width ToolStripStatusLabel4.Text = CizimAlaniPic.Height End Sub Private Sub AlanKaydirPic_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AlanKaydirPic.Click 'Şimdiki araç ToolStripStatusLabel13.Text = "Boyutlandı" 'Yeni görüntü üzerinde çizim düzeltme YeniimajDuzenle() End Sub Private Sub AcBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AcBtn.Click OpenFileDialog1.ShowDialog() OpenFileDialog1.Filter = "Bitmap Dosyalar (*)|*.bmp;*.gif;*.jpg;*.Png" 'Tüm Dosyalar|*.*| If IO.File.Exists(OpenFileDialog1.FileName) Then Dim file As String = OpenFileDialog1.FileName Dim validation As New IO.FileInfo(file) If CizimAlaniPic.Image IsNot Nothing Then Using g As Graphics = Graphics.FromImage(CizimAlaniPic.Image) g.Clear(Color.White) Me.Refresh() End Using End If Yeniimaj = New Bitmap(OpenFileDialog1.FileName) If Yeniimaj.Width > 1300 Or Yeniimaj.Height > 1300 Then CizimAlaniPic.Width = Yeniimaj.Width CizimAlaniPic.Height = Yeniimaj.Height Panel12.AutoScroll = True End If CizimAlaniPic.Image = Yeniimaj YeniimajCiz = True ' YENİ GÖRÜNTÜ AÇILIŞI SIRASINDA TÜM ARAÇLARIN Seçimini Kaldır Ucgen_Ciz = False resim1 = False PicBoyutla = False TextYaz = False DikdortgenCiz = False dikdortgrn_Ciz = False elipsCiz = False UcgenCiz = False Sprey = False elips2_Ciz = False 'görüntü boyutunu hatırla imajX = CizimAlaniPic.Width imajY = CizimAlaniPic.Height End If End Sub Private Sub PictureBox6_MouseDown1(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles CizimAlaniPic.MouseDown ilkX = e.X ilkY = e.Y 'test If Sprey = True Then SpreyBaslamaYeri = True End If ' üçgeni test et If UcgenCiz = True Then If Deger1 = 0 Then ilkTiklama = New Point(e.X, e.Y) End If If Deger1 = 1 Then ikinciTiklama = New Point(e.X, e.Y) End If If Deger1 = 2 Then UcuncuTiklama = New Point(e.X, e.Y) Dim pts() As Point = {ilkTiklama, ikinciTiklama, UcuncuTiklama} If YeniimajCiz = True Then Dim graph1 As Graphics = Graphics.FromImage(Yeniimaj) graph1.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias graph1.DrawPolygon(KalemRengi, pts) CizimAlaniPic.Image = Yeniimaj Else Grafik.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias Grafik.DrawPolygon(KalemRengi, pts) CizimAlaniPic.Image = bm End If Deger1 = -1 End If Deger1 = Deger1 + 1 End If 'içidolu üçgen çiz If Ucgen_Ciz = True Then If Deger2 = 0 Then ilkTiklama2 = New Point(e.X, e.Y) End If If Deger2 = 1 Then ikinciTiklama2 = New Point(e.X, e.Y) End If If Deger2 = 2 Then UcuncuTiklama2 = New Point(e.X, e.Y) Dim pts1() As Point = {ilkTiklama2, ikinciTiklama2, UcuncuTiklama2} If YeniimajCiz = True Then Dim graph1 As Graphics = Graphics.FromImage(Yeniimaj) graph1.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias graph1.DrawPolygon(KalemRengi, pts1) graph1.FillPolygon(FircaRengi, pts1) CizimAlaniPic.Image = Yeniimaj Else Grafik.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias Grafik.DrawPolygon(KalemRengi, pts1) Grafik.FillPolygon(FircaRengi, pts1) CizimAlaniPic.Image = bm End If Deger2 = -1 End If Deger2 = Deger2 + 1 End If If PicBoyutla = True Then CizimiBoyutla = True End If End Sub Private Sub CizimAlaniPic_MouseMove1(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles CizimAlaniPic.MouseMove xpos = e.X ypos = e.Y picx = e.X picy = e.Y ToolStripStatusLabel15.Text = xpos.ToString ToolStripStatusLabel17.Text = ypos.ToString 'Sprey If Sprey = True And SpreyBaslamaYeri = True Then Dim g As Graphics = CizimAlaniPic.CreateGraphics If YeniimajCiz = True Then Dim graph1 As Graphics = Graphics.FromImage(Yeniimaj) graph1.DrawEllipse(KalemRengi, e.X, e.Y, 10, 10) graph1.FillEllipse(FircaRengi, e.X, e.Y, 10, 10) CizimAlaniPic.Image = Yeniimaj Else Grafik.DrawEllipse(KalemRengi, e.X, e.Y, 10, 10) Grafik.FillEllipse(FircaRengi, e.X, e.Y, 10, 10) CizimAlaniPic.Image = bm End If End If If CizimiBoyutla = True Then CizimAlaniPic.Size = New Point(e.X, e.Y) Panel12.Height = Me.Height - 150 Panel12.Width = Me.Width - 20 'kullanılmayan rengi farklı yapmak için Me.BackColor = Color.Gray CizimAlaniPic.BackColor = Color.White ' .Bisque If YeniimajCiz = True Then CizimAlaniPic.Image = Yeniimaj Else CizimAlaniPic.Image = bm End If End If End Sub Private Sub PictureBox6_MouseUp1(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles CizimAlaniPic.MouseUp secx = e.X secy = e.Y If resim1 = True Then If YeniimajCiz = True Then Dim graph1 As Graphics = Graphics.FromImage(Yeniimaj) graph1.DrawLine(KalemRengi, ilkX, ilkY, secx, secy) CizimAlaniPic.Image = Yeniimaj Else Grafik.DrawLine(KalemRengi, ilkX, ilkY, secx, secy) CizimAlaniPic.Image = bm End If End If '------------------------------------------- If elipsCiz = True Then Dim g As Graphics = CizimAlaniPic.CreateGraphics If YeniimajCiz = True Then Dim graph1 As Graphics = Graphics.FromImage(Yeniimaj) graph1.DrawEllipse(KalemRengi, ilkX, ilkY, secx - ilkX, secy - ilkY) graph1.FillEllipse(FircaRengi, ilkX, ilkY, secx - ilkX, secy - ilkY) CizimAlaniPic.Image = Yeniimaj Else Grafik.DrawEllipse(KalemRengi, ilkX, ilkY, secx - ilkX, secy - ilkY) Grafik.FillEllipse(FircaRengi, ilkX, ilkY, secx - ilkX, secy - ilkY) CizimAlaniPic.Image = bm End If End If If DikdortgenCiz = True Then Dim g As Graphics = CizimAlaniPic.CreateGraphics If YeniimajCiz = True Then Dim graph1 As Graphics = Graphics.FromImage(Yeniimaj) graph1.DrawRectangle(KalemRengi, ilkX, ilkY, secx - ilkX, secy - ilkY) graph1.FillRectangle(FircaRengi, ilkX, ilkY, secx - ilkX, secy - ilkY) CizimAlaniPic.Image = Yeniimaj Else Grafik.DrawRectangle(KalemRengi, ilkX, ilkY, secx - ilkX, secy - ilkY) Grafik.FillRectangle(FircaRengi, ilkX, ilkY, secx - ilkX, secy - ilkY) CizimAlaniPic.Image = bm End If End If If TextYaz = True Then Dim g As Graphics = CizimAlaniPic.CreateGraphics 'font Dim font2 As Font Dim textStyle As New FontStyle If TextBox3.Text = "Italic" Then textStyle = FontStyle.Italic ElseIf TextBox3.Text = "Regular" Then textStyle = FontStyle.Regular ElseIf TextBox3.Text = "Bold" Then textStyle = FontStyle.Bold ElseIf TextBox3.Text = "Strikeout" Then textStyle = FontStyle.Strikeout ElseIf TextBox3.Text = "Underline" Then textStyle = FontStyle.Underline Else 'Varsayılan textStyle = FontStyle.Regular End If font2 = New Font(TextBox2.Text, NumericUpDown2.Value, textStyle) If YeniimajCiz = True Then Dim graph1 As Graphics = Graphics.FromImage(Yeniimaj) graph1.DrawString(TextBox1.Text, font2, FircaRengi, ilkX, ilkY) CizimAlaniPic.Image = Yeniimaj Else Grafik.DrawString(TextBox1.Text, font2, FircaRengi, ilkX, ilkY) CizimAlaniPic.Image = bm End If End If If elips2_Ciz = True Then Dim g As Graphics = CizimAlaniPic.CreateGraphics If YeniimajCiz = True Then Dim graph1 As Graphics = Graphics.FromImage(Yeniimaj) graph1.DrawEllipse(KalemRengi, ilkX, ilkY, secx - ilkX, secy - ilkY) CizimAlaniPic.Image = Yeniimaj Else Grafik.DrawEllipse(KalemRengi, ilkX, ilkY, secx - ilkX, secy - ilkY) CizimAlaniPic.Image = bm End If End If If dikdortgrn_Ciz = True Then Dim g As Graphics = CizimAlaniPic.CreateGraphics If YeniimajCiz = True Then Dim graph1 As Graphics = Graphics.FromImage(Yeniimaj) graph1.DrawRectangle(KalemRengi, ilkX, ilkY, secx - ilkX, secy - ilkY) CizimAlaniPic.Image = Yeniimaj Else Grafik.DrawRectangle(KalemRengi, ilkX, ilkY, secx - ilkX, secy - ilkY) CizimAlaniPic.Image = bm End If End If If PicBoyutla = True Then PicEni = e.X PicBoyu = e.Y If YeniimajCiz = True Then CizimAlaniPic.SizeMode = PictureBoxSizeMode.StretchImage Dim graph1 As Graphics = Graphics.FromImage(Yeniimaj) CizimAlaniPic.Image = Yeniimaj Else CizimAlaniPic.Image = bm End If CizimiBoyutla = False PicBoyutla = False Yenile = True End If SpreyBaslamaYeri = False End Sub Private Sub PictureBox6_Resize1(ByVal sender As Object, ByVal e As System.EventArgs) Handles CizimAlaniPic.Resize If YeniimajCiz = True Then ZeminX = CizimAlaniPic.Width ZeminY = CizimAlaniPic.Height End If ToolStripStatusLabel3.Text = CizimAlaniPic.Width ToolStripStatusLabel4.Text = CizimAlaniPic.Height End Sub Sub YeniimajDuzenle() If YeniimajCiz = True Then If CizimAlaniPic.SizeMode = PictureBoxSizeMode.StretchImage Then CizimAlaniPic.SizeMode = PictureBoxSizeMode.Normal CizimAlaniPic.Image = Yeniimaj End If If CizimAlaniPic.SizeMode = PictureBoxSizeMode.Normal Then Panel12.AutoScroll = True CizimAlaniPic.Width = imajX CizimAlaniPic.Height = imajY End If End If End Sub Private Sub RenkPal_Click(sender As System.Object, e As System.EventArgs) Handles RenkPal.Click 'daha Çok renk seç If ColorDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then KalemRengi.Color = ColorDialog1.Color FircaRengi = New SolidBrush(ColorDialog1.Color) 'Şimdiki renk ToolStripStatusLabel11.Text = KalemRengi.Color.Name.ToString End If End Sub End Class

bu Haziran 12, 2014 Komentar

Related Posts

PAINT-RESİM YAPMA PROGRAMI

4/ 5

Oleh bu