Просмотр "Уроки Visual Basic.NET"

Поиск через программу с помощью 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

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

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

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

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

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

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

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

Подробнее »

  Метки: , , ,
  nakia
  Просмотров: 7 561
  Запись опубликована в 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
  Метки: ,
  Евгений
  Просмотров: 6 302
  Запись опубликована в 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 - цвет зеленый)
  Метки:
  Евгений
  Просмотров: 10 627
  Запись опубликована в 10:20

Работа с FTP

Пример работы с FTP.

  • Подключение
  • Размер файла
  • Создание каталога
  • Удаление каталога или файла
  • Загрузка файлов
  • Список файлов

Загрузить проект

FtpClient Работа с FTP

FTP-Клиент от Памирыча.

Функционал по более.

Загрузить проект

FtpClient2 Работа с FTP

  Метки:
  Евгений
  Просмотров: 7 715
  Запись опубликована в 15:37

Функция парсинга данных по тегам

Добрый день.

Сегодня рассмотрим функцию для парсинга данных с сайта по тегам.

Функция не сложная, но для начинающих может показаться сложной.

Разберем пример на моем блоге.

Попробуем вытащить текст заголовка (знаю, что можно с помощью класса WebBrowser с одной строкой кода это сделать, но сейчас речь идет о другом) по тегам <title> </title>.

Imports System.Net
Imports System.IO
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim WC As New WebClient ' Объявляем новый класс WebClient для обмена данными с ресурсом, заданным URI
        Dim HtmlText As String, Result As String
        HtmlText = WC.DownloadString(New Uri("https://ds-release.ru")) 'Загружаем блог, как строку, то есть получаем html код главной страницы блога.
        WC.Dispose()
        Result = Pars(HtmlText, ("<title>"), ("</title>")) 'Строка с html кодом главной страницы блога, первый открывающий тег, второй закрывающий тег
        MsgBox(Result) 'Результат
    End Sub
    ' Функция для парсинга. Советую просмотреть шаг за шагом и посмотреть на выполнение.
    Public Function Pars(ByRef strSource As String, ByRef strStart As String, ByRef strEnd As String) As String
        Dim iPos As Integer, iEnd As Integer
        Dim strResult As String
        iPos = strSource.IndexOf(strStart, 0)
        iEnd = strSource.IndexOf(strEnd, iPos + strStart.Length)
        If iPos <> -1 AndAlso iEnd <> -1 Then
            strResult = strSource.Substring(iPos + strStart.Length, iEnd - (iPos + strStart.Length))
        End If
        Return strResult
    End Function

Результат будет - "Уроки Visual Basic.NET"

Тоже самое вы можете проделать и с другими сайтами и тегами, только скажу, что не всегда так легко можно вытянуть текст заключенный в теги.

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

Класс WebClient

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

Запись текста в текстовый файл

Будем записывать текст из TextBox1 в текстовый файл.

На форму кидаем один TextBox и две кнопки (Button).

Первый способ записи:

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim сохранить As New SaveFileDialog ' Создаем новый элемент "диалог сохранения"
        сохранить.Filter = "Файлы .txt|*.txt" ' Фильтр для сохранения(.txt)
        If сохранить.ShowDialog = DialogResult.Cancel Then Exit Sub ' Обезопасим себя от ошибки, если мы не нажали на ок, то диалог закроется.
        Dim запись As String ' Переменная для хранения текста
        запись = TextBox1.Text ' Заполняем переменную
        FileOpen(1, сохранить.FileName, OpenMode.Output) ' Создает и открывает файл
        Print(1, запись, "") ' Записывает текст в файл
        FileClose(1) ' Закрывает файл
        MsgBox("Сохранился в - " & сохранить.FileName, , "Запись текста в текстовый файл") ' Показываем сообщение куда сохранился файл
    End Sub
End Class

filestreet Запись текста в текстовый файл

Второй способ:

  Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim сохранить As New SaveFileDialog ' Создаем новый элемент "диалог сохранения"
        сохранить.Filter = "Файлы .txt|*.txt" ' Фильтр для сохранения(.txt)
        If сохранить.ShowDialog = DialogResult.Cancel Then Exit Sub ' Обезопасим себя от ошибки, если мы не нажали на ок, то диалог закроется.
        Dim запись As New System.IO.StreamWriter(сохранить.FileName) ' Реазилзует запись символов в файл
        запись.Write(TextBox1.Text) ' Записываем в файл текст
        запись.Close() ' Закрываем файл
        MsgBox("Сохранился в - " & сохранить.FileName, , "Запись текста в текстовый файл") ' Показываем сообщение куда сохранился файл
    End Sub

filestreet2 Запись текста в текстовый файл

Полная статья - Запись и чтение в VB.NET

  Метки:
  Евгений
  Просмотров: 19 683
  Запись опубликована в 14:03

Страницы:«1...56789101112