Programalama > VISUAL BASIC.NET

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