请问如何建立一个真正的透明窗体？

请问我使用visual   basic   6写程序，需要将窗体透明化  
   
  但是我试了网上的一些方法，虽然能够将窗体透明，但是连窗体上的控件也一起透明了；而且我用了网上其他一些方法是窗体能够透明又能显示控件，但是没想到只要她是去焦点后又变成不透明的了。  
   
  请问有没有什么好的办法是窗体真正的编程透明但是又不会使上面的控件也透明，而且不会因为失去焦点变成不再透明？ 问题点数：50、回复次数：3Top

1 楼TechnoFantasy（（VB MVP）www.applevb.com）回复于 2003-11-02 23:11:25 得分 35

带源程序的控件（带范例），可以通过设定窗体位图的屏蔽颜色（Mask   Color）将窗体该部分设定为透明的:  
  http://www.applevb.com/sourcecode/TransForm%20your%20Form.rarTop

2 楼5653325（等待开刃的刀）回复于 2003-11-03 09:04:35 得分 0

thanksTop

3 楼tomy1206（黑色领带）回复于 2003-11-03 09:18:45 得分 15

模块里的代码：  
  declare   function   greatecompatiblebitmap   lib   "gdi32"   (byval   hdc   as   long,byval   wid   as   long,byval   heit   as   long)   as   long  
  declare   function   selectobject   lib   "gdi32"   (byval   hdc   as   long,byval   hobject   as   long)   as   long  
  form_load  
  private   sub   form_load()  
  dim   bmp  
  me.autoredraw=true  
  bmp=greatcompatiblebitmap(me.hdc,0,0)  
  selectobject   me.hdc,bmp  
  me.refresh  
  end   sub  
  Top

相关问题

• 控件
• 窗体
• 透明
• 请问
• hdc
• byval
• as long

• 帖主：yongtang
• TechnoFantasy
• tomy1206

• Visual Basic类图书
• Visual Basic类源码下载