菜单保存按钮请教 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 菜单保存按钮请教

共有3560人关注过本帖树形打印复制链接主题：菜单保存按钮请教

hbhb

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

加好友

发短信

等级：狐神帖子：5061 积分：13092 威望：0 精华：0 注册：2014/5/15 21:34:00

菜单保存按钮请教 发帖心情

Post By：2014/9/12 11:20:00 [显示全部帖子]

大师：好！请教

菜单中设置一保存按钮，在不同的窗口中也有单个的保存按钮，而这些保存按钮的单击事件中有保存及其他代码，为了便于习惯操作，可否将单个按钮的代码全部再放到菜单按钮中，如果可以，是用模拟单击事件？，那如何判断判断哪个按钮？

hbhb

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

加好友

发短信

等级：狐神帖子：5061 积分：13092 威望：0 精华：0 注册：2014/5/15 21:34:00

Post By：2014/9/12 13:01:00 [显示全部帖子]

谢谢！函数中可否先判断控件的类型，再判断控件的名字，然后再用模拟单击事件？

hbhb

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

加好友

发短信

等级：狐神帖子：5061 积分：13092 威望：0 精华：0 注册：2014/5/15 21:34:00

Post By：2014/9/12 14:10:00 [显示全部帖子]

菜单里这样写是否正确？

For Each c As WinForm.Control In Forms("main").Controls

If Typeof c Is WinForm.button Then '判断控件是否是文本框

Dim t As WinForm.button = c '使用特定类型的变量引用控件

Select Case t.text

Case "保存1"

t.PerformClick

Case "保存2"

t.PerformClick

Case "保存3"

t.PerformClick

End Select

End If

hbhb

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

加好友

发短信

等级：狐神帖子：5061 积分：13092 威望：0 精华：0 注册：2014/5/15 21:34:00

Post By：2014/9/12 14:20:00 [显示全部帖子]

自定义函数里写以上代码？然后菜单的按钮调用此函数，通过窗口中按钮的标题进行判断是哪个按钮，再模拟单击此按钮！

通过按钮的标题能否判断？

Select Case t.text

Case "保存1"

t.PerformClick

以上代码错在哪里？

hbhb

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

加好友

发短信

等级：狐神帖子：5061 积分：13092 威望：0 精华：0 注册：2014/5/15 21:34:00

Post By：2014/9/12 14:47:00 [显示全部帖子]

1、一种情况以上三个按钮都执行，有无问题?

2、如果要执行某一按钮的，如何设置传递参数？，用全局变量直接控制，还是什么？

hbhb

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

加好友

发短信

等级：狐神帖子：5061 积分：13092 威望：0 精华：0 注册：2014/5/15 21:34:00

Post By：2014/9/12 15:15:00 [显示全部帖子]

窗口中一张表，动态加载不同的数据，如点击按钮1后加载的员工表，修改后点击保存按钮2保存到员工表，同时重新生成目录树

点击按钮2后加载的工资表，修改后点击保存按钮2保存到员工表，同时也重新生成新的目录树。

现在问题是，我想在菜单中用一个统一的保存按钮，如何搞？

hbhb

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

加好友

发短信

等级：狐神帖子：5061 积分：13092 威望：0 精华：0 注册：2014/5/15 21:34:00

Post By：2014/9/12 18:56:00 [显示全部帖子]

谢谢！搞不懂，比如我现在希望执行保存按钮1的事件，按菜单上的按钮后，他如何知道我要按按钮1的？

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

主题：菜单保存按钮请教