VB半透明窗口效果

VB 的半透明窗口效果,做出来还挺有意思的,尤其在做悬浮工具、小工具条这类应用上,能瞬间拉高“高级感”。你只需要搞懂两个关键属性:TransparencyKeyOpacity,就能轻松上手。

TransparencyKey的用法比较巧妙,你可以把窗口背景设成一个特定颜色,比如Color.AliceBlue,再把TransparencyKey设成一样的颜色——窗口背景就透明啦,等于是“指定颜色全透明”。

Opacity就是整体透明度的控制,0 是完全透明,1 是不透明,一般调个0.7,半透明的效果就挺自然的了。你加上点背景图,再放几个按钮,界面立马有质感。

源码结构也清晰:Form1.frm负责窗口设计,Project1.vbp是工程入口,还有些像.vbw.scc这类辅助文件,搞 VB 的都懂,打开就能跑。

下面是关键代码段,放进Form1_Load里就行:

Public Class Form1
  Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Me.TransparencyKey = Color.AliceBlue
    Me.BackColor = Color.AliceBlue
    Me.Opacity = 0.7
  End Sub
End Class

如果你还想做拖拽、异形窗口甚至 TreeView 的半透明效果,下面这些文章也可以瞄一眼,挺多思路:

如果你手上刚好有个 VB 老项目,或者想玩点轻量级 UI 效果,这套源码还蛮值得一试的,思路清晰,改造也方便。

rar 文件大小:1.44KB