Foxtable(狐表) → 用户栏目 → 专家坐堂 → 开发b/s程序


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

主题：开发b/s程序
帅哥哟，离线，有人找我吗？
cglsg5076
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1010 积分：6496 威望：0 精华：0 注册：2015/2/25 23:14:00 		  发帖心情 Post By：2018/1/13 22:06:00 [只看该作者]

请问老师，为什么我的foxtable的网络监视器里没有HttpRequest这个事件？我的foxtable是开发版的2017-10-26。

 回到顶部
帅哥，在线噢！
wei0769
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1814 积分：19246 威望：0 精华：0 注册：2013/4/10 14:38:00 		  发帖心情 Post By：2018/1/14 9:49:00 [只看该作者]

要高级开发版

 回到顶部
帅哥哟，离线，有人找我吗？
cglsg5076
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1010 积分：6496 威望：0 精华：0 注册：2015/2/25 23:14:00 		  发帖心情 Post By：2018/1/14 11:06:00 [只看该作者]

请问老师，从开发版升级到高级开发版要多少钱？是否有优惠？

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/1/14 18:27:00 [只看该作者]

以下是引用cglsg5076在2018/1/14 11:06:00的发言：
请问老师，从开发版升级到高级开发版要多少钱？是否有优惠？

 

周一到周六上班时间，联系客服QQ800014337询问。
 回到顶部
帅哥哟，离线，有人找我吗？
cglsg5076
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1010 积分：6496 威望：0 精华：0 注册：2015/2/25 23:14:00 		  发帖心情 Post By：2018/1/18 14:15:00 [只看该作者]

请教老师，下面代码执行选择0时，可以正确打开Company窗口，可是执行选择1，2，3时就不能打开窗口，窗口都是独立的，也没有报错，请问如何改代码？
谢谢。



Dim selectednodename
Try
 



Select  Case e.sender.SelectedNode.Nodes.Count

       Case 0
          With e.Sender
                 selectednodename=e.sender.SelectedNode.Name
                 e.Form.Controls("GroupBox1").text=selectednodename  
'
        Dim PB As WinForm.Panel =e.Form.Controls("Panel1")
        Forms("Company").OPEN(-1000,-1500)
        Forms("Company").BaseForm.TopLevel = False
        Forms("Company").BaseForm.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
        Forms("Company").BaseForm.Dock = System.Windows.Forms.DockStyle.Fill
        PB.BaseControl.Controls.Clear
        PB.BaseControl.Controls.add(Forms("Company").BaseForm)


                 End With
       Case 1
          With e.Sender
           selectednodename=e.sender.SelectedNode.Name
           e.Form.Controls("GroupBox1").text=selectednodename   
        Dim PB1 As WinForm.Panel =e.Form.Controls("Panel1")
        Forms("Company2").OPEN(-1000,-1500)
        Forms("Company2").BaseForm.TopLevel = False
        Forms("Company2").BaseForm.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
        Forms("Company2").BaseForm.Dock = System.Windows.Forms.DockStyle.Fill
        PB1.BaseControl.Controls.Clear
        PB1.BaseControl.Controls.add(Forms("Company2").BaseForm)
         End With
       Case 2
          With e.Sender
            selectednodename=e.sender.SelectedNode.Name
            e.Form.Controls("GroupBox1").text=selectednodename   
        Dim PB As WinForm.Panel =e.Form.Controls("Panel1")
        Forms("Company3").OPEN(-1000,-1500)
        Forms("Company3").BaseForm.TopLevel = False
        Forms("Company3").BaseForm.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
        Forms("Company3").BaseForm.Dock = System.Windows.Forms.DockStyle.Fill
        PB.BaseControl.Controls.Clear
        PB.BaseControl.Controls.add(Forms("Company3").BaseForm)
                      End With
       Case 3
          With e.Sender
           selectednodename=e.sender.SelectedNode.Name
           e.Form.Controls("GroupBox1").text=selectednodename   
           Dim PB As WinForm.Panel =e.Form.Controls("Panel1")
        Forms("Company4").OPEN(-1000,-1500)
        Forms("Company4").BaseForm.TopLevel = False
        Forms("Company4").BaseForm.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
        Forms("Company4").BaseForm.Dock = System.Windows.Forms.DockStyle.Fill
        PB.BaseControl.Controls.Clear
        PB.BaseControl.Controls.add(Forms("Company4").BaseForm)
          End With
       
       

End Select 

Catch ex As Exception
   messagebox.show("Please select  name ." )



End Try
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/1/18 14:42:00 [只看该作者]

试试改成

 

Case 1
    selectednodename=e.sender.SelectedNode.Name
    e.Form.Controls("GroupBox1").text=selectednodename
    Dim PB1 As WinForm.Panel =e.Form.Controls("Panel1")
    Forms("Company2").Close
msgbox(1)
    Forms("Company2").OPEN(-1000,-1500)
    Forms("Company2").BaseForm.TopLevel = False
    Forms("Company2").BaseForm.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
    Forms("Company2").BaseForm.Dock = System.Windows.Forms.DockStyle.Fill
    PB1.BaseControl.Controls.Clear
msgbox(2)
    PB1.BaseControl.Controls.add(Forms("Company2").BaseForm)
   


 回到顶部
帅哥哟，离线，有人找我吗？
cglsg5076
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1010 积分：6496 威望：0 精华：0 注册：2015/2/25 23:14:00 		  发帖心情 Post By：2018/1/18 17:45:00 [只看该作者]

老师，不行。还有没有其他办法？

 回到顶部
帅哥哟，离线，有人找我吗？
cglsg5076
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1010 积分：6496 威望：0 精华：0 注册：2015/2/25 23:14:00 		  发帖心情 Post By：2018/1/18 17:46:00 [只看该作者]

我是将这段代码放在treeview的Mousedown事件里，这是否有问题？

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/1/18 17:55:00 [只看该作者]

以下是引用cglsg5076在2018/1/18 17:45:00的发言：
老师，不行。还有没有其他办法？

 

如果执行这个 msgbox(e.sender.SelectedNode.Nodes.Count) 弹出什么？

 

msgbox(1、2)弹出了没有？代码写到AfterSelectNode是否可以？
 回到顶部
帅哥哟，离线，有人找我吗？
cglsg5076
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1010 积分：6496 威望：0 精华：0 注册：2015/2/25 23:14:00 		  发帖心情 Post By：2018/1/18 18:14:00 [只看该作者]

执行msgbox(e.sender.SelectedNode.Nodes.Count)，显示的都是0，选择其他节点，但结果都是0，请问怎么该代码？

 回到顶部
总数 64 上一页 1 2 3 4 5 6 7 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 4 次数据查询