代码如下:
代码1:
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Dim frm As Form1
Set frm = Ne[......]
阅读全文
这个程序主要是利用GetAsyncKeyState函数,
使用GetAsyncKeyState可以获得键盘的动作。
GetAsyncKeyState函数根据虚拟键表判断按键的类型。
返回值为一个16位的二进值数,如果被按下则最高位为1[......]
阅读全文
由于种种原因,很多时候站长都需要对网站进行搬家,搬家会经常出现这样或那样的问题,现在对以往的经验做一个总结,希望对各位站长有所帮助。
网站的空间有独立与虚拟之分,下面分别介绍两种空间的搬家方法。
一、独立主机
网站搬家即数[......]
阅读全文
15
2012.05
Discuz x2.5 论坛性能优化速度优化的方法 - 让你论坛秒开
很多同学都说论坛升级到Discuz x2.5,感觉论坛速度慢了,其实Discuz x2.5在论坛性能优化方面做了很大的改进,对大型网站优化方面更为明显一些,今天站帮网-ARCHY为大家分享下论坛速度优化的方法。
速度优化的作用:[......]
阅读全文
前段时间百度发布的网站优化指南中明确提出网站速度是搜索引擎确定网站权重的一个重要方面,而另一搜索引擎巨头谷歌也曾有过类似的表述。这意味着加快网站 的速度对于提升网站的权重将会发挥很好的作用。
其实,不但对于搜索引擎,对于访客来说快的网[......]
阅读全文
回忆一下那些Dreamweaver经典一句话技巧:
1、所有的head元素不可成为库组件,所有元素在被insert library时,其head关联属性被去掉,如style、CSS属性。
2、library组件和template[......]
阅读全文
13
2012.05
VB调用webbrowser获得网页中被选中部分的HTML
如何获得网页中被选中部分的HTML:
Private Sub Command1_Click()
Dim objSelection
Dim objTxtRange
Set objSelection = WebBrowser1.[......]
阅读全文
13
2012.05
VB调用webbrowser使网页不出现滚动条
如何使网页不出现滚动条:
Private Sub mnuScroll1_Click()
@#注意:必须在网页完全显示之后才可以运行
WebBrowser1.Document.body.Scroll = "no" @#不显示滚动条的[......]
阅读全文
13
2012.05
vb调用Webbrowser判断页面是否可以前进后退
判断页面是否可以前进后退:
WebBrowser1.GoForward
End Sub
Private Sub Command2_Click()
WebBrowser1.GoBack
End Sub
Private Su[......]
阅读全文
13
2012.05
vb调用Webbrowser实现页面滚动
页面滚动:
Private Sub Command2_Click()
WebBrowser1.Document.parentwindow.scrollby 0, 30
End Sub
Private Sub Form_L[......]
阅读全文




