level 9
FormBorderStyle为Sizable时半透明可用,当为Fixed时不可用,变为透明
前提条件,窗口Text属性为空,Icon和ControlBox都没有,求大神解释
Dim pMargins As New Margins With {.Top = 50}
2015年01月15日 14点01分
1
level 9
Me.TransparencyKey = Color.FromArgb(250, 250, 249)
Me.BackColor = Me.TransparencyKey
DwmExtendFrameIntoClientArea(Me.Handle, pMargins)
2015年01月15日 14点01分
2
level 13
变为透明应该就把毛玻璃露出来了。检查pMargin是否正确
--来自相机+平板电脑+手机融合成的的Lumia 1520
2015年01月16日 16点01分
3
检查过,没用
2015年01月17日 10点01分
你先设置FixedToolWindow再应用毛玻璃,别把顺序弄错
2015年01月18日 01点01分