vb.net子窗体透明度 vba窗体透明效果

VB的窗口透明度调节

添加Slider控键.用于调节透明度 Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

创新互联建站专注于企业成都营销网站建设、网站重做改版、宜秀网站定制设计、自适应品牌网站建设、H5高端网站建设、成都商城网站开发、集团公司官网建设、成都外贸网站建设公司、高端网站制作、响应式网页设计等建站业务，价格优惠性价比高，为宜秀等各大城市提供网站开发制作服务。

Public Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

Public Const GWL_EXSTYLE = (-20)

Public Const WS_EX_LAYERED = H80000

Public Const LWA_ALPHA = H2Public Function TranslucentForm(frm As Form, TranslucenceLevel As Byte) As Boolean

SetWindowLong frm.hwnd, GWL_EXSTYLE, WS_EX_LAYERED

SetLayeredWindowAttributes frm.hwnd, 0, TranslucenceLevel, LWA_ALPHA

TranslucentForm = Err.LastDllError = 0

End Function

TranslucentForm 窗口名(me), 透明度大小(0-255)

TranslucentForm Me, Slider1.Value(例子)

vb.net如何将form的特定区域设置为全透明

这种功能读winform来说只有容器才能设置透明度，如form、panel类控件，其他的不是不可以，要重写背景参数，而且重写完了后与win7、Xp互不兼容，闪烁，并不提倡。.net的解决办法是wpf，控件可以设置opation属性，灵活控制透明度，并且后台静态刷新，因为他是xaml机制构造。

vb.net怎么用代码控制窗口透明度

属性是浮云

Opacity是double类型的且取值范围是0-1

而Me.Opacity = 20 20是integer 由于属性限制自动转换成double为1

因此

me.opacity=0.2

正解