Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

回复 加入收藏帖  复制
我要提问 帖子上移

[5分]怎样设置以双击方式打开树控件的菜单

沙溪一滴水 等级: 普通会员▲ 积分:110 金币:200 来自:泉州Access交流中心 发表于:2015-08-16 20:15:53   已结帖
楼主

怎样设置以双击方式打开树控件的菜单


各位老师好!以上图为例单击菜单就打开,请教怎样设置以双击的方式才打开菜单,是不是可以在以下这段代码中修改,谢谢!

Private Sub Treeview_NodeClick(ByVal Node As Object)

    Dim str As String

    If Node.Text = "销售客户" Then

        str = ""

    ElseIf Node.Key Like "*" Then

        str = "[大区名称]='" & Node.Text & "'"

    ElseIf Node.Key Like "*" Then

        str = "[省份名称]='" & Node.Text & "'"

    Else

        str = "[客户名称]='" & Node.Text & "'"

    End If

    Me.Form.FilterOn = True

    Me.Form.Filter = str

End Sub


 

access培训  诚聘access开发人员

    沙溪一滴水
      获得社区协助:请教问题(即发帖)11篇,其中获得解决的9篇;
      协助社区成员:协助他人(即回帖)2篇,其中被设为【最佳答案】的0篇;
      协助我们社区:发布技术文章5篇,邀请了0名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
Top
金宇 等级:版主★★★★★ 积分:5767 金币:10520 来自:江阴Access交流中心 发表于2015/8/16 21:06:29 
1楼 得分: 0
Treeview_NodeClick改成Treeview_NodeDblClick 试试

    希望我的回答能解决了您的问题,或者所附上的这些信息对您有所帮助!如有任何疑问或需要进一步帮助,请您直接在本站发贴,我们非常乐意帮助您解决问题!
    如果我的回答已经解决了您的问题,请点击上方的“最佳答案”,这样本帖子就不会在“待解决问题区”显示了,以方便大家对那些正在等待解决的帖子给予关注!
    金宇  [协助社区成员回帖703篇,其中【最佳答案】247篇;发布技术文章263篇。]
    Access软件网助教团队 
    http://www.umvsoft.com
    如果您没有注册这个论坛,请单击下面的链接进行注册,与我在论坛进行交流:
    http://www.accessoft.com/reg/reg.asp?userid=43
    本贴子以“现状”提供且没有任何担保,同时也没有授予任何权利。
mmtea 等级:一星会员 积分:20 金币:80 来自:南京Access交流中心 发表于2015/8/16 22:38:19 
2楼 得分: 0

金宇老师,还能帮我解下我的问题呀,http://www.accessoft.com/bbs/showtopic.asp?ID=24828

谢谢



    很高兴与您就本帖子进行交流,如果我的回答已经解决了您的问题,请点击上方的“最佳答案”,这样本帖子就不会在“待解决问题区”显示了,我也将获得2个积分奖励,并不会减少您的积分!
    mmtea
      获得社区协助:请教问题(即发帖)23篇,其中获得解决的15篇;
      协助社区成员:协助他人(即回帖)35篇,其中被设为【最佳答案】的5篇;
      协助我们社区:发布技术文章2篇,邀请了0名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
飘摇王 等级:普通会员 积分:248 金币:0 来自:大连Access交流中心 发表于2015/8/17 8:03:30 最佳答案
3楼 得分: 5

http://www.accessoft.com/article-show.asp?id=4613这个是双击的

代码在哪 我也不知道



    很高兴与您就本帖子进行交流,如果我的回答已经解决了您的问题,请点击上方的“最佳答案”,这样本帖子就不会在“待解决问题区”显示了,我也将获得2个积分奖励,并不会减少您的积分!
    飘摇王
      获得社区协助:请教问题(即发帖)20篇,其中获得解决的11篇;
      协助社区成员:协助他人(即回帖)146篇,其中被设为【最佳答案】的30篇;
      协助我们社区:发布技术文章0篇,邀请了0名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
沙溪一滴水 等级:普通会员▲ 积分:110 金币:200 来自:泉州Access交流中心 发表于2015/8/17 11:25:37 
4楼 得分: 0
金宇老师好!我照你方法把Treeview_NodeClick改成Treeview_NodeDblClick结果还是不行,双击后没反应,辛苦你了,还有什么方法吗?谢谢!

    沙溪一滴水
      获得社区协助:请教问题(即发帖)11篇,其中获得解决的9篇;
      协助社区成员:协助他人(即回帖)2篇,其中被设为【最佳答案】的0篇;
      协助我们社区:发布技术文章5篇,邀请了0名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
