VB.NET 2010 如何自定义窗

      VB.NET 2010中，在窗体有几种模式，但是都是微软定义的一些窗体，我们该如何DIY一个自己的呢？其实很简单，需要自己做一张图片，然后将其填充整个窗体。然后再将窗体的风格设置为NONE。设置完成后窗体是无法移动的，接下来就是编写代码，让窗体跟随鼠标移动（按住鼠标右键才能移动）。

      Public class Form1

     Private Mouse_Offset as Point    '定义一个全局私有变量

                  Private Sub Form1_Mousemove(Byval sender As System.Object,Byval e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove'鼠标移动事件

                          If e.Button=Windows.Forms.MouseButtons.Left Then  '判断是不是鼠标右键按下

   Dim MousePos As Point =Control.MousePosition  '定义以一个鼠标指针，并将其初始化为当前鼠标位置

   MousePos.OffSet(Mouse_Offset)   ' 计算位移

Me.Location=MousePos   '见窗体按照位移偏移

                          End If

                  End Sub

                  Private Sub Form1_MouseDown(Byval sender As System.Object,Byval e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown'鼠标按下事件

                          Mouse_Offset=New Point(-e.x,-e.y)'将Mouse_Offset初始化，并将当前鼠标按下时的坐标赋值给它

                  End Sub

 

      End class

       ‘以上代码便能使VB.NET2010窗体在自定义的时候按住鼠标移动了