比较简单的VB透明窗体实现方法.rar

时间:2022-07-30 13:28:25
【文件属性】:

文件名称:比较简单的VB透明窗体实现方法.rar

文件大小:10KB

文件格式:RAR

更新时间:2022-07-30 13:28:25

ASP源码-博客日记

这是一个相对简单的VB制作透明 窗体的方法,看上去这个窗体无边框、无标题栏,也没有最小最大化及关闭按钮,完全显示了一个图片的效果,其实本代码是一个透明窗体的实现实例,特此为大家分享代码如下:   Private Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, _    ByVal nWidth As Long, ByVal nHeight As Long) As Long 'API函数声明   Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, _    ByVal hObject As Long) As Long'API函数声明   Private Sub Form_Load()    Dim B'声明变量    Me.AutoRedraw = True    B = CreateCompatibleBitmap(Me.hdc, 0, 0)    SelectObject Me.hdc, B'设置窗体透明   End Sub   Private Sub Image1_Click()   End '退出   End Sub   Private Sub Timer1_Timer() '计时器事件   Dim B '声明变量    Me.AutoRedraw = True    B = CreateCompatibleBitmap(Me.hdc, 0, 0)    SelectObject Me.hdc, B'保持窗体透明   End Sub


【文件预览】:
srcfans.com
----窗体透明()
--------E232.vbw(50B)
--------MSSCCPRJ.SCC(189B)
--------Form1.frx(8KB)
--------Form1.frm(2KB)
--------E232.vbp(635B)

网友评论