29 March 2008, 18:15 | Mesaj No:1 |
Durumu:
Papatyam No :
1196
Üyelik T.:
09 December 2007
Arkadaşları:0
Cinsiyet:
Yaş:34
|
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", _ 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 |
Bookmarks |
Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
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 |
Tefekküre Davet Köşesi |
|
Papatyam Sosyal Medya Guruplarımıza Katılın |