BAŞLIKSIZ, TAŞINABİLİR VE BOYUTLANIR FORM

BAŞLIKSIZ, TAŞINABİLİR VE BOYUTLANIR FORM  KODLARI           İNDİR

' başlıksız form Public Class Form1 Private mouse_offset As Point Protected Overrides ReadOnly Property CreateParams() As CreateParams Get Const WS_CAPTION As Integer = &HC00000 Dim baseParams As CreateParams = MyBase.CreateParams 'Başlık olmasın baseParams.Style = baseParams.Style And Not WS_CAPTION Return baseParams End Get End Property Private Sub PictureBox1_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown mouse_offset = New Point(-e.X, -e.Y) If e.Button = Windows.Forms.MouseButtons.Right Then Me.Close() End If End Sub Private Sub PictureBox1_MouseMove(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove If e.Button = MouseButtons.Left Then Dim mousePos As Point = Control.MousePosition mousePos.Offset(mouse_offset.X, mouse_offset.Y) Location = mousePos End If End Sub End Class

bu Haziran 03, 2014 Komentar

Related Posts

BAŞLIKSIZ, TAŞINABİLİR VE BOYUTLANIR FORM

4/ 5

Oleh bu