mmtea 等级:一星会员 积分:20 金币:80 来自:南京Access交流中心 发表于2015/8/17 11:41:56 
5楼 得分: 0
沙溪一滴水金宇老师说的是没有问题,但是你还要做一件事,就是把你的控件-属性-双击,加入【事件过程】

    很高兴与您就本帖子进行交流,如果我的回答已经解决了您的问题,请点击上方的“最佳答案”,这样本帖子就不会在“待解决问题区”显示了,我也将获得2个积分奖励,并不会减少您的积分!
    mmtea
      获得社区协助:请教问题(即发帖)23篇,其中获得解决的15篇;
      协助社区成员:协助他人(即回帖)35篇,其中被设为【最佳答案】的5篇;
      协助我们社区:发布技术文章2篇,邀请了0名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
沙溪一滴水 等级:普通会员▲ 积分:110 金币:200 来自:泉州Access交流中心 发表于2015/8/17 12:01:13 
6楼 得分: 0
飘摇王老师好!谢谢你的热心肠,看了你推荐的文章,我似乎找到了方向,也得到刘老师的解答,他说:

 UMVsoft-刘师 2015-8-17 11:38:40

节点有单击事件,没有双击事件,树控件本身才有双击事件。主要难点在于,如何在树控件的双击事件中,判断是否双击在了某个节点上,还是双击在了空白处




    沙溪一滴水
      获得社区协助:请教问题(即发帖)11篇,其中获得解决的9篇;
      协助社区成员:协助他人(即回帖)2篇,其中被设为【最佳答案】的0篇;
      协助我们社区:发布技术文章5篇,邀请了0名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
沙溪一滴水 等级:普通会员▲ 积分:110 金币:200 来自:泉州Access交流中心 发表于2015/8/18 15:52:18 
7楼 得分: 0

感谢各位热心肠的老师、同学,经你们的指点,我花了几天的时间终于弄出了自己的树控件双击打开窗体的方法,主要得益于飘摇王老师的文章推荐和金宇老师的建议,在此真诚感谢!并向各位汇报一下实现双击打开树控件的心得:


要点:

1、将

     Private Sub ocxTreeMenu_NodeClick(ByVal Node As Object)  '单击

     换成

     Private Sub ocxTreeMenu_DblClick()  '双击

2、增加以下语句:

    Dim objTreeView As TreeView
    ' 设置对象类型变量(objTreeView)
    Set objTreeView = Me.ocxTreeMenu.Object
    ' 获取当前选中节点的Key
    strSelected = objTreeView.SelectedItem.key

3、把Node.key全部换成strSelected,如原先的

    If Node.key = "退出" Then
        DoCmd.Quit
    End If

   换成

    If strSelected = "退出" Then
        DoCmd.Quit
    End If


     



    沙溪一滴水
      获得社区协助:请教问题(即发帖)11篇,其中获得解决的9篇;
      协助社区成员:协助他人(即回帖)2篇,其中被设为【最佳答案】的0篇;
      协助我们社区:发布技术文章5篇,邀请了0名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
沙溪一滴水 等级:普通会员▲ 积分:110 金币:200 来自:泉州Access交流中心 发表于2015/8/18 16:07:52 
8楼 得分: 0

还要注意一点:Private Sub ocxTreeMenu_NodeClick(ByVal Node As Object)  括号里有ByVal Node As Object,而这个在Private Sub ocxTreeMenu_DblClick() 括号里不能有,即写成Private Sub ocxTreeMenu_DblClick(ByVal Node As Object) 是错误的




    沙溪一滴水
      获得社区协助:请教问题(即发帖)11篇,其中获得解决的9篇;
      协助社区成员:协助他人(即回帖)2篇,其中被设为【最佳答案】的0篇;
      协助我们社区:发布技术文章5篇,邀请了0名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
总记录:8篇  页次:1/1 9 1 :
您还没有在Access软件网登录不能回复帖子
  • 你没有登录,请点击后面链接登录:登录
  • 如果你没有注册,请点击后面链接注册:注册,注册完成后,请再次访问本页功能。