Wiki Mininuniver - Вклад участника [ru]

Исходники Простенькие программки

2010-09-08T07:29:17Z

Кузнецов Дмирий Владимирович:

[[Меняем местами кнопки мышки | Меняем местами кнопки мышки (Delphi , Windows XP)]]

Делаем браузер

2010-09-08T07:29:05Z

Кузнецов Дмирий Владимирович: Полностью удалено содержимое страницы

Делаем браузер

2010-09-08T07:28:37Z

Кузнецов Дмирий Владимирович:

Написания браузера на vb6 не состоявляет большого труда и его создание не требует глубоких познаний в программировании.

Для начала давайте создадим стандартную форму, после чего на ней нам нужно разместить основной компонент нашего браузера Micosoft internet controls. Жмём Проект\Компоненты на страничке Controls отмечаем флажком компонент Microsoft Internet Controls после чего жмём окей и на панели Toolbox появиться этот обьект ввиде глобуса. Размещаем его на форме.
Теперь давайте рассмотрим методы работы с ним:
Разместите на форме button, двойным нажатием на нем вызовите редактор кода, (всё там удалите) после чего пишем:
@@
Dim site As String

Private Sub Command1_Click() ' переход на сайт
site = "http://wiki.vgipu.ru"
WebBrowser1.Navigate site
End Sub
@@

В режиме просмотра кликнув на кнопке вы перейдёте на главную страницу нашего форума. Иногда бывает что нужно принудительно остановить загрузку страницы, в этом нам поможет:
@@Private Sub Command2_Click() ' стоп
WebBrowser1.Stop
End Sub@@

Тоесть опять создаём на форме кнопку(button) и вбиваем этот код.
В случае если нужно знать когда страница на 100% загружена, нужно написать следующее:
@@Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
MsgBox "Загрузка оконченна"
End Sub@@

Для удобства разместите внизу на форме Label, в котором будет отоброжаться состояние браузера и замените MsgBox "Загрузка оконченна" на Label1.Caption "Загрузка оконченна"

Используя метод LocationName можно отображать название текущего сайта в заголовке браузера:
@@Private Sub WebBrowser1_DownloadComplete()
Form1.Caption = WebBrowser1.LocationName
End Sub@@

Ну и конечноже как и в любом другом браузере довайте разместим ещё 4 кнопки *Назад*, *Вперед*, *Обновить*, *Домой*. В Caption для удобства напишите соответственно для каждой кнопки свой заголовок, тобиш текст который будет отоброжаться на кнопке.
Вбиваем код:
@@Private Sub Command3_Click()
On Error Resume Next
WebBrowser1.GoBack ' Назад
End Sub

Private Sub Command4_Click()
On Error Resume Next
WebBrowser1.GoForvard ' Вперёд
End Sub

Private Sub Command5_Click()
WebBrowser1.Refresh ' Обновить
End Sub

Private Sub Command6_Click()
On Error Resume Next
WebBrowser1.GoHome ' Перейти на домашнюю страничку
End Sub@@

Если хотите сделать прогресс бар, не проблема, можно его добавить. Лежит он в компоненте Microsoft Windows Common controls.
И пишем такой код:
@@Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
On Error Resume Next
If Progress = -1 Then ProgressBar1.Value = 100 'the name of the progress bar is "ProgressBar1".
ProgressBar1.Visible = False 'This makes the progress bar disappear after the page is loaded.
If Progress > 0 And ProgressMax > 0 Then
ProgressBar1.Visible = True
ProgressBar1.Value = Progress * 100 / ProgressMax
End If
Exit Sub
End Sub@@

Еще две важных вещи: сохранение страницы и авторазмер с скрытием ошибок по javascript:
@@Private Sub Command9_Click()'Сохранение страницы
WebBrowser1.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_DODEFAULT
End Sub@@

Ну и естественно добавте оптимизатор:
@@Private Sub Form_Resize()
On Error Resume Next
WebBrowser1.Width = Me.ScaleWidth
WebBrowser1.Height = Me.ScaleHeight - 1680
WebBrowser1.Silent = True
End Sub@@

Делаем браузер

2010-09-08T07:27:39Z

Кузнецов Дмирий Владимирович:

