C# KOD ÖRNEKLERİ: BAŞLIKSIZ FORM ÖRNEĞİ

BAŞLIKSIZ FORM ÖRNEĞİ

PostIt-Yapışkan Form Türü bir Çalışma. Bakınız >>

BorderStyle özelliği None olan bir form, Bir RichTextBox, Formu sürüklemek için altta bir panel ,panelin dock; özelliği bottom, Anchor Özelliği; Bottom, Right olan Picture1 (içine saydam ikon),Başlık olarak Dock özelliği; top ve üzerinde saat ile takvimi gösterecek 2 adet label , bir ContextMenuStrip1, ve bir timer ekleyin.

Imports System.Drawing.Color
Imports System.IO
Imports System.Text
Imports System       ' Encoding.GetEncoding(1254))Türkçe karakter 
Public Class Form2
    Const i As Integer = &HA1
    Const j As Integer = 2
    Private sarı, mavi, pembe, yeşil As String
    Public SuruklenenDsy As String 'sürüklenen,opendialog ile açılan,form başlığında gösterilen dosyaAdı ve yolu
    Public TxtOku As IO.StreamReader
    Public uzanti As String
    Dim isSizable As Boolean = True

#Region "Textten ve başlıktan SÜRÜKLE"

Private Sub PictureBox2_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseDown
        PictureBox2.Capture = False
        Dim msg As Message = Message.Create(Me.Handle, i, New IntPtr(j), IntPtr.Zero)

Me.DefWndProc(msg)
    End Sub
#End Region

#Region "Boyutlandırma değişkenleri"
    Dim GripDrag As Boolean
    Dim InitialSizeX As Integer
    Dim InitialSizeY As Integer
#End Region

#Region "Formu Picture1 den sürükleyerek boyutlama"
  
    Private Sub PictureBox1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Left Then
            GripDrag = True
            InitialSizeX = Me.Width
            InitialSizeY = Me.Height
        End If
    End Sub
    Private Sub PictureBox1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
        If GripDrag = True Then
            Me.Width = InitialSizeX + (Windows.Forms.Cursor.Position.X - (Me.Width + Me.Location.X))
            Me.Height = InitialSizeY + (Windows.Forms.Cursor.Position.Y - (Me.Height + Me.Location.Y))
            InitialSizeX = Me.Width
            InitialSizeY = Me.Height
            Me.Refresh()
        End If
    End Sub
    Private Sub PictureBox1_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp
        GripDrag = False
    End Sub
#End Region

Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label1.Text = DateString
        Label2.Text = TimeOfDay
    End Sub
    Public Sub RastgeleRenkseç()
        Dim seçilenRenk As Integer
        Dim rastgeleSec As New Random()
        seçilenRenk = rastgeleSec.Next(1, 5)

Select Case seçilenRenk
            Case 1 : Call sarırenk()
            Case 2 : Call mavirenk()
            Case 3 : Call pemberenk()
            Case 4 : Call yeşilrenk()
        End Select
    End Sub
    Private Sub PictureBox4_Click(sender As System.Object, e As System.EventArgs) Handles PictureBox4.Click
        Call RastgeleRenkseç()
    End Sub

Private Sub MNMavi_Click(sender As System.Object, e As System.EventArgs) Handles MNMavi.Click
        Call mavirenk()
    End Sub

Public Sub mavirenk()

Me.StartPosition = FormStartPosition.WindowsDefaultLocation
        Me.PictureBox2.BackColor = Color.LightSteelBlue
        Me.Label1.BackColor = Color.LightSteelBlue
        Me.Label2.BackColor = Color.LightSteelBlue
        Me.PictureBox2.BackColor = Color.LightSteelBlue
        Me.Panel1.BackColor = Color.Lavender
        Me.RTBox.BackColor = Color.Lavender
        PictureBox1.BackColor = Transparent
        Me.Show()
        Me.Focus()
    End Sub

Private Sub MnSarı_Click(sender As System.Object, e As System.EventArgs) Handles MnSarı.Click
        Call sarırenk()
    End Sub

Public Sub sarırenk()

Me.PictureBox2.BackColor = Color.Bisque
        Me.RTBox.BackColor = Color.LemonChiffon
        Me.StartPosition = FormStartPosition.WindowsDefaultLocation
        Label1.BackColor = PictureBox2.BackColor
        Label2.BackColor = PictureBox2.BackColor
        Me.Panel1.BackColor = Color.LemonChiffon
        PictureBox1.BackColor = Transparent
        Me.Show()
        Me.Focus()
    End Sub

Private Sub MnPemba_Click(sender As System.Object, e As System.EventArgs) Handles MnPemba.Click
        Call pemberenk()
    End Sub

Public Sub pemberenk()

Me.PictureBox2.BackColor = Color.Pink
        Me.RTBox.BackColor = Color.LavenderBlush
        Me.Panel1.BackColor = Color.LavenderBlush
        Me.StartPosition = FormStartPosition.WindowsDefaultLocation
        Label1.BackColor = PictureBox2.BackColor
        Label2.BackColor = PictureBox2.BackColor
        PictureBox1.BackColor = Transparent 'RTBox.BackColor
        Me.Show()
        Me.Focus()
    End Sub
    Private Sub MnYeşil_Click(sender As System.Object, e As System.EventArgs) Handles MnYeşil.Click

Call yeşilrenk()
    End Sub

