关于窗体上链接字段问题请教高手指教！

程研

我的MDE文件中使用窗体上有一个链接字段，一般点击该字段即登录数据库对应的链接网站。请教，如何在该窗体上的“列表框”中对应的“记录行”上实现“双击”登录链接网页？

叶海峰

Dim Oie As Object
Set Oie = CreateObject("InternetExplorer.Application")
Oie.Visible = True
Oie.Navigate (strAddress)'列表框选中项的值,即网址

如果不想新打开一个IE浏览器窗口,可以在窗体建一个WEB Broswer控件,具体看看最近这里很热门的有关WEB Broswer的帖子,呵呵

程研

叶海峰 发表于 2012-9-4 11:37
Dim Oie As Object
Set Oie = CreateObject("InternetExplorer.Application")
Oie.Visible = True

谢谢海峰！！！

程研

叶海峰 发表于 2012-9-4 11:37
Dim Oie As Object
Set Oie = CreateObject("InternetExplorer.Application")
Oie.Visible = True

首先感谢海峰！但我没说清我的目的，就是要该窗体上的“列表框”中对应的“记录行”上“双击”实现登录该窗体上链接字段对应的链接网址！您的代码我试了，可一以打开网页，但没有对应窗体上的链接字段内的网址，请教在“Oie.Navigate (strAddress)'列表框选中项的值,即网址”中如何更改调试？

叶海峰

列表框返回什么值就赋值给straddess就是了.至于如何获取列表框返回值,论坛上应该有很多实例.或者你把你的附件传上来

程研

叶海峰 发表于 2012-9-12 19:59
列表框返回什么值就赋值给straddess就是了.至于如何获取列表框返回值,论坛上应该有很多实例.或者你把你的附 ...

请教海峰！在我的“网络导航”中如何实现鼠标双击“网络目录”中对应行实现在“网络地址“上同样的链接网址功能？谢谢！

叶海峰

Dim Oie As Object
Set Oie = CreateObject("InternetExplorer.Application")
Oie.Visible = True
Oie.Navigate me.列表框.column(1)

程研

叶海峰 发表于 2012-9-20 08:45
Dim Oie As Object
Set Oie = CreateObject("InternetExplorer.Application")
Oie.Visible = True

海峰：你好！因故日久没动手了！我把原程序MDE（导航系统）发你，请指教如何实现点击目录表中网站名称即可登录链接网站。请将调试后的MDE 回复我！谢谢！

程研

叶海峰 发表于 2012-9-20 08:45
Dim Oie As Object
Set Oie = CreateObject("InternetExplorer.Application")
Oie.Visible = True

海峰：我把“网络导航”MDE发你，请指教并调试如何实现点击目录表中的网站名称实现登录上网！谢谢！