AddHandler 控件.事件, AddressOf 过程名如何传参 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → AddHandler 控件.事件, AddressOf 过程名如何传参

共有1589人关注过本帖树形打印复制链接主题：AddHandler 控件.事件, AddressOf 过程名如何传参

foxtablefanse

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

等级：二尾狐帖子：568 积分：5458 威望：0 精华：0 注册：2018/11/6 10:54:00

AddHandler 控件.事件, AddressOf 过程名如何传参 发帖心情

Post By：2024/3/28 9:38:00 [显示全部帖子]

点Ω弹出符号窗口，符号窗口动态加载控件，在全局代码加控件事件，

现在的问题是，我想在多个地方用这个符号窗口，需要在全局代码加控件事件里传入不同的窗口名及接受的输入框名，如保传参？
图片点击可在新窗口打开查看

此主题相关图片如下：微信截图_20240328093203.png

此主题相关图片如下：微信截图_20240328093058.png

'全局代码网格控件布局

Public Sub UserControl1_ItemClicked(sender As Object, e As Navigation.UserControl.Item)

If e.Name <> "关闭" Then

Dim gg As WinForm.ComboBox = Forms("新增物料管理").Controls("Sys_物料信息.规格型号")

gg.Value = gg.Value + e.Name

End If

sender.FindForm().Close()

End Sub

foxtablefanse

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

等级：二尾狐帖子：568 积分：5458 威望：0 精华：0 注册：2018/11/6 10:54:00

Post By：2024/3/28 10:00:00 [显示全部帖子]

想到了用vars变量传参，但不同窗口内的输入框类形要一样。进一步，全局代码里有没有直接传插窗口控件参数的方法，这样就可以用不同类型的输入框

'网格控件布局

Public Sub UserControl1_ItemClicked(sender As Object, e As Navigation.UserControl.Item)

If e.Name <> "关闭" Then

Dim gg As WinForm.ComboBox = Forms(Vars("引用符号的窗口名")).Controls(Vars("引用符号的控件名")) ‘这里能不能直接传个窗口控件进去

gg.Value = gg.Value + e.Name

End If

sender.FindForm().Close()

Vars("引用符号的窗口名") = Nothing

Vars("引用符号的控件名") = Nothing

End Sub

foxtablefanse

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

等级：二尾狐帖子：568 积分：5458 威望：0 精华：0 注册：2018/11/6 10:54:00

Post By：2024/3/28 10:19:00 [显示全部帖子]

谢谢！！！！

主题：AddHandler 控件.事件, AddressOf 过程名 如何传参