VisualBasic.Net / Sıra Dışı Form Yapma

[adiyamanli02]

Merhaba Arkadaşlar Ben adiyamanli02

Bu Konuda Size " Sıra Dışı Form Yapma"'yı Öğreticem

Eğer Kod Yararlı Olur veya Kullanırsanız GüzelYorum Yeterlidir ...

Kod ;

Formun FormBorderStyle özelliğini none yaparak başlık çubuğunun ve kenarlarının kaldırılmasını sağlayalaım.[/COLOR][/SIZE][/FONT][/CENTER][/SIZE][/FONT][/CENTER]
[FONT=Trebuchet MS][SIZE=6][CENTER][FONT=Trebuchet MS][SIZE=6][COLOR=#8000ff]
[CENTER]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

​

​

 

[Executive]

Yararlı bilgi kardeşim

 

[adiyamanli02]

Yararlı bilgi kardeşim

Yararlı Ders Diye Değiştirelim Onu

 

[Executive]

Yararlı Ders Diye Değiştirelim Onu

Senden biraz daha ders alabilirmiyim hocam büyüksünüz hocam

 

[PeachCat]

Paylaşım için tesekkurler.

 

[adiyamanli02]

Paylaşım için tesekkurler.

Lafı Olmaz - Takipte Kalın Yeterli

 

[PeachCat]

Süper üye hayırlı olsun canım

Eyw darısı başına

 

[Executive]

Eyw darısı başına

Canımsın

 

[Erhan Hack]

tşekkürler

 

[Ontheboss]

Eyvallah