Asp.Net教程,WinForm教程,Asp.Net MVC,vs2008教程,vs2010教程,Silverlight技术,源码下载,Asp.Net视频教程
高级搜索|地图|TAG标签|RSS订阅|设为首页

ASP.NET学习网|ASP.NET教程|ASP.NET MVC|ASP.NET 源码|VS2010教程|ASP.NET视频教程

热门标签

全站热门标签
vs2010 Silverlight 存储过程 水晶报表 ADO.NET JavaScript LINQ AjaxPro DataGridView 面向对象 Extjs GridView XML DevExpress HTML教程 Oracle jQuery 分页 GDI+ Visual C++2010 MySQL Office2010 WPF MVC Dojo WCF4.0 VB.NET Sql2005 textbox cookie WCF WinForm Discuz!NT SQL经典语句 T-SQL checkbox ASPxGridView F# asp.net SQL VS2008新特性 DropDownList Access TreeView Ajax VS2008 页面执行时间 Flex 字符串 回调 VB2005 DataSet C#时间 ASP.NET性能优化 用户在线检测 动画
Framework C#技术VB.NET VC.NET WCF WPF
当前位置: 主页 > WinForm教程 > VB.NET >

VB2010调用百度的“知道”进行搜索

时间:2010-03-23 21:58来源:未知 作者:admin 点击:次

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtBaidu.KeyPress
        If Asc(e.KeyChar) = Keys.Enter Then '按下ENTER键

            '调用系统默认的浏览器，用百度搜索"知道"，在TxtBaidu文本框里面输入的语句
            Dim baidu_zd As New WebBrowser
            baidu_zd.Navigate("http://zhidao.baidu.com/q?ct=17&pn=0&tn=ikaslist&rn=10&word=" & TxtBaidu.Text, True)
        End If
    End Sub

(责任编辑：admin)
Tags：VB2010
责任编辑：admin
【返回顶部】
相关文章
------分隔线----------------------------
图文资讯
推荐内容
骆驼户外男 真皮磨砂日常休闲鞋 低帮 2011秋冬新款 专柜正品特价 骆驼户外男 真皮磨砂日常休闲鞋 低帮 2011秋冬新款 专柜正品特价
热点内容

Design 2009 September www.17aspx.com

Copyright © ASP.NET学习网(www.17aspx.com) 版权所有
鄂ICP备11008191号