主题：请教狐爸及高手大侠

此主题相关图片如下：qq截图20130103214304.png

 

 

请教狐爸及各位高手，窗口里的目录树右键菜单里的命令，如何能执行啊，代码如何写啊？请见图片。谢谢

 

这个我也是看别人案例，照抄下来，但没有下一步如何再进行下去的步骤，所以请教各位能不能给写个例子啊，新手上道请多关照啊。谢谢

对于新手要好好看看帮助文档我也知晓，正在学习，不过帮助文档不是马上都能消化的了的，我的学习习惯也许跟旁人不同，我习惯在实践中摸索，这样记得扎实，也有兴趣。

所以请各位能照顾我这个新手。再次感谢了。目前我手里这个小项目就差这个目录树了，完善后就可以简单应用了。上传个界面，希望高手指点。

我一共学习了5天的成果，我感觉还是进步挺快的，供新手参考，互相鼓励下，狐表确实很容易上手的。但要是学精，确实得些时日。

此主题相关图片如下：zm.jpg


此主题相关图片如下：zm1.jpg

楼上几位不要怀疑，在下确实就这几天见的成果，尤其元旦这3天休息，一心学习，说出来并不是炫耀自己的小聪明，而是对新手的一种互相鼓励。

再往下学确实有太多的不懂，毕竟说明书太多了，不是一下都能懂的，目前这种状况，也都是看了坛子里的教程，尤其视频文件，太好了，有很好的借鉴作用。

我上手快也跟我平时工作有关，天天操作电脑，对excel不陌生吧。

 

感谢lin老师的示例，正式想要的。

我对代码确实是知之甚少，也按照您的例子去实验。  我把右键菜单改成 “增加根节点”、“增加子节点”，“重命名等”，然后给这些菜单再加上按钮代码，

比如：“重命名”的代码按照说明书1240页的代码写到事件里

Dim tr As WinForm.TreeView
tr = e.Form.Controls("TreeView1")
tr.Select()
tr.BeginEdit()

但报错，不执行。不知何故？

 

 

谢谢lin老师的指点，我渐渐明白这个过程了。

由于对代码的不熟，所以原来只是单纯的把目录树直接拉到左侧窗口，然后再重命名，增加，删除等，实现不了。

通过各位前辈的指导，已经基本明白这个过程，但还有个疑惑，请再给指点下：

 

就是快捷菜单建好后，代码也加上了，那这个快捷菜单如何放到窗口中，不能像直接把目录树控件拽到窗口中了吧？

我基本明白了，我再从头捋捋，谢谢各位

楼上各位老师：

 

我按照例子自己做了下，发现个问题，我把快捷菜单里的不同按钮赋予不同的命令，如：重命名，增加根节点的代码，当时是可以更改，可是关掉后，又变回没改前的样子，

我有加了个保存的代码，

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim fn As String = ProjectPath & "Product.foxtr"
tr.Save(fn)

 

还是保存不了，何故啊？

这个树是自己随意在目录树里增加节点建立的。为了以后跟表里的名单分类管理建立连接。

 

看那个文件，然后呢？

终于弄好了！

 

请问下，可不可以让更改后的菜单自动保存啊?  这样就不用单独加一个“保存”的按钮了，瞅着别扭。

 

此主题相关图片如下：a.jpg