以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何实现双击单元格,弹出网页并以该单元格内容为关键字进行搜索?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=115608)

--  作者:vbmic
--  发布时间:2018/3/9 23:57:00
--  [求助]如何实现双击单元格,弹出网页并以该单元格内容为关键字进行搜索?
求助:如何实现双击单元格,弹出网页并以该单元格内容为关键字进行搜索?

一、双击某单元格

图片点击可在新窗口打开查看此主题相关图片如下:1111.png
图片点击可在新窗口打开查看

二、弹出网页,并自动以标题为关键字进行搜索

图片点击可在新窗口打开查看此主题相关图片如下:222.png
图片点击可在新窗口打开查看


If e.Col.Name = "标题" Then \'如果双击的是标题列
    \'在网上,搜索当前行的标题
     ???????
End If

--  作者:有点蓝
--  发布时间:2018/3/10 8:53:00
--  
If e.Col.Name = "标题" Then \'如果双击的是标题列
    Dim url As String = "https://www.baidu.com/s?wd=" & e.Row("标题")
    Dim Proc As New Process \'定义一个新的Process
    Proc.File = url \'指定要打开的网页地址
    Proc.Start()
End If

--  作者:vbmic
--  发布时间:2018/3/10 21:38:00
--  回复:(有点蓝)If e.Col.Name = "标题" Then '如果双...
感谢老师。