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

gddd 2001-11-28 10:44:43

记得某些浏览器程序下面有个状态栏.
当鼠标移动到某个可连接的时候,它就显示出该网址...
请问建立一个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

...全文

62 3 打赏收藏举报

写回复

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

gddd 2001-11-29

打赏
举报

鼠标左鼠点击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
???????????????

gddd 2001-11-29