首页 >> 读书频道 >> 电脑 >> 制造出透明的Form
 
· 窗体缩小到右下角
· 网络数据库教程八
· 如何直接开启一个文件
· 如何让Window不接受
· 网络数据库教程七
· KeyBoard Key
· 更动MsgBox But
· Hook简介
· 如何得知Mouse已离开
· 网络数据库教程六
· TextBox模拟拖曳选
· 网络数据库教程五
 
· 电视剧《刁蛮公主》下载和
· 美容养颜手册
· 加油金顺剧情分集介绍完整
· 红楼梦:120回全本[清
· 素质教育在美国
· 全唐诗卷四十六
· 韩剧《布拉格恋人》剧情介
· 夜航船[作者:明·张岱]
· 局外人[作者:韩·可爱淘
· 现场流行病学
· 源氏物语[日本:紫式部]
· 武林寓言故事
 
· (出租)中动商场部分及写
· (出租)中动动漫基地&#
· 喜剧学院
· 《善德女王》剧情介绍
· 魔女18号 剧情
· 丑女无敌剧情介绍
· 魔女幼熙剧情介绍
· 龙游天下剧情介绍
· 震撼世界的七日剧情介绍
· 静静的白桦林剧情介绍
· 心情日记—老公今天我想对
· 旗舰剧情介绍
欢迎来到月影社区!如果您觉得这里不错,请推荐给您的朋友们。月影社区:http://wf66.com/

制造出透明的Form


查看有无更新版本

关键字:VB 2006-9-18

 

说实在的我不知道这所谓透明的Form用在什麽地方,它变成透明後,只要有所移动,
或Mouse移到TitleBae处时,结果总是令人感到莫名奇妙,所以我设定BorderStyle = 0
,令之没有TitleBar。网路上见许多人问起,故有这程式;若有人知道这是用在何处,
请告诉我。

後来我在一个不小心,发现另一种作法令Form变透明的方式,而且比目前的作法好用
请叁考透明的Form上显示背景透通图

可以用SetWindowLong(hwnd, GWL_EXSTYLE, WS_EX_TRANSPARENT)来完成

'form上有Command1, command2两个Button并事先设定form之BorderStyle = 0Option ExplicitPrivate Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As LongPrivate Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongConst GWL_EXSTYLE = (-20)Const WS_EX_TRANSPARENT = &H20&Private PreValue As LongPrivate Sub Command2_Click() '还原变成不透明Call SetWindowLong(Me.hwnd, GWL_EXSTYLE, PreValue)Me.HideMe.ShowEnd SubPrivate Sub Form_Load()Dim i As Longi = GetWindowLong(Me.hwnd, GWL_EXSTYLE)'变成透明的FormPreValue = SetWindowLong(Me.hwnd, GWL_EXSTYLE, i Or WS_EX_TRANSPARENT)Me.ShowDoEventsCommand1.Refresh '令Command1可见Command2.Refresh '令Command2可见End Sub

制造出透明的Form

[ 1 ]
制造出透明的Form num

打印本页 关闭

关于我们版权声明本站导航友情连结作品演示 TOP↑