首页 技术教程 实用代码 注册破解 正则表达式 网址导航 电子书籍

生成一个透明窗体

Private Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long Private Sub Form_Load() Dim hBitmap As Integer Me.AutoRedraw = True hBitmap = CreateCompatibleBitmap(Me.hdc, 0, 0) SelectObject Me.hdc, hBitmap Me.Refresh End Sub...
类别:程序开发 - C#/.NET    查看:138    更新:2014-05-17