以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]Label 标签上可以增加ICO图标吗  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=146398)
--  作者：blsu33
--  发布时间：2020/2/22 23:26:00
--  [求助]Label 标签上可以增加ICO图标吗
老师，
如题
--  作者：sloyy
--  发布时间：2020/2/23 0:42:00
--  
可以
--  作者：有点蓝
--  发布时间：2020/2/23 20:58:00
--  
不能的。添加一个图片框放到标签前面
--  作者：blsu33
--  发布时间：2020/2/24 16:16:00
--  
老师 能给写几句 学习下吗
--  作者：有点蓝
--  发布时间：2020/2/24 16:30:00
--  
不需要代码。窗口设计里添加一个图片控件，放入图片，拖放到标签控件前面并排一起
--  作者：blsu33
--  发布时间：2020/2/24 23:05:00
--  
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:看不见图标.foxdb

老师，
希望在通知前面加一个图标

[此贴子已经被作者于2020/2/24 23:07:25编辑过]
--  作者：blsu33
--  发布时间：2020/2/24 23:08:00
--  
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:reporter.rar
--  作者：blsu33
--  发布时间：2020/2/24 23:09:00
--  
怎么 能添加的好看些，透明的背景，我的代码为什么不行 
--  作者：有点蓝
--  发布时间：2020/2/25 8:42:00
--  
用图片框，不是绘图控件

Dim pnl As WinForm.Panel = e.form.Controls("1")
Dim lbl As WinForm.Label=e.form.CreateControl("2", ControlTypeEnum.Label)
Dim pbl As WinForm.PictureBox =e.form.CreateControl("3", ControlTypeEnum.PictureBox )
lbl.Left = pnl.Width-30
lbl.Height= pnl.Height
lbl.Top= 12
lbl.BaseControl.dock=System.Windows.Forms.DockStyle.right
lbl.BaseControl.anchor=System.Windows.Forms.AnchorStyles.right
lbl.ForeColor=Color.red
lbl.TEXT="通知"
lbl.TopMost=True
pbl.Left = pnl.Width-55
pbl.Width=30
pbl.Height= pnl.Height
pbl.Top= 12
\'pbl.BaseControl.dock=System.Windows.Forms.DockStyle.right
pbl.BaseControl.anchor = System.Windows.Forms.AnchorStyles.right
pbl.BackColor = Color.Transparent
pbl.Image = GetImage("reporter.ico")
\'pbl.SizeMode = ImageSizeMode.CenterImage
pbl.TopMost = True

pnl.AddControl(lbl)
pnl.AddControl(pbl)
--  作者：blackzhu
--  发布时间：2020/2/25 10:47:00
--  
可以加图标,但是要用原始的方法,比较烦