首页 相关文章 制造出透明的窗体(Form)

制造出透明的窗体(Form)

注释: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[ 查看全文 ]

2016-02-19 标签:

制造出透明的窗体(Form)的相关文章

如果您有什么好的建议或者疑问,可以联系我们。 商务合作QQ:3272218541;3282258740。商务合作微信:13319608704;13319603564。

加好友请备注机构名称。让我们一起学习、一起进步tulaoshi.com 版权所有 © 2019 All Rights Reserved. 湘ICP备19009391号-3

微信公众号

手机页面
收藏网站 回到头部