专家坐堂-[求助] 窗口菜单如何通过代码设置图标Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] 窗口菜单如何通过代码设置图标  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=111551)

--  作者：2900819580
--  发布时间：2017/12/24 20:20:00
--  [求助] 窗口菜单如何通过代码设置图标

Dim tb As Table = Tables(e.Form.Name & "_Table1")
Dim it As WinForm.StripItem = e.Form.Strips("主菜单").items("查看选择")
If it.Text = "查看选择" Then
tb.Filter = "选择 = \'true\'"
it.text = "显示全部"
it.image = "待选.png"
Else
tb.Filter = ""
it.text = "查看选择"
it.image = "选中.png"
End If

--  作者：有点甜
--  发布时间：2017/12/24 21:11:00
--

Dim tb As Table = Tables(e.Form.Name & "_Table1")

Dim it As WinForm.StripItem = e.Form.Strips("主菜单").items("查看选择")

If it.Text = "查看选择" Then

tb.Filter = "选择 = \'true\'"

it.text = "显示全部"

it.basecontrol.image = getimage(projectpath & "images/待选.png")

Else

tb.Filter = ""

it.text = "查看选择"

it.basecontrol.image = getimage(projectpath & "images/选中.png"

End If