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

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

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

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

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

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

Подробнее »

googleplus Простой браузер
livejournal Простой браузер
  Метки: , , ,
  nakia
  Просмотров: 3 309
  Запись опубликована в 21:14

Игра «Камень/Ножница/Бумага»

Думаю правила все знают? :D

kamen Игра Камень/Ножница/Бумага

googleplus Игра Камень/Ножница/Бумага
livejournal Игра Камень/Ножница/Бумага
  Метки:
  nakia
  Просмотров: 3 247
  Запись опубликована в 20:37

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

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

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
googleplus Слова на оборот
livejournal Слова на оборот
  Метки: ,
  Евгений
  Просмотров: 2 687
  Запись опубликована в 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 - цвет зеленый)
googleplus Рисуем на форме фигуры
livejournal Рисуем на форме фигуры
  Метки:
  Евгений
  Просмотров: 3 419
  Запись опубликована в 10:20

Клиент для сайта VBBook.Ru

Все уроки в одной программе!

vbbook Клиент для сайта VBBook.Ru

Скачать VBBook.exe 1.3.1

Последняя версия программы VBbook 1.3.1

Что изменилось в версии 1.3.1

  1. Добавлено сохранение и загрузка уроков
  2. Добавлено возможность установки Flash Player 11.
  3. Горячая клавиша для выхода из программы (Ctrl + F10).
  4. Исправлены ошибки

Что изменилось в версии 1.2.6

  1. Добавлено сообщение при первом запуске программы.
  2. Изменена проверка обновления.
  3. Изменена анимация загрузки.
  4. Изменена иконка программы

Что изменилось в версии 1.2.5

  1. При входе в чат, кнопка “УРОКИ” меняется на неактивную.
  2. Добавлено меню для выбора уроков.
  3. Изменена анимация загрузки.

Что изменилось в версии 1.2.4:

  1. Теперь вы можете просматривать уроки, не выходя из чата.
  2. Добавлена проверка версии через интернет.
  3. Горячая клавиша для выхода из программы (F10).
  4. Исправлены некоторые баги.
googleplus Клиент для сайта VBBook.Ru
livejournal Клиент для сайта VBBook.Ru
  Метки:
  Евгений
  Просмотров: 1 415
  Запись опубликована в 11:59

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