VB 使 窗 口 透 明

为了便于观察，先在窗口上添加两个按钮，Command1和Command2。加上如下代码：
PrivateSubCommand1_Click()SubCommand1_Click()
Print"Hello"
EndSub

PrivateSubCommand2_Click()SubCommand2_Click()
End
EndSub
这两个按钮一个用于终止程序运行，一个用于显示文字。
然后，将Form的Border设为None。
最后，在Form的声明部分加上以下代码：
PrivateDeclareFunctionSetWindowLong()FunctionSetWindowLongLib"user32"Alias_
"SetWindowLongA"(ByValhwndAsLong,ByValnIndexAsLong,_
ByValdwNewLongAsLong)AsLong
PrivateDeclareFunctionSetParent()FunctionSetParentLib"user32"(ByValhWndChild_
AsLong,ByValhWndNewParentAsLong)AsLong
ConstWS_EX_TRANSPARENT=&H20&
ConstGWL_EXSTYLE=(-20)
最后，在Form中加上如下代码。
PrivateSubForm_Load()SubForm_Load()
SetWindowLonghwnd,GWL_EXSTYLE,WS_EX_TRANSPARENT
EndSub