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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]窗口控件

共有2843人关注过本帖树形打印复制链接主题：[求助]窗口控件

有点甜

小大 21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/2/23 12:36:00 [只看该作者]

请存放数值啊

msgbox(Keys.Control Or Keys.N)

不然，就用动态编译的方式得到值。

blsu33

小大 22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2927 积分：20167 威望：0 精华：0 注册：2012/2/3 17:45:00

Post By：2018/2/23 12:43:00 [只看该作者]

itm.Items("New").ShortcutKeys =dr("ShortcutKeys") 会出错

dr("ShortcutKeys")列是字符列改为数值列录入 Keys.Control Or Keys.N 提示错误意思是怎么弄

有点甜

小大 23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/2/23 15:00:00 [只看该作者]

1、你保存的时候，直接保存数值啊，如

msgbox(Keys.Control Or Keys.N)

保存 131150

2、如果确实不能保存数值，那你就动态编译 http://www.foxtable.com/webhelp/scr/1487.htm

blsu33

小大 24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2927 积分：20167 威望：0 精华：0 注册：2012/2/3 17:45:00

Post By：2018/2/23 16:59:00 [只看该作者]

老师

这段代码不对不是NEW 出来的窗口

Striptab.Items.Add(dr4("ckname") & "_" & dr4("id") & "_" & dr4("stripid"),dr4("poutcaption"),dr4("imgsmlt"),StripItemTypeEnum.Button)

Dim Stripitm As WinForm.StripItem= Striptab.Items(dr4("ckname") & "_" & dr4("id") & "_" & dr4("poutcaption")) ，这里定义是不是不对呢

Dim Stripitms As System.Windows.Forms.ToolStripButton = Striptab.Items(dr4("ckname") & "_" & dr4("id") & "_" & dr4("poutcaption")).basecontrol

AddHandler Stripitms.Click, AddressOf Strip_Click ‘这个添加不成功’

.NET Framework 版本：2.0.50727.5420

Foxtable 版本：2017.12.31.1

错误所在事件：自定义函数za_nb_stripafterLoad

详细错误信息：

调用的目标发生了异常。

未将对象引用设置到对象的实例。

[此贴子已经被作者于2018/2/23 17:03:49编辑过]

blsu33

小大 25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2927 积分：20167 威望：0 精华：0 注册：2012/2/3 17:45:00

Post By：2018/2/23 17:18:00 [只看该作者]

好像找到了

有点甜

小大 26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/2/23 17:25:00 [只看该作者]

我这样测试没问题

Dim Strip As WinForm.Strip
Strip = e.Form.Strips.Add("工具栏1", StripTypeEnum.ToolBar)
Strip.Items.Add("New", "新建", "new.ico", StripItemTypeEnum.Button)
Dim Stripitms As System.Windows.Forms.ToolStripButton = strip.Items("new").basecontrol
AddHandler Stripitms.Click, AddressOf Strip_Click

下一主题 >> << 上一主题

总数 26 上一页 1 2 3

主题：[求助]窗口控件