怎样把VB里面的PictureBox控件的背景设置成透明？

2025-01-06 19:17:44

推荐回答（3个）

回答（1）：

　　如果是直接在窗体上显示的背景图（即设置form1.BackgroundImage属性来显示），那只须设置Label1.BackColor=Color.Transparent即可；
　　如果是使用一个PictureBox来显示背景图，则需要在运行时将Label控件动态加载到PictureBox中去，使PictureBox成为Label的容器（这一点在设计时做不到，因为PictureBox不是一容器控件），再将Label的BackColor设置为Color.Transparent即可：
　　dim lbl as new Label
　　lbl.backcolor=color.Transparent
　　lbl.text="China"
　　PictureBox1.Controls.Add (lbl)
　　这样一来就OK了。

回答（2）：

'添加模块一个模块声明如下APIPublic Declare Function GdiTransparentBlt Lib "gdi32" (ByVal hdc1 As Long, ByVal x1 As Long, ByVal y1 As Long, ByVal W1 As Long, ByVal H1 As Long, ByVal Hdc2 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal W2 As Long, ByVal H2 As Long, ByVal Color As Long) As Long'hdc1 要绘图目标句柄'x1图片显示的横坐标位置'y1图片显示的纵坐标位置'w1图片缩放比例宽度'h1图片缩放比例高度'hdc2要绘制透明色的图片或控件（这里指picture）'x2一般这里填0（图片左上角起始坐标）'y2一般这里填0（图片左上角起始坐标）'w2图片宽度'h2图片高度'color绘制颜色（RGB(255,255,255)为透明色）'picture控件属性设置成visible=falseautosize=trueautoredraw=trueborderstyle=0窗体autoredraw=true简单例子Private Sub Form_Load()GdiTransparentBlt form1.hDC, 0, 0, form1.picture1.Width, form1.picture1.Height, form1.picture1.hDC, 0, 0, form1.picture1.Width, form1.picture1.Height, RGB(255, 255, 255) '画图End Sub

回答（3）：

没学过VB，但是你们VB不是有那个选项的吗？可以选择透明的

最新问答

我昨晚上梦见男朋友对我笑还和我逗嘴摸我头这是什么意思

我的电脑里已经装了FLASH动画插件了，仍无法显示网页中的动画？

我想要今年报考北京科技大学的会计专业，我是跨专业报考，不知道好考吗，我还想了解一下它历年的招生人...

三星，海信，创维，谁家的电视更好

m.2固态硬盘半速和全速的使用区别大吗，我主板的全速接口烧坏了，要不要折腾一下去保修？