以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 菜单项目标题的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=123344)

--  作者:mikee
--  发布时间:2018/8/12 20:55:00
--  [求助] 菜单项目标题的问题
请教如下代码,根据菜单项的标题判断,为何总是执行Else的代码,即使标题IF后面的条件为真?


Dim btn As RibbonMenu.Button
btn = RibbonTabs("Table").Groups("Column").Items("AddColumn")

Messagebox.show(btn.text)    \'这里显示的菜单标题为“增加列”

If btn.Text = "增加列" Then
    Messagebox.show("增加列")
Else
    Messagebox.show("删除列")
End If

--  作者:有点甜
--  发布时间:2018/8/12 23:07:00
--  

Dim btn = RibbonTabs("Table").Groups("Column").Items("AddColumn")
Messagebox.show("333" & btn.text & "333")    \'这里显示的菜单标题为"增加列"

If btn.Text.trim = "增加列" Then
    Messagebox.show("增加列")
Else
    Messagebox.show("删除列")
End If