作者fenglih (～ 尘埃 ～)
看板Visual_Basic
标题[VB6 ] 制作Browser的问题
时间Sun Mar 26 21:22:34 2006
请问各路好手
朋友用VB写了一个Browser(因为我VB还算是初学者，所以大概知道问题所在而已)
可是在执行时有出现一个问题
---------------------------------------------------------
假设
输入网址的地方是在text1
上一页按扭是在command1
下一页按扭是在command2
我朋友的问题是在：
(前题是，一开始就有先预设先开启的网页了)
在text1还未输入网址前
command1和command2是锁着的
而我朋友的他的却是输入网址後
command1和command2同时是打开的
他在text1_KeyPress里面是这麽写的
Dim KeyAscii As Short = Asc(eventArgs.KeyChar)
If KeyAscii = 13 Then
aa = WebBrowser1.LocationURL
WebBrowser1.Navigate(Text1.Text)
WebBrowser2.Navigate(aa)
Command1.Enabled = True
Command2.Enabled = True
^^^^^^^^^^^^^^^^^^^^^^^
很明显的我朋友在这里就写自动打开了
End If
If KeyAscii = 0 Then
eventArgs.Handled = True
End If
所以我建议了他在
(前题是要先把text1_keypress里面的
command2.enabled = true先删除)
Command1_Click里面写上下面这些东西
If command1.Enabled = True then
command2.Enabled = True
else
command2.Enabled = false
end if
可是这样测试之後问题是
还是没办法辨别是否浏览到最前面一页或是最後一页
所以希望是
能否浏览到最前面一页command1就自动锁起来
到最後一页时command2也会自动锁起来
请问该怎麽写呢? Orz
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 218.163.164.66
※ 编辑: fenglih 来自: 218.163.164.66 (03/26 21:30)