Visual Studio 2010

Ekran çözünürlüğü

1366 x 768 önerilen çözünürlük
' 1024 x 768 değiştirilen çözünürlük

Imports System.Runtime.InteropServices

Public Class Form1


Const ENUM_CURRENT_SETTINGS As Integer = -1
Const CDS_UPDATEREGISTRY As Integer = &H1
Const CDS_TEST As Long = &H2

Const CCDEVICENAME As Integer = 32
Const CCFORMNAME As Integer = 32

Const DISP_CHANGE_SUCCESSFUL As Integer = 0
Const DISP_CHANGE_RESTART As Integer = 1
Const DISP_CHANGE_FAILED As Integer = -1

Private Declare Function EnumDisplaySettings Lib "user32" Alias "EnumDisplaySettingsA" (ByVal lpszDeviceName As Integer, ByVal iModeNum As Integer, ByRef lpDevMode As DEVMODE) As Integer
Private Declare Function ChangeDisplaySettings Lib "user32" Alias "ChangeDisplaySettingsA" (ByRef DEVMODE As DEVMODE, ByVal flags As Integer) As Integer

<StructLayout(LayoutKind.Sequential)> Public Structure DEVMODE
<MarshalAsAttribute(UnmanagedType.ByValTStr, SizeConst:=CCDEVICENAME)> Public dmDeviceName As String
Public dmSpecVersion As Short
Public dmDriverVersion As Short
Public dmSize As Short
Public dmDriverExtra As Short
Public dmFields As Integer
Public dmOrientation As Short
Public dmPaperSize As Short
Public dmPaperLength As Short
Public dmPaperWidth As Short
Public dmScale As Short
Public dmCopies As Short
Public dmDefaultSource As Short
Public dmPrintQuality As Short
Public dmColor As Short
Public dmDuplex As Short
Public dmYResolution As Short
Public dmTTOption As Short
Public dmCollate As Short
<MarshalAsAttribute(UnmanagedType.ByValTStr, SizeConst:=CCFORMNAME)> Public dmFormName As String
Public dmUnusedPadding As Short
Public dmBitsPerPel As Short
Public dmPelsWidth As Integer
Public dmPelsHeight As Integer
Public dmDisplayFlags As Integer
Public dmDisplayFrequency As Integer
End Structure

Public Sub CozunurlukDegistir(ByVal theWidth As Integer, ByVal theHeight As Integer)

Dim DevM As DEVMODE

DevM.dmDeviceName = New [String](New Char(32) {})
DevM.dmFormName = New [String](New Char(32) {})
DevM.dmSize = CShort(Marshal.SizeOf(GetType(DEVMODE)))


If 0 <> EnumDisplaySettings(Nothing, ENUM_CURRENT_SETTINGS, DevM) Then
Dim lResult As Integer

DevM.dmPelsWidth = theWidth
DevM.dmPelsHeight = theHeight


lResult = ChangeDisplaySettings(DevM, CDS_TEST)

If lResult = DISP_CHANGE_FAILED Then
MsgBox("Çözünürlük değiştirilemedi..", MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Screen Resolution Change Failed")
Else

lResult = ChangeDisplaySettings(DevM, CDS_UPDATEREGISTRY)

Select Case lResult
Case DISP_CHANGE_RESTART
MsgBox("Değişikliklerin uygulanması için bilgisayarınızı yeniden başlatmalısınız.", MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Tamam")
Case DISP_CHANGE_SUCCESSFUL

Case Else
MsgBox("Çözünürlük değiştirilemedi.", MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Hata")
End Select
End If


End If
End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
CozunurlukDegistir(TextBox1.Text, TextBox2.Text)
End Sub


End Class
******
Paint
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.*******()
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.*******()
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
*****
Ekran Kilitleyici
Imports Microsoft.Win32 'register için

Public Class Form1

Public sayac As Integer = 0
Public Sifre As String
Private EkranKilitli As Boolean = False

Private Sub Form1_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
If EkranKilitli = True Then
e.Cancel = True
Else
e.Cancel = False
End If
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
On Error Resume Next
Dim regkey As RegistryKey = Registry.CurrentUser.OpenSubKey("SOFTWARE", False)
Dim subregkey As RegistryKey = regkey.OpenSubKey("Kitaplık", False)
Sifre = subregkey.GetValue("Uvertür", Environment.UserDomainName.ToString) ' Environment.UserName.ToString)
If Sifre = Nothing Then Sifre = Environment.UserDomainName.ToString
subregkey.Close()
regkey.Close()
Me.Show()
TextBox1.Focus()

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = Sifre Then
Button1.SendToBack()
Button2.BackColor = Color.Red
Button2.ForeColor = Color.White
Button2.Enabled = True
SifDegistirBtn.Enabled = True
Else
Button2.Enabled = False
MsgBox("Başarısız ... Girişi Tekrar deneyin!", MsgBoxStyle.Critical, "Giriş Başarısız")
TextBox1.Clear()
TextBox1.Focus()
End If
End Sub

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
If Me.CheckBox1.Checked = True Then
Me.Opacity = 0.3
Else
If Not Me.CheckBox1.Checked = True Then
Me.Opacity = 10
End If
End If
End Sub

Private Sub Kilitle()
Dim process As System.Diagnostics.Process = Nothing
Dim psi As New ProcessStartInfo
psi.UseShellExecute = True
psi.FileName = "taskkill.exe"
psi.Arguments = "/F /IM explorer.exe"
process = System.Diagnostics.Process.Start(psi)
End Sub
Private Sub KilitAc()
Dim process As System.Diagnostics.Process = Nothing
Dim psi As New ProcessStartInfo
psi.UseShellExecute = True
psi.FileName = "taskkill.exe"
psi.Arguments = "/F /IM taskmgr.exe"
process = System.Diagnostics.Process.Start(psi)
Shell("explorer.exe")
TextBox1.Clear()
End Sub

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
If Button2.Text = "Ekranı Kilitle" Then
Call Kilitle()
SifDegistirBtn.Visible = True
EkranKilitli = True
Button2.Text = "Ekranı Aç"
TextBox1.Clear()
Else

If TextBox1.Text = Sifre Then
Call KilitAc()
SifDegistirBtn.Visible = True
EkranKilitli = False
Button2.Text = "Ekranı Kilitle"
System.Threading.Thread.Sleep(2000)
Button2.SendToBack()
TextBox1.Clear()
TextBox1.Focus()
SifDegistirBtn.Visible = False
Me.Focus()
Else
Beep()
MessageBox.Show("Ekranı Açmak için Şifre gir")
TextBox1.Focus()
End If


End If
End Sub

Private Sub PictureBox2_Click(sender As System.Object, e As System.EventArgs) Handles PictureBox2.Click
End
End Sub

Private Sub PictureBox3_Click(sender As System.Object, e As System.EventArgs) Handles PictureBox3.Click
'GÖREV YÖNETİCİSİNİ AÇ
Dim k As Long
k = Shell("C:\WINDOWS\winSxS\wow64_microsoft-windows-advancedtaskmanager_31bf3856ad364e35_6.2.9200.16465_none_121bce9ea99327d4\LaunchTM.exe")
End Sub


Private Sub SifDegistirBtn_Click(sender As System.Object, e As System.EventArgs) Handles SifDegistirBtn.Click
FrmSifre.Show()
End Sub

End Class


Alıntıdır.

visual basic 2010 kodlar

Arat böyle netten