ИнтеллигенцияX

Простой плеер на основе WindowsMediaPlayer.

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

Узнаем внешний адрес с помощью парсинга с сайта  https://www.getip.com/

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

Легальная и бесплатная отправка сообщений на номера ТЕЛЕ 2 (исправленная версия).

Почему зачеркнул? Да, потому что больше так не работает. Они изменили все, а переписывать уже смысла нет, т.к каждое отправленное сообщение толи просматривается, толи встает в очередь и минут через 10 только доходит.

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

Написал блокнот похожий на стандартный Notepad.

P.S когда же это было, ужас :D

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

Добавил 10 функций.

Ввод с клавиатуры запрещен!

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

Яндекс:

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")

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

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

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

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

Подробнее »

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

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

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

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

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

Класс Graphics

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 - цвет зеленый)