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


  共有204人关注过本帖树形打印复制链接

主题：AddHandler 控件.事件, AddressOf 过程名 如何传参
帅哥，在线噢！
foxtablefanse
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：550 积分：5223 威望：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
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106129 积分：539756 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/3/28 9:44:00 [只看该作者]

把【Ω】按钮的名称改为这种：窗口名|输入框名称

比如："新增物料管理|Sys_物料信息.规格型号"

然后根据按钮名称获取窗口和输入框
 回到顶部
帅哥，在线噢！
foxtablefanse
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：550 积分：5223 威望：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
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106129 积分：539756 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/3/28 10:13:00 [只看该作者]

这种全局事件没有直接传插窗口控件参数的方法。要么使用全局变量，要么使用名称处理。

如果都是输入框，这种定义就行了

Dim gg = Forms(Vars("引用符号的窗口名")).Controls(Vars("引用符号的控件名")) ‘这里能不能直接传个窗口控件进去
 回到顶部
帅哥，在线噢！
foxtablefanse
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：550 积分：5223 威望：0 精华：0 注册：2018/11/6 10:54:00 		  发帖心情 Post By：2024/3/28 10:19:00 [只看该作者]

谢谢！！！！

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询