Anasayfa > Kodlar > VB.NET ile değişik formlar yapmak

VB.NET ile değişik formlar yapmak


Değişiklik isteyenler inceleyin.

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.
Kolay gelsin...DAKİNİ.

 


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


TD Software


Reklamlar
  1. 10/07/2011, 01:40

    vb .NET ile, FormBorderStyle özelliği None olan bir Formu, fare ile boyutlandırmak için kodu nasıl olmalıdır.Bu konuda bir kod yayınlarsanız.memnun olurum

    Beğen

  1. No trackbacks yet.

Bir Yanıt Bırakın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: