3 Haziran 2014 Salı
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
Hiç yorum yok:
Yorum Gönder
Sonraki Kayıt
Önceki Kayıt
Ana Sayfa
Kaydol:
Kayıt Yorumları (Atom)
Hiç yorum yok:
Yorum Gönder