Написания браузера на vb6 не состоявляет большого труда и его создание не требует глубоких познаний в программировании.

Для начала давайте создадим стандартную форму, после чего на ней нам нужно разместить основной компонент нашего браузера Micosoft internet controls. Жмём Проект\Компоненты на страничке Controls отмечаем флажком компонент Microsoft Internet Controls после чего жмём окей и на панели Toolbox появиться этот обьект ввиде глобуса. Размещаем его на форме.
Теперь давайте рассмотрим методы работы с ним:
Разместите на форме button, двойным нажатием на нем вызовите редактор кода, (всё там удалите) после чего пишем:
@@Dim site As String

Private Sub Command1_Click() ' переход на сайт
site = "http://wiki.vgipu.ru"
WebBrowser1.Navigate site
End Sub@@

В режиме просмотра кликнув на кнопке вы перейдёте на главную страницу нашего форума. Иногда бывает что нужно принудительно остановить загрузку страницы, в этом нам поможет:
@@Private Sub Command2_Click() ' стоп
WebBrowser1.Stop
End Sub@@

Тоесть опять создаём на форме кнопку(button) и вбиваем этот код.
В случае если нужно знать когда страница на 100% загружена, нужно написать следующее:
@@Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
MsgBox "Загрузка оконченна"
End Sub@@

Для удобства разместите внизу на форме Label, в котором будет отоброжаться состояние браузера и замените MsgBox "Загрузка оконченна" на Label1.Caption "Загрузка оконченна"

Используя метод LocationName можно отображать название текущего сайта в заголовке браузера:
@@Private Sub WebBrowser1_DownloadComplete()
Form1.Caption = WebBrowser1.LocationName
End Sub@@

Ну и конечноже как и в любом другом браузере довайте разместим ещё 4 кнопки *Назад*, *Вперед*, *Обновить*, *Домой*. В Caption для удобства напишите соответственно для каждой кнопки свой заголовок, тобиш текст который будет отоброжаться на кнопке.
Вбиваем код:
@@Private Sub Command3_Click()
On Error Resume Next
WebBrowser1.GoBack ' Назад
End Sub

Private Sub Command4_Click()
On Error Resume Next
WebBrowser1.GoForvard ' Вперёд
End Sub

Private Sub Command5_Click()
WebBrowser1.Refresh ' Обновить
End Sub

Private Sub Command6_Click()
On Error Resume Next
WebBrowser1.GoHome ' Перейти на домашнюю страничку
End Sub@@

Если хотите сделать прогресс бар, не проблема, можно его добавить. Лежит он в компоненте Microsoft Windows Common controls.
И пишем такой код:
@@Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
On Error Resume Next
If Progress = -1 Then ProgressBar1.Value = 100 'the name of the progress bar is "ProgressBar1".
ProgressBar1.Visible = False 'This makes the progress bar disappear after the page is loaded.
If Progress > 0 And ProgressMax > 0 Then
ProgressBar1.Visible = True
ProgressBar1.Value = Progress * 100 / ProgressMax
End If
Exit Sub
End Sub@@

Еще две важных вещи: сохранение страницы и авторазмер с скрытием ошибок по javascript:
@@Private Sub Command9_Click()'Сохранение страницы
WebBrowser1.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_DODEFAULT
End Sub@@

Ну и естественно добавте оптимизатор:
@@Private Sub Form_Resize()
On Error Resume Next
WebBrowser1.Width = Me.ScaleWidth
WebBrowser1.Height = Me.ScaleHeight - 1680
WebBrowser1.Silent = True
End Sub@@

Делаем браузер

2010-09-08T07:24:35Z

Кузнецов Дмирий Владимирович: Новая: Написания браузера на vb6 не состоявляет большого труда и его создание не требует глубоких познаний в ...

Написания браузера на vb6 не состоявляет большого труда и его создание не требует глубоких познаний в программировании.

Для начала давайте создадим стандартную форму, после чего на ней нам нужно разместить основной компонент нашего браузера Micosoft internet controls. Жмём Проект\Компоненты на страничке Controls отмечаем флажком компонент Microsoft Internet Controls после чего жмём окей и на панели Toolbox появиться этот обьект ввиде глобуса. Размещаем его на форме.
Теперь давайте рассмотрим методы работы с ним:
Разместите на форме button, двойным нажатием на нем вызовите редактор кода, (всё там удалите) после чего пишем:
'''Dim site As String

Private Sub Command1_Click() ' переход на сайт
site = "http://wiki.vgipu.ru"
WebBrowser1.Navigate site
End Sub'''

