制造出透明的Form_VB窗体文章_VB_编程开发

制造出透明的Form

日期：2008-10-20 17:45:51　　　　来源：互联网

　·用Photoshop制造逼真插头-3　·制作半透明窗体和形状不规则的窗体

制造出透明的Form 
注释：form上有Command1, command2两个Button并事先设定form之BorderStyle = 0

Option Explicit
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Const GWL_EXSTYLE = (-20)
Const WS_EX_TRANSPARENT = &H20&
Private PreValue As Long

Private Sub Command2_Click() 注释：还原变成不透明
Call SetWindowLong(Me.hwnd, GWL_EXSTYLE, PreValue)
Me.Hide
Me.Show
End Sub

Private Sub Form_Load()
Dim i As Long

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

　[1]

用Photoshop制造逼真插头-2

放置“透明”的图片

--->耶书制造(CHMmaker) V2.88 简体中文版
--->WinRAR 注册安装版制造工具 V2.0 绿色版
--->酷书制造(ExeBook) V3.0
--->透明美女挂机锁
Tags:　制造透明 Form

◎→	本类最新
VB6制作Win98风格的工具栏动态加载ActiveX控件漫谈实现窗口图像缩放、滚动技巧 VB中处理长列表框项的两种方法 VB应用程序中的工具提示和状态显 VB实现窗口的弹出式菜单 VB实现按钮浮动效果

◎→相关资源
C语言入门视频教程 C#编程WinForm入门视频 Asp.net入门视频教程下载 VC++编程视频教程下载 VB窗体文章 HTML入门教程 VB基础视频教程 VB窗体文章 VB文件文章 VB数据库文章 VB-API文章 VB控制文章

◎→	热门资源
制作方向按钮制作半透明窗体和形状不规则的窗 VB调用API函数技巧--快速选择全部 VB的API编程精粹（一） VB的API编程精粹（二） VB5中回调函数的使用方法 VB5.0与Windows API 间的呼叫技巧