Public Sub yeşilrenk()

Me.PictureBox2.BackColor = Color.YellowGreen 'ForestGreen
        Me.RTBox.BackColor = Color.LightGreen
        Me.Panel1.BackColor = Color.LightGreen
        Me.StartPosition = FormStartPosition.WindowsDefaultLocation
        Label1.BackColor = PictureBox2.BackColor
        Label2.BackColor = PictureBox2.BackColor
        PictureBox1.BackColor = Transparent 'RTBox.BackColor
        Me.Show()
        Me.Focus()
    End Sub

Private Sub PictureBox4_MouseLeave(sender As System.Object, e As System.EventArgs) Handles PictureBox4.MouseLeave
        Dim tooltip As New ToolTip()
        tooltip.SetToolTip(PictureBox4, "Renk değiştir")
    End Sub

Private Sub PictureBox3_MouseLeave(sender As System.Object, e As System.EventArgs) Handles PictureBox3.MouseLeave
        Dim tooltip As New ToolTip()
        tooltip.SetToolTip(PictureBox3, "KAPAT")
    End Sub

Public Sub hizala()
        Me.RTBox.SelectAll()
        Me.RTBox.SelectionIndent = 13
        Me.RTBox.DeselectAll()
    End Sub

Private Sub MNKapat_Click(sender As System.Object, e As System.EventArgs) Handles MNKapat.Click
        Me.Close()
    End Sub

Private Sub mnkes_Click(sender As System.Object, e As System.EventArgs) Handles mnkes.Click
        Try
            RTBox.Cut()
        Catch exc As Exception
            MessageBox.Show("Belge içeriğini kesmek için açılamıyor.", "Kes", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

Private Sub Mnkopyala_Click(sender As System.Object, e As System.EventArgs) Handles Mnkopyala.Click
        Try
            RTBox.Copy()
        Catch exc As Exception
            MessageBox.Show("Belge içeriğini kopyalamak için açılamıyor.", "Kopyala", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

Private Sub MnYapıstir_Click(sender As System.Object, e As System.EventArgs) Handles MnYapıstir.Click
        Try
            RTBox.Paste()
        Catch exc As Exception
            MessageBox.Show("Panoya alınan  Belge içeriği açılamıyor.", " Yapıştır", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

Private Sub MnSil_Click(sender As System.Object, e As System.EventArgs) Handles MnSil.Click
        RTBox.Clear()
    End Sub

Private Sub MNTümKapat_Click(sender As System.Object, e As System.EventArgs)
        End
    End Sub

Private Sub Label2_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles Label2.MouseDown
        Label2.Capture = False
        Dim msg As Message = Message.Create(Me.Handle, i, New IntPtr(j), IntPtr.Zero)
        Me.DefWndProc(msg)

End Sub

Private Sub Label1_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseDown
        Label1.Capture = False
        Dim msg As Message = Message.Create(Me.Handle, i, New IntPtr(j), IntPtr.Zero)
        Me.DefWndProc(msg)
    End Sub

Private Sub PictureBox3_Click(sender As System.Object, e As System.EventArgs) Handles PictureBox3.Click
        Me.Close()

End Sub

Private Sub Panel1_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseDown
        Panel1.Capture = False
        Dim msg As Message = Message.Create(Me.Handle, i, New IntPtr(j), IntPtr.Zero)

Me.DefWndProc(msg)
    End Sub

Private Sub mngeri_Click(sender As System.Object, e As System.EventArgs)
        If RTBox.CanUndo Then
            RTBox.Undo()
        End If
    End Sub

Private Sub MNileri_Click(sender As System.Object, e As System.EventArgs)
        If RTBox.CanRedo Then
            RTBox.Redo()
        End If
    End Sub

Private Sub RTBox_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles RTBox.KeyDown
        If e.KeyCode = Keys.Escape Then
            Me.WindowState = FormWindowState.Minimized
        End If
    End Sub

Private Sub RTBox_SelectionChanged(sender As System.Object, e As System.EventArgs) Handles RTBox.SelectionChanged
        Me.RTBox.SelectionIndent = 20
    End Sub

Private Sub PictureBox1_Click(sender As System.Object, e As System.EventArgs) Handles PictureBox1.Click

End Sub

Private Sub PictureBox1_DoubleClick(sender As System.Object, e As System.EventArgs) Handles PictureBox1.DoubleClick
        If isSizable = False Then
            Me.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedSingle 'Sizable
            isSizable = True
        Else
            Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
            isSizable = False
        End If
    End Sub

Private Sub Form2_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        AnaFrm.CheckBox3.Checked = GetSetting(Application.ProductName, Application.ProductName, "Hep Üstte", True)
        If AnaFrm.CheckBox3.Checked = True Then
            Me.TopMost = True
        Else
            Me.TopMost = False
        End If
        Me.Top = AnaFrm.Top
        Me.Left = AnaFrm.Left + AnaFrm.Width + 10

PictureBox1.Cursor = Cursors.SizeNWSE 'Sürükleme yeri kürsör biçimi
        Me.RTBox.SelectionIndent = 20

Me.RTBox.AllowDrop = True 'gezginden dosya sürüklemek için
        Timer1.Start()
        Label1.Text = DateString
        Label2.Text = TimeOfDay
    End Sub
End Class

1 Ocak 2013 Salı

BAŞLIKSIZ FORM ÖRNEĞİ