e.Sender 是配置栏某个菜单Button 已经包含图标的
If dr IsNot Nothing Then
If Forms(frm.name).FormStyle=0 Then '定义窗体图标
Dim tabpage = Forms(frm.name).panel.parent
tabpage.image = e.Sender....... 'getimage(projectPath & "images\" & dr("formnameico")) '此处最好也帮忙调用Button图标吧,免得浪费查询 资源
Else If Forms(frm.name).FormStyle=2 Then
Dim ss As String = dr("formnameico")
'Forms(frm.name).BaseForm.Icon=New icon(projectPath & "images\" & ss )
Forms(frm.name).BaseForm.Icon=Icon.FromHandle(e.Sender.icon) 此处错误,请帮忙更改一下, 谢谢!
End If
End If
[此贴子已经被作者于2015/12/27 14:42:51编辑过]