已有22人关注
有关窗体透明问题
发表在VB答疑区 2012-11-23
是否精华
版块置顶:
《Visual Basic开发实战1200例》(第Ⅰ卷)(配光盘)中代码如下:
'设置窗体透明:
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 Bitmap                         '设置窗体透明
Me.AutoRedraw = True
Bitmap = CreateCompatibleBitmap(Me.hdc, 0, 0)
SelectObject Me.hdc, Bitmap
end if

把label控件背景属性设为0-transparent,但运行程序后发现label控件背景色为白色,并非完全透明,请问这怎样改才能使label控件没有背景色?
分享到:
手机同步功能介绍
友情提示:以下图书配套资源能够实现手机同步功能
明日微信公众号
明日之星 明日之星编程特训营
客服热线(每日9:00-17:00)
400 675 1066
mingrisoft@mingrisoft.com
吉林省明日科技有限公司Copyright ©2007-2022,mingrisoft.com, All Rights Reserved长春市北湖科技开发区盛北大街3333号长春北湖科技园项目一期A10号楼四、五层
吉ICP备10002740号-2吉公网安备22010202000132经营性网站备案信息 营业执照