运用DWMAPI.DLL(VB.NET)

goodhermit95

开个CodeFile叫 DWM_Code.vb
这个看不太懂

1. 
   
2. Imports System.Runtime.InteropServices
   
3. 
   
4. Module DWM_Code
   
5.     <StructLayout(LayoutKind.Sequential)> _
   
6. Public Structure Margins
   
7.         Public Sub New(ByVal left As Integer, ByVal right As Integer, ByVal top As Integer, ByVal bottom As Integer)
   
8.             _left = left
   
9.             _right = right
   
10.             _top = top
    
11.             _bottom = bottom
    
12.         End Sub
    
13. 
    
14.         Public Sub New(ByVal allMargins As Integer)
    
15.             _left = allMargins
    
16.             _right = allMargins
    
17.             _top = allMargins
    
18.             _bottom = allMargins
    
19.         End Sub
    
20. 
    
21.         Private _left As Integer
    
22.         Private _right As Integer
    
23.         Private _top As Integer
    
24.         Private _bottom As Integer
    
25. 
    
26.         Public Property Left() As Integer
    
27.             Get
    
28.                 Return _left
    
29.             End Get
    
30.             Set(ByVal value As Integer)
    
31.                 _left = value
    
32.             End Set
    
33.         End Property
    
34.         Public Property Right() As Integer
    
35.             Get
    
36.                 Return _right
    
37.             End Get
    
38.             Set(ByVal value As Integer)
    
39.                 _right = value
    
40.             End Set
    
41.         End Property
    
42.         Public Property Top() As Integer
    
43.             Get
    
44.                 Return _top
    
45.             End Get
    
46.             Set(ByVal value As Integer)
    
47.                 _top = value
    
48.             End Set
    
49.         End Property
    
50.         Public Property Bottom() As Integer
    
51.             Get
    
52.                 Return _bottom
    
53.             End Get
    
54.             Set(ByVal value As Integer)
    
55.                 _bottom = value
    
56.             End Set
    
57.         End Property
    
58. 
    
59.         Public ReadOnly Property IsMarginless() As Boolean
    
60.             Get
    
61.                 Return (_left < 0 AndAlso _right < 0 AndAlso _top < 0 AndAlso _bottom < 0)
    
62.             End Get
    
63.         End Property
    
64. 
    
65.         Public ReadOnly Property IsNull() As Boolean
    
66.             Get
    
67.                 Return (_left = 0 AndAlso _right = 0 AndAlso _top = 0 AndAlso _bottom = 0)
    
68.             End Get
    
69.         End Property
    
70.     End Structure
    
71. 
    
72.     <DllImport("dwmapi.dll", PreserveSig:=False)> _
    
73. Public Function DwmExtendFrameIntoClientArea(ByVal hWnd As IntPtr, ByRef pMarInset As Margins) As Integer
    
74.     End Function
    
75. End Module
    
76. 
    

复制代码

1. 
   
2. Sub Form_Load
   
3.             Me.BackColor = Color.Black ‘用黑色来使他变半透明
   
4.             DwmExtendFrameIntoClientArea(Me.Handle, New Margins(Me.Size.Width * 2, Me.Size.Width * 2, Me.Size.Width * 2, Me.Size.Width * 2))'刚刚在那个Code Declare的Function
   
5.             Me.Hide()
   
6.             Me.Show() 'Hide -> Show 用来Refresh效果
   
7. 
   
8. end sub
   

复制代码

坏处是黑色的字Label会变透明，解决方法就是用Panel围着Components，然后ExteadArea在全部Panel……

goodhermit95

这个是Designer


这个是Runtime

OxfordExe2

你好厉害= =
我还在学着
功力没那么高深

goodhermit95

这个只是API而已
property sub是用来把资料拿进来

davidbilly87

原帖由 goodhermit95 于 2009-5-29 10:37 发表
开个CodeFile叫 DWM_Code.vb
这个看不太懂

Imports System.Runtime.InteropServices

Module DWM_Code
     _
Public Structure Margins
        Public Sub New(ByVal left As Integer, ByVal right  ...

为什么 不要  "Me.BackColor = Color.Black"  >>" Me.BackColor = Color.Red " 呢,背景设红色...那你就可以用黑色的字咯.....他只是把有关黑色变透明是吧?..我猜的,不知道对不对

[ 本帖最后由 davidbilly87 于 2009-6-15 02:04 PM 编辑 ]

goodhermit95

因为dwmapi.dll是把黑色变成透明
为什么用黑色你去问microsoft