JBTALKS.CC

标题: 运用DWMAPI.DLL(VB.NET) [打印本页]
作者: goodhermit95    时间: 2009-5-29 10:37 AM
标题: 运用DWMAPI.DLL(VB.NET)
开个CodeFile叫 DWM_Code.vb
这个看不太懂

  2. Imports System.Runtime.InteropServices

  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

  14.         Public Sub New(ByVal allMargins As Integer)
  15.             _left = allMargins
  16.             _right = allMargins
  17.             _top = allMargins
  18.             _bottom = allMargins
  19.         End Sub

  21.         Private _left As Integer
  22.         Private _right As Integer
  23.         Private _top As Integer
  24.         Private _bottom As Integer

  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

  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

  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

  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

复制代码

  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效果

  8. end sub
复制代码

坏处是黑色的字Label会变透明，解决方法就是用Panel围着Components，然后ExteadArea在全部Panel……
作者: goodhermit95    时间: 2009-5-29 10:48 AM
标题: 效果效果~~
这个是Designer


这个是Runtime
作者: OxfordExe2    时间: 2009-5-31 07:39 PM
你好厉害= =
我还在学着
功力没那么高深
作者: goodhermit95    时间: 2009-6-1 10:42 AM
标题: 回复 #3 OxfordExe2 的帖子
这个只是API而已
property sub是用来把资料拿进来
作者: davidbilly87    时间: 2009-6-15 01:48 PM
原帖由 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    时间: 2009-6-18 09:30 PM
标题: 回复 #5 davidbilly87 的帖子
因为dwmapi.dll是把黑色变成透明
为什么用黑色你去问microsoft





欢迎光临 JBTALKS.CC (https://jbtalks.my/) Powered by Discuz! X2.5