vb制作简单的多窗口浏览器(6)--拖拽

一直在用Tw,不知道这个拖拽是先TW创的还是MT创的,有了这个功能后,多页浏览器的方便就变成了更方便了.

做这个功能前,并没有太仔细的看webbrowser的方法和属性,一直以为是个小动作,只要在webbrowser实现drag&drop就行了.可真的做起来的时候却发现这个控件虽然有dragdrop和dragmove,但似乎并不能实现从webbrowser拖拽一个很小的距离就能打开新页面,只能通过拖拽到其它控件上才行.

试想如果一个链接是在webbrowser的最最下角,而你的搜索栏在右上角,那么将拖动很长一段距离.于是这个方案被否决了.

作为VB,有很多控件可以加载来使用,(当然对于VB高手来说,他们更乐意自己写CODE来代替控件,而不是去引用其它的他人的东西.)于是这里,我加载了html object libaray,通过它的htmldocument来实现了拖拽.