作者LinLeopold (神鵰李奥)
看板Visual_Basic
标题Re: [VB6 ] 制作Browser的问题
时间Tue Mar 28 19:26:17 2006
不好意思 我还是写不出来耶...
可否再请教一下
我把
lngHis=ubound(arrHistory)+1
redim preserve arrHistory(lngHis)
贴到Command2(也就是下一页的那个按扭)
当然 在"一般"(Genneral)的地方 我已经有宣告arrHistory了
可是我run的时候
还是出现错误...@@"
我再详细解释我的瓶颈过程一下...
我的视窗介面是设计成 有两个webbrower
所以开始执行时 会同时先跑出两个网页
所以在from load中已经写了
WebBrowser1.Navigate "www.google.com.tw"
WebBrowser2.Navigate "www.msn.com.tw"
尤於我们老师要求的是
如果当text1.text打了一个新网址
这个新网页会出现在WebBrowser1中
原本的WebBrowser1中的google网页就会跑到WebBrowser2去
以此类推...
现在我主要的瓶颈是 按钮上的"上一页"、"下一页" 隐形字问题
题目规定是 开始执行的时候 "上一页"、"下一页" 字必须是锁着的
所以我在属性的地方就先把它们两个的Enabled改成false
但是当我打下在text1.text中第一个网址时
"上一页"按钮的字必须从虚字变成实字 也就是Enabled必须打开
但是这时候的"下一页"的Enabled必须还是锁着的
除非我回到"上一页"
我的"下一页"的Enabled才会打开(这是题目规定的)
也就是除非有上一页可走 "上一页"按钮才能打开
同理 除非有下一页可走 "下一页"按钮才可打开
不知道各位高手懂不懂我的意思
sorry... 因为我也是vb初学者 ^^"
我们的老师提示是说
设三个变数
就可以写出来了
but 目前我只写得出一个变数
也就是aa
在Text1_KeyPress(KeyAscii As Integer)中写下
Dim KeyAscii As Short = Asc(eventArgs.KeyChar)
If KeyAscii = 13 Then
aa = WebBrowser1.LocationURL
WebBrowser1.Navigate(Text1.Text)
WebBrowser2.Navigate(aa)
Command1.Enabled = True
这样子 "上一页"是打开了
但是 "下一页"还是锁着的
如果我在Text1_KeyPress(KeyAscii As Integer)中
把Command2.Enabled = True写下去
这样也是错的 因为除非我先回到上一页
不然不可能有下一页可走... 所以"下一页"不能在这时候打开
请问各位高手 我到底该怎麽办呢...?? @@"
※ 引述《lls23 (侰侰侁)》之铭言:
: 应当在你点击往下一页按钮时用﹐并且判定此时并非浏览已有页面
: 而是真的往下一新页走
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 220.141.102.65