В режиме просмотра кликнув на кнопке вы перейдёте на главную страницу нашего форума. Иногда бывает что нужно принудительно остановить загрузку страницы, в этом нам поможет:
'''Private Sub Command2_Click() ' стоп
WebBrowser1.Stop
End Sub'''

Тоесть опять создаём на форме кнопку(button) и вбиваем этот код.
В случае если нужно знать когда страница на 100% загружена, нужно написать следующее:
'''Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
MsgBox "Загрузка оконченна"
End Sub'''

Для удобства разместите внизу на форме Label, в котором будет отоброжаться состояние браузера и замените MsgBox "Загрузка оконченна" на Label1.Caption "Загрузка оконченна"

Используя метод LocationName можно отображать название текущего сайта в заголовке браузера:
'''Private Sub WebBrowser1_DownloadComplete()
Form1.Caption = WebBrowser1.LocationName
End Sub'''

Ну и конечноже как и в любом другом браузере довайте разместим ещё 4 кнопки *Назад*, *Вперед*, *Обновить*, *Домой*. В Caption для удобства напишите соответственно для каждой кнопки свой заголовок, тобиш текст который будет отоброжаться на кнопке.
Вбиваем код:
'''Private Sub Command3_Click()
On Error Resume Next
WebBrowser1.GoBack ' Назад
End Sub

Private Sub Command4_Click()
On Error Resume Next
WebBrowser1.GoForvard ' Вперёд
End Sub

Private Sub Command5_Click()
WebBrowser1.Refresh ' Обновить
End Sub

Private Sub Command6_Click()
On Error Resume Next
WebBrowser1.GoHome ' Перейти на домашнюю страничку
End Sub'''

Если хотите сделать прогресс бар, не проблема, можно его добавить. Лежит он в компоненте Microsoft Windows Common controls.
И пишем такой код:
'''Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
On Error Resume Next
If Progress = -1 Then ProgressBar1.Value = 100 'the name of the progress bar is "ProgressBar1".
ProgressBar1.Visible = False 'This makes the progress bar disappear after the page is loaded.
If Progress > 0 And ProgressMax > 0 Then
ProgressBar1.Visible = True
ProgressBar1.Value = Progress * 100 / ProgressMax
End If
Exit Sub
End Sub'''

Еще две важных вещи: сохранение страницы и авторазмер с скрытием ошибок по javascript:
'''Private Sub Command9_Click()'Сохранение страницы
WebBrowser1.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_DODEFAULT
End Sub'''

Ну и естественно добавте оптимизатор:
'''Private Sub Form_Resize()
On Error Resume Next
WebBrowser1.Width = Me.ScaleWidth
WebBrowser1.Height = Me.ScaleHeight - 1680
WebBrowser1.Silent = True
End Sub'''

Исходники Простенькие программки

2010-09-08T07:16:48Z

Кузнецов Дмирий Владимирович:

[[Меняем местами кнопки мышки | Меняем местами кнопки мышки (Delphi , Windows XP)]]
[[Делаем браузер | Делаем браузер (Visual Basic 6.0 , Windows XP)]]

Участник:Кузнецов Дмитрий Владимирович

2010-09-07T14:45:19Z

Кузнецов Дмирий Владимирович:

'''Фамилия имя''' Кузнецов Дмитрий

'''Институт''' [[Институт дизайна]]

'''Группа''' [[группа ИСТ-10]]

'''Мои увлечения''' Visual Basic 6.0

[[Категория:Студент]]

Участник:Кузнецов Дмитрий Владимирович

2010-09-07T14:44:52Z

Кузнецов Дмирий Владимирович: «Участник:Кузнецов Дмирий Владимирович» переименована в «Участник:Кузнецов Дмитрий Владимирович»

'''Фамилия имя''' Кузнецов Дмитрий

'''Институт'''[[Институт дизайна]]

'''Группа'''[[группа ИСТ-10]]

