VB 2013：以无边界形式启用Aero

我正在寻找一种方法将Windows的Aero函数添加到Visual Basic 2013中的无windows windows窗体窗体中。我为标题栏编写了自定义组件，以允许设置我的自己的背景/设计，以及最小化，最大化和关闭按钮。我有问题，然而，找到一种方法，让Windows Aero的性能回来，如：VB 2013：以无边界形式启用Aero

拖动到顶部或在屏幕的两侧，以在调整改变它的大小
动画/最小化/最大化

我正在制作自定义外观的表单，例如Google Chrome和Visual Studios中的表单。航空功能是我唯一的问题。有人碰巧知道如何将它添加到Visual Basic 2013中的无边界窗体？

来源

2014-09-23 NicJames2378

部分答案，这可能有助于：

没有国界的形式，我能得到调整大小部分工作的唯一办法是在各方面使用鼠标事件来控制操作，即可使用面板。这些面板是透明的，但鼠标输入事件也有助于改变光标事件。

'************************************************** 
    'MouseDown = User clicks the button 
    'MouseMove = User is holding down the left mouse button and moves the mouse. Simulates top of a regular form 
    'MouseUp = User releases the mouse button 
    '************************************************** 
    Private Sub Panel1_MouseDown(sender As Object, e As MouseEventArgs) Handles Panel1.MouseDown 
     If e.Button = Windows.Forms.MouseButtons.Left Then 
      drag = True 
      mouse_x = Windows.Forms.Cursor.Position.X - Me.Left 
      mouse_y = Windows.Forms.Cursor.Position.Y - Me.Top 
     End If 
    End Sub 
    Private Sub Panel1_MouseMove(sender As Object, e As MouseEventArgs) Handles Panel1.MouseMove 
     If drag Then 
      Me.Top = Windows.Forms.Cursor.Position.Y - mouse_y 
      Me.Left = Windows.Forms.Cursor.Position.X - mouse_x 
     End If 
    End Sub 
    Private Sub Panel1_MouseUp(sender As Object, e As MouseEventArgs) Handles Panel1.MouseUp 
     drag = False 
    End Sub

来源

2016-12-08 23:42:32

VB 2013：以无边界形式启用Aero

回答

相关问题