简单的VB问题
问题是~想做一个搜索引擎。意思是说~有一个文本框~一个按钮~点击按钮~~在文本框的内容就会跳到百度~查到以下网站的网站简单点说~就是搜索引擎我想很简单~~我就是~不会在~~点击按钮~~在文本框的内容就会跳到百度~查到以下网站的网站麻烦大家了~谢谢~
参考答案:假设当前窗口有一个Command1和Text1两个控件,现在要在Text1里输入关键字,然后单击Command1就跳到Baidu搜索,那就可以用:
定义API,用于打开指定的URL:
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
在Command1单击事件里增加代码:
Private Sub Command1_OnClick()
Call ShellExecute(Me.hwnd, "Open", "" & text1.text, vbNullString, vbNullString, 3)
End Sub