Sira disi form
Formun FormBorderStyle özelliğini none yaparak başlık çubuğunun ve kenarlarının kaldırılmasını sağlayalaım.
BackColor özelliğinden uygun bir renk seçelim.
3 adet button ekleyelim text özelliklerini ( _ - X ) yapalım.boyutlarını iyice küçültüp forun sağ üst köşesine
yerleştirelim.Anchor özelliklerini top,right yaparak sürekli formun sağ üst köşesinde kalmalarını sağlayalım.
Aşağıdaki kodu projemize ekleyelim,açıklamaları üzerlerinde yazıyor.
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.FormBorderStyle = FormBorderStyle.None
Me.BackColor = Color.Blue
End Sub
Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
Dim Grafik_Şekli As Drawing2D.GraphicsPath
Grafik_Şekli = New Drawing2D.GraphicsPath()
'0,0 noktasından formun genişiği kadar 90 pixel yükseklikte bir dikdörtgen çiz
Grafik_Şekli.AddRectangle(New Rectangle(0, 0, Me.ClientSize.Width, 90))
'95 punto büyüklükte Tahoma fontuyla kalın olarak Sıradışı Form Yaz
Grafik_Şekli.AddString("Sıra Dışı Form", _
New FontFamily("Tahoma"
, _
FontStyle.Bold, _
95, _
New PointF(0, 100), _
New StringFormat(StringFormat.GenericDefault))
'Formun altına, formun genişiği kadar 90 pixel yükseklikte bir dikdörtgen daha çiz
Grafik_Şekli.AddRectangle(New Rectangle(0, Me.ClientSize.Height - 90, Me.ClientSize.Width, 90))
'Bu şekli forma uygula
Me.Region = New Region(Grafik_Şekli)
End Sub
Dim tıklanan_nokta As Point
Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
'Farenin tıklandığı noktadaki koordinatlarını al
tıklanan_nokta = New Point(e.X, e.Y)
End Sub
Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
'Sol tuş basılı olarak hareket ettiriliyorsa formu taşı
If e.Button = MouseButtons.Left Then
Dim Koordinatlar As Point
Koordinatlar = Control.MousePosition
Koordinatlar.Offset(-tıklanan_nokta.X, -tıklanan_nokta.Y)
Me.Location = Koordinatlar
End If
End Sub
'Minimize butonu
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.WindowState = FormWindowState.Minimized
End Sub
'Makzimize butonu
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Me.WindowState = FormWindowState.Maximized Then
Me.WindowState = FormWindowState.Normal
Else
Me.WindowState = FormWindowState.Maximized
End If
End Sub
'Kapatma butonu
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.Close()
End Sub
End Class