文件名称:比较简单的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)