Office中国论坛/Access中国论坛

标题: 【Access小品】东北乱炖---WebBrowser综合技巧示例 [打印本页]
作者: todaynew    时间: 2012-9-11 19:37
标题: 【Access小品】东北乱炖---WebBrowser综合技巧示例
本帖最后由 roych 于 2012-9-11 21:37 编辑

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

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

[attach]50361[/attach]

[attach]50362[/attach]
作者: wgh3g    时间: 2012-9-11 20:07
楼主，压缩包中是否少了html文件？
作者: yanwei82123300    时间: 2012-9-11 20:33
系统提示有问题
作者: lynnwang    时间: 2012-9-11 20:37
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

作者: t小宝    时间: 2012-9-11 21:01
看来老汉对WebBrowser已经得心应手了
作者: 叶海峰    时间: 2012-9-11 21:06
估计tree.html那家伙穿越去了古代,瞄上个格格,没跟着回来...{:soso_e113:}
作者: lynnwang    时间: 2012-9-11 22:35
JQuery现在确实是很流行，但是你开发的是WINDOWS程序应用
我觉得我们这些搞VBA新手，真的有时间还不如学点C或C++来得实用，这样让你对WINDOWS能真正有个了解，
你的世界也从此不一样了{:soso_e128:}。我新手一点经验。
作者: gxy1000    时间: 2012-9-11 23:28
这个tree网页怎么做的呢？
作者: zhuyiwen    时间: 2012-9-12 04:48
推荐阅读：
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    时间: 2012-9-12 06:19
楼上诸同志：因昨日疏忽压缩文件没有整全乎便上传了。后发现此问题却又无法登陆论坛，无奈之下请求roych同志加以了更正。目前附件为正确的。

朱老师：所提供资料很有价值，将仔细学习。关于IE8出错为题还未研究，可能与WebBrowser控件版本有关吧？
作者: todaynew    时间: 2012-9-12 12:57
gxy1000 发表于 2012-9-11 23:28
这个tree网页怎么做的呢？

下载一个qjuer编写的tree就行了，不必自己编写。网上这类东西很多。
作者: yanwei82123300    时间: 2012-9-13 14:00
todaynew 老师给个下载网页吧，谢谢
作者: todaynew    时间: 2012-9-13 18:51
yanwei82123300 发表于 2012-9-13 14:00
todaynew 老师给个下载网页吧，谢谢

示例中有一个，直接用就可以了。
作者: 54pan123    时间: 2014-12-23 19:40
学习
作者: 54pan123    时间: 2014-12-23 19:40
牛人多



欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3