Веб программирование

Браузер со строкой поиска Яндекс

 
 

Здравствуйте! Сейчас мы сделаем в браузере строку поиска. Это моя первая статья.

Ну, начнём. Подключаем компонент Майкрософт Интернет Контрол. Размещаем на форме текстбокс с именем Text1 и WebBrowser с именем WB. Получается что-то типа такого:

Код:

Dim zapros As String
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
zapros = "yandex.ru/yandsearch?text=" + Text1.Text //Формируем зепрос
WB.Navigate zapros //Переходим по адресу
End If
End Sub

Запускаем, вводим и на Enter:

Скачать исходник [4704 кб]


Есть вопросы? Спроси на нашем форуме!!
ILA200160 [26.07.2013 16:04]

Статейка хорошая, да хочется чего - то большего... Сделать свой браузерный движок, например... Эх, мечтать не вредно!

zm2003160 [26.07.2013 16:36]

одному это сделать нереально... Но я слышал про всякие движки, например WebKit

Bic02610 [30.08.2013 01:40]

Вроде нормик... (че в сарае делает) ладно... Я не хочу знать:)

Bic02610 [30.08.2013 01:42]

СТОООП... В нике чувака 2003- год рождения ? OOOOO_O

Progers300 [30.08.2013 11:03]


Хорошие статьи в сарай не добавляются.

ReDoX170 [30.08.2013 12:00]

Edward, в каком месте это хорошая статья? Он просто перекинул 2 элемента из тулбара и написал код, до которого может любой догадаться проводя поиск в яндексе.

Progers300 [30.08.2013 15:27]

ReDox: Я сказал, что эта статья хорошая?

Shade970 [30.08.2013 19:52]

Option Explicit

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

Private Sub Command1_Click()

Dim strFind As String

strFind = (Text1.Text)
Call ShellExecute(1&, "open", "http://yandex.ru/yandsearch?clid=1537599&lr=213&text=" & strFind, vbNullString, vbNullString, 1&)

End Sub


Вот тебе простой пример поиска с открытием браузера по умолчанию.



Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.