Sira disi form - Papatyam Forum

Papatyam Forum

Go Back   Papatyam Forum > ..::.BİLGİSAYAR & TEKNOLOJİ.::. > Programlama > visual basic.net

Yeni Konu aç  Cevapla
 
Seçenekler
Alt 29 March 2008, 18:15   Mesaj No:1

tamerr89

Papatyam Paylaşımcı Üyesi
Avatar Otomotik
Durumu:tamerr89 isimli Üye şimdilik offline konumundadır
Papatyam No : 1196
Üyelik T.: 09 December 2007
Arkadaşları:0
Cinsiyet:
Yaş:34
Mesaj: 212
Konular:
Beğenildi:
Beğendi:
Takdirleri:10
Takdir Et:
Konu Bu  Üyemize Aittir!
Standart Sira disi form

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&quot, _

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
Alıntı ile Cevapla
Cevapla

Bookmarks

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler

Benzer Konular
Konu Başlıkları Konuyu Başlatan

Papatyam Forum Ana Kategori Başlıkları

Cevaplar Son Mesajlar
Ramazanda Form Koruma Diyeti PESTEMAL Beslenme ve Diyet 0 20 February 2012 12:05
Vb.net de form soldurma efekti tamerr89 visual basic.net 0 29 March 2008 18:19
Sifreli form tamerr89 visual basic.net 0 29 March 2008 18:11
Animasyonlu form açilisi tamerr89 delphi 0 04 March 2008 14:16
ARKAMIZDA SIRA SIRA DAĞLAR BIRAKTIK ihsan034 Deneme & Düz Yazılar 5 23 June 2006 12:56

Yeni Sayfa 1

www.papatyam.org Ana Sayfa

Tefekküre Davet Köşesi

Papatyam Sosyal Medya Guruplarımıza Katılın

                       Instagram         

Papatyam alemdarhost.com sunucularında barındırılmaktadır.