'''Мои увлечения''' Visual Basic 6.0

[[Категория:Студент]]

Участник:Кузнецов Дмирий Владимирович

2010-09-07T14:44:52Z

#REDIRECT [[Участник:Кузнецов Дмитрий Владимирович]]

Группа ИСТ-10

2010-09-07T14:44:16Z

Кузнецов Дмирий Владимирович:

[[Изображение:ИСТ-10 09.2010.jpg|500px|center]]

Куратор: [[Участник:Круподерова Елена Петровна|Круподерова Елена Петровна]]

'''Список группы:'''
#[[Участник:Плеханов Семён|Плеханов Семён Петрович]]
#[[Участник:Гришин Евгений|Гришин Евгений Анатольевич]]
#[[Участник:Слепышева Елена|Слепышева Елена Александровна]]
#[[Участник:Никитаева Елена|Никитаева Елена Сергеевна]]
#[[Участник:Кислицкий Илья|Кислицкий Илья Станиславович]]
#[[Участник:Михаил Большаков|Большаков Михаил Валерьевич]]
#[[Участник:Иришка Царегородцева|Царегородцева Ирина Владимировна]]
#[[Участник:Kristina R|Родионова Кристина Владимировна]]
#[[Участник:Кузнецов Дмитрий Владимирович|Кузнецов Дмитрий Владимирович]]

'''Актив группы'''
{|border=1
!Староста
|[[Участник:Никитаева Елена|Никитаева Елена Сергеевна]]
|-
!Зам старосты
|.
|-
!Профорг
|[[Участник:Кислицкий Илья|Кислицкий Илья Станиславович]]
|-
!Физорг
|.
|-
!Культорг
|[[Участник:Иришка Царегородцева|Царегородцева Ирина Владимировна]]
|}

[[Категория:Институт дизайна]]
[[Категория:Группы]]

Группа ИСТ-10

2010-09-07T14:43:50Z

Кузнецов Дмирий Владимирович:

[[Изображение:ИСТ-10 09.2010.jpg|500px|center]]

Куратор: [[Участник:Круподерова Елена Петровна|Круподерова Елена Петровна]]

'''Список группы:'''
#[[Участник:Плеханов Семён|Плеханов Семён Петрович]]
#[[Участник:Гришин Евгений|Гришин Евгений Анатольевич]]
#[[Участник:Слепышева Елена|Слепышева Елена Александровна]]
#[[Участник:Никитаева Елена|Никитаева Елена Сергеевна]]
#[[Участник:Кислицкий Илья|Кислицкий Илья Станиславович]]
#[[Участник:Михаил Большаков|Большаков Михаил Валерьевич]]
#[[Участник:Иришка Царегородцева|Царегородцева Ирина Владимировна]]
#[[Участник:Kristina R|Родионова Кристина Владимировна]]
#[[Участник:Кузнецов Дмитрий|Кузнецов Дмитрий]]

'''Актив группы'''
{|border=1
!Староста
|[[Участник:Никитаева Елена|Никитаева Елена Сергеевна]]
|-
!Зам старосты
|.
|-
!Профорг
|[[Участник:Кислицкий Илья|Кислицкий Илья Станиславович]]
|-
!Физорг
|.
|-
!Культорг
|[[Участник:Иришка Царегородцева|Царегородцева Ирина Владимировна]]
|}

[[Категория:Институт дизайна]]
[[Категория:Группы]]

Группа ИСТ-10

2010-09-07T14:43:35Z

Кузнецов Дмирий Владимирович:

[[Изображение:ИСТ-10 09.2010.jpg|500px|center]]

Куратор: [[Участник:Круподерова Елена Петровна|Круподерова Елена Петровна]]

'''Список группы:'''
#[[Участник:Плеханов Семён|Плеханов Семён Петрович]]
#[[Участник:Гришин Евгений|Гришин Евгений Анатольевич]]
#[[Участник:Слепышева Елена|Слепышева Елена Александровна]]
#[[Участник:Никитаева Елена|Никитаева Елена Сергеевна]]
#[[Участник:Кислицкий Илья|Кислицкий Илья Станиславович]]
#[[Участник:Михаил Большаков|Большаков Михаил Валерьевич]]
#[[Участник:Иришка Царегородцева|Царегородцева Ирина Владимировна]]
#[[Участник:Kristina R|Родионова Кристина Владимировна]]
#[[Участник:Кузнецов Дмитрий|Кузнецов Дмитрий Владимирович]]

