哪位老大..再来一段代码.谢谢..

[gddd]

记得某些浏览器程序下面有个状态栏.
当鼠标移动到某个可连接的时候,它就显示出该网址...
请问建立一个WEB控件和一个TEXT控件.如何做到鼠标点击该WEB控件上可连接的网址时将该网址自动显示到text控件中?


回复贴子：
回复人：　gddd(gddd)　(2001-11-28 19:37:23) 得0分
最好不要用到statusbar控件...如果必须用到也可用!
回复人：　fishzone(阿愚)　(2001-11-28 20:20:04) 得0分

'在WebBrowser的Statustextchange事件里：

Private Sub webBrowser1_StatusTextChange(ByVal Text As String)
labStatus.Caption = Text
End Sub




gddd再问：
如何鼠标左键点击它以后.才让所需要数据

labStatus.Caption =text

[gddd]

是不懂还是？？？？？？？？？？？？？？？？

[gddd]

没看明白还是全睡着啦?

[gddd]

鼠标左鼠点击WEB1上的某些连接的时候,才去实现
Private Sub webBrowser1_StatusTextChange(ByVal Text As String)
labStatus.Caption = Text
End Sub
应该写成这样吗?
Private Sub webBrowser1_StatusTextChange(ByVal Text As String)
if mouseup=true then ?????????????????????????????????????????
labStatus.Caption = Text
end if
End Sub
???????????????