【Access小品】东北乱炖---WebBrowser综合技巧示例

todaynew

　　东北乱炖和东北的民族有关，有人说炖菜就是东北游牧民族遗留的吃法，这里曾是蒙古、大金、大辽、满族的世居地，这些游牧民族过着马背上的颠沛流离的生活，一口大铁锅驮在马背上，每到宿营，只好连荤带素扔到一个锅里烩，慢慢地形成了东北特色的炖。吃这东北炖菜，人们的情绪很重要，文明客气是不沾边的，一桌人围着几大盆热气腾腾的炖菜，筷子飞舞，大声笑骂，酒杯碰得山响，脸上淌着油汗，吃到酣快时，不妨站起来，一只脚踏上凳子，一手举着酒杯，一手忙着夹菜，嘴里高声笑骂，这情景在其他地方人看来，简直就是土匪，但这正是东北人吃东北炖菜的酣畅淋漓的体现。与东北乱炖不同，福建的佛跳墙虽然也是一种乱炖，但食材精致许多，便也就有了“坛启荤香飘四邻，佛闻弃禅跳墙来”的传说。无论如何乱炖总是一种方法，这种方法杂陈五味，令人叫绝。

　　
　　今日又写了一个WebBrowser控件的示例，也有些许乱炖的意味，穿插各种手段和方法，将Html、Css、JQuery、UI组件、ADO、VB一堆玩意折腾到一起。实现了网页到窗体之间的自由穿梭，无障碍旅行。如果你希望使用WebBrowser控件，看了这个示例，所有困惑不解的问题都烟消云散去了。

t小宝

看来老汉对WebBrowser已经得心应手了

wgh3g

楼主，压缩包中是否少了html文件？

yanwei82123300

系统提示有问题

lynnwang

todaynew
哈哈！跟着你跑过来这边{:soso_e120:}

无法启动，错误如下：
Private Sub WebBrowser0_DocumentComplete(ByVal pDisp As Object, url As Variant)
    Dim dom
    Set dom = Me.WebBrowser0.Document
    Set dom.parentWindow.accForm = Me
    Call CreatTree(dom)
    Call EventBind
    Set dom = Nothing
End Sub

Set dom.parentWindow.accForm = Me     ‘就这句出错，对象不支谬该属性或方法。

你的包里也没有这个文件哦
    Me.WebBrowser0.Navigate CurrentProject.Path & "\tree.html"

注意：对象已引用，且编译通过，WIN7x64+office 2003

lynnwang

JQuery现在确实是很流行，但是你开发的是WINDOWS程序应用
我觉得我们这些搞VBA新手，真的有时间还不如学点C或C++来得实用，这样让你对WINDOWS能真正有个了解，
你的世界也从此不一样了{:soso_e128:}。我新手一点经验。

gxy1000

这个tree网页怎么做的呢？

zhuyiwen

推荐阅读：
jQuery插件开发 - 其实很简单

心得：

1. (function($) {
   
2.   // Code goes here
   
3. })(jQuery);

复制代码

=

1. var jq = function($) {
   
2.   // Code goes here
   
3. };
   
4. jq(jQuery);

复制代码

todaynew，程序在 IE6 + Access 2003 中运行不出错，但在 IE8 中出错。原因，我没找到。

todaynew

楼上诸同志：因昨日疏忽压缩文件没有整全乎便上传了。后发现此问题却又无法登陆论坛，无奈之下请求roych同志加以了更正。目前附件为正确的。

朱老师：所提供资料很有价值，将仔细学习。关于IE8出错为题还未研究，可能与WebBrowser控件版本有关吧？

todaynew

gxy1000 发表于 2012-9-11 23:28
这个tree网页怎么做的呢？

下载一个qjuer编写的tree就行了，不必自己编写。网上这类东西很多。