'''Актив группы'''
{|border=1
!Староста
|[[Участник:Никитаева Елена|Никитаева Елена Сергеевна]]
|-
!Зам старосты
|.
|-
!Профорг
|[[Участник:Кислицкий Илья|Кислицкий Илья Станиславович]]
|-
!Физорг
|.
|-
!Культорг
|[[Участник:Иришка Царегородцева|Царегородцева Ирина Владимировна]]
|}

[[Категория:Институт дизайна]]
[[Категория:Группы]]

Участник:Кузнецов Дмитрий Владимирович

2010-09-07T14:43:06Z

Кузнецов Дмирий Владимирович: Новая: '''Фамилия имя''' Кузнецов Дмитрий '''Институт'''Институт дизайна '''Группа'''группа ИСТ-10 '''Мои увлеч...

'''Фамилия имя''' Кузнецов Дмитрий

'''Институт'''[[Институт дизайна]]

'''Группа'''[[группа ИСТ-10]]

'''Мои увлечения''' Visual Basic 6.0

[[Категория:Студент]]

Группа ИСТ-10

2010-09-07T14:41:34Z

Кузнецов Дмирий Владимирович:

Группа ИСТ-10

2010-09-07T14:41:06Z

Кузнецов Дмирий Владимирович:

[[Изображение:ИСТ-10 09.2010.jpg|500px|center]]

Куратор: [[Участник:Круподерова Елена Петровна|Круподерова Елена Петровна]]

'''Список группы:'''
#[[Участник:Плеханов Семён|Плеханов Семён Петрович]]
#[[Участник:Гришин Евгений|Гришин Евгений Анатольевич]]
#[[Участник:Слепышева Елена|Слепышева Елена Александровна]]
#[[Участник:Никитаева Елена|Никитаева Елена Сергеевна]]
#[[Участник:Кислицкий Илья|Кислицкий Илья Станиславович]]
#[[Участник:Михаил Большаков|Большаков Михаил Валерьевич]]
#[[Участник:Иришка Царегородцева|Царегородцева Ирина Владимировна]]
#[[Участник:Kristina R|Родионова Кристина Владимировна]]
#[[Участник:Кузнецов Дмитрий|Кузнецов Дмитрий Владимирович]]

'''Актив группы'''
{|border=1
!Староста
|[[Участник:Никитаева Елена|Никитаева Елена Сергеевна]]
|-
!Зам старосты
|.
|-
!Профорг
|[[Участник:Кислицкий Илья|Кислицкий Илья Станиславович]]
|-
!Физорг
|.
|-
!Культорг
|[[Участник:Иришка Царегородцева|Царегородцева Ирина Владимировна]]
|}

[[Категория:Институт дизайна]]
[[Категория:Группы]]

Обсуждение участника:Glena040z

2009-07-22T10:37:25Z

Glena040z: Новая: Привет. Меня зовут Алёна. Мне 16 лет. Я живу в Минске с родителями и младшей сестрой Полиной. Еще у нас е...

Привет. Меня зовут Алёна. Мне 16 лет.
Я живу в Минске с родителями и младшей сестрой Полиной. Еще у нас есть дома говорящий попугай Тори и кошка Муся. Мы очень дружная семья.
Я учусь в школе. Мне там очень нравиться. Больше всего люблю математику, физику и английский язык. Когда выросту закончу школу мечтаю уехать учиться за границу. Для этого я начала посещать курсы английского языка. Мне очень нравиться наша преподаватель, она всегда все доступно объясняет.
Я занимаюсь пением, мне очень нравиться петь песни и даже некоторые из них собственного сочинения. Еще я иногда пишу стихи, а потом даю почитать своим друзьям и близким и некоторые оставляю на сайтах в интернете.

Интересные сайты: [http://www.maglot.ru Сайт 1] [http://www.magmak.ru Сайт 2] [http://www.magrich.ru Сайт 3][http://www.magshok.ru Сайт 4][http://www.magstos.ru Сайт 5]