Поиск через программу с помощью WebBrowser

Яндекс:

WebBrowser1.Navigate("https://yandex.ru/yandsearch?text=" + TextBox1.Text + "&lr=101102")

minikonkurs-11-14

Google:

WebBrowser1.Navigate("https://www.google.ru/search?hl=ru&newwindow=1&output=search&sclient=psy-ab&q=" + TextBox1.Text + "&btnK=")

Также можно и проделать с другими поисковиками.

Поиск через программу с помощью браузера по умолчанию:

Process.Start("https://yandex.ru/yandsearch?text=" + TextBox1.Text + "&lr=101102")

Search Поиск через программу с помощью WebBrowser

  Метки:
  Евгений
  Просмотров: 1 765
  Запись опубликована в 12:21

Простой браузер

Вот решил для примера сделать простенький браузер. Вы можете его усовершенствовать. Есть только все необходимые функции.

Можете его переделывать под себя. На форму добавляем 5 кнопок:

  1. Перейти на сайт
  2. Обновить сайт
  3. Остановить загрузку
  4. Вернутся на страницу назад
  5. Вернутся на страницу вперед

Ну и добавляем WebBorwser, где собственно и будет отображаться сайт.

браузер 300x183 Простой браузер

Подробнее »

  Метки: , , ,
  nakia
  Просмотров: 4 203
  Запись опубликована в 21:14

Слова на оборот

Слова на оборот.

perevertish Слова на оборот

Первый вариант

Код для кнопки:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    TextBox2.Text = StrReverse(TextBox1.Text)
End Sub

Второй вариант

Код для кнопки:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a As String
        Dim b As Byte
        TextBox2.Text = ""
        b = 1
        Do While b <= Len(TextBox1.Text)
            a = Mid(TextBox1.Text, b, 1)
            TextBox2.Text = a & TextBox2.Text
            b = b + 1
        Loop
    End Sub
  Метки: ,
  Евгений
  Просмотров: 3 301
  Запись опубликована в 18:16

Рисуем на форме фигуры

Даже не помню для чего делал..

Класс Graphics

grap Рисуем на форме фигуры

1. Код рисования линии:

Dim gpap As Graphics 'Объявляем класс Graphics
grap = Me.CreateGraphics 'Будем рисовать по форме
grap.DrawLine(Pens.Black, 80, 20, 200, 100) 'Рисуем линию. Pens.Black цвет. 80(x1),20(y1),200(x2),100(y2) координаты.

2. Код для рисования двух эллипсов и прямоугольника:

Dim Grap As Graphics = Me.CreateGraphics
Grap.DrawRectangle(Pens.Green, 70, 50, 100, 100) 'Квадрат(Pens.Green - цвет зеленый) , (70, 50, 100, 100 - координаты)
Grap.DrawEllipse(Pens.Green, 400, 150, 100, 100) 'Круг(Pens.Green - цвет зеленый(Pens.Black - цвет черный, задаете вы) , (400, 150, 100, 100 - координаты)
Grap.DrawEllipse(Pens.Green, 0, 150, 100, 200) 'Высокий эллипс(Pens.Green - цвет зеленый)
  Метки:
  Евгений
  Просмотров: 4 878
  Запись опубликована в 10:20

Страниц:«1...7778798081828384»