敬业的IT人 互联网 佚名 2008-4-17 13:41:13

注释：form上有Command1,command2两个Button并事先设定form之BorderStyle=0

OptionExplicit
PrivateDeclareFunctionGetWindowLongLib"user32"Alias"GetWindowLongA"(ByValhwndAsLong,ByValnIndexAsLong)AsLong
PrivateDeclareFunctionSetWindowLongLib"user32"Alias"SetWindowLongA"(ByValhwndAsLong,ByValnIndexAsLong,ByValdwNewLongAsLong)AsLong
ConstGWL_EXSTYLE=(-20)
ConstWS_EX_TRANSPARENT=&H20&
PrivatePreValueAsLong

PrivateSubCommand2_Click()注释：还原变成不透明
CallSetWindowLong(Me.hwnd,GWL_EXSTYLE,PreValue)
Me.Hide
Me.Show
EndSub

PrivateSubForm_Load()
DimiAsLong

i=GetWindowLong(Me.hwnd,GWL_EXSTYLE)
注释：变成透明的Form
PreValue=SetWindowLong(Me.hwnd,GWL_EXSTYLE,iOrWS_EX_TRANSPARENT)
Me.Show
DoEvents
Command1.Refresh注释：令Command1可见
Command2.Refresh注释：令Command2可见
EndSub

最新文章

用API函数定义热键又一法[04-17]

用VB编写DirectX7.0游戏（上）[04-17]

多用户应用程序中应注意的其它问题(2)--多客户环境下VB数..[04-17]

浅谈用VB6.0编写BO程序[04-17]

VB数据库多字段记录的录入[04-17]

VB实现图形动画的三种方法[04-17]

相关文章

怎样在VB中控制Word[04-17]

VB查找并替换WORD文档中的字符串[04-15]

在VisualBasic6.0中创建Word文档[04-15]

在VB中控制Word[04-15]

VB中调用Word拼写检查[04-15]

怎样在VB5中使用OLEDRAGDROP事件从Windows..[04-15]