找了一会:好像就是用下面的代码就可以实现win7玻璃样窗口了
全局代码:
Public Declare Function DwmIsCompositionEnabled Lib "dwmapi.dll" Alias "DwmIsCompositionEnabled" (ByRef pfEnabled As Boolean) As Integer
Public Declare Function DwmExtendFrameIntoClientArea Lib "dwmapi.dll" Alias "DwmExtendFrameIntoClientArea" (ByVal hWnd As IntPtr, ByRef pMargin As Margins) As Integer
Public Structure Margins
Public Left As Integer
Public Right As Integer
Public Top As Integer
Public Bottom As Integer
End Structure
Dim pMargins As Margins
Public Sub WIN7Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
pMargins = New Margins
pMargins.Top = 40
Dim en As Boolean = False
If System.Environment.OSVersion.Version.Major >= 6 Then '如果是Vista系统或以上
DwmIsCompositionEnabled (en) '取得是否开启了Aero效果
If en Then
DwmExtendFrameIntoClientArea(sender.Handle, pMargins)
sender.TransparencyKey = Color.FromArgb(250, 250, 2)
sender.BackColor = sender.TransparencyKey
End If
End If
End Sub
[此贴子已经被作者于2016/1/28 15:47:59编辑过]