Отправляет email-рассылки с помощью сервиса Sendsay

Уроки по Visual C++ (MFC, платформа .NET)

Подписаться Бесплатная «Серебряная» новостная рассылка . Подписчиков 7.223 RSS
←   Март 2002   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Сайт рассылки: http://progs.biz
Открыта: 07-10-2001

Автор
Алексеев Игорь

Статистика

7.223 подписчиков
0 за неделю
←   Все выпуски   →

Уроки по программированию. Visual C++, MFC, VB, ActiveX


Служба Рассылок Subscribe.Ru

Visual Basic. Примеры. Уроки по программированию с сайта http://progs.biz

Рассылка №29

Visual Basic. Примеры. Label в виде WEB-ссылки. Урок 5. Реализуем переход по щелчку.
Visual Basic. Примеры. Label в виде WEB-ссылки. Урок 6. Изменение курсора.
Полные версии уроков (с картинками) можно найти по адресам
Урок 5. Реализуем переход по щелчку.
Урок 6. Изменение курсора.

Label в виде WEB-ссылки (ActiveX на VB). Урок 5. Реализуем переход по щелчку

Теперь самое главное, ради чего мы все это и затеяли. Сейчас мы сделаем, чтобы при щелчке на нашем ActiveX'е пользователь оказывался на нужном нам сайте в Интернете. Тут нам без API-функции не обойтись. Вставьте в окно кода необходимые объявления:

Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" _
  Alias "ShellExecuteA" _
  (ByVal hwnd As Long, _
  ByVal lpOperation As String, _
  ByVal lpFile As String, _
  ByVal lpParameters As String, _
  ByVal lpDirectory As String, _
  ByVal nShowCmd As Long) As Long
Private Const SW_SHOWNORMAL = 1
Dim m_strAddress As String 'внутренний URL-адрес
 ...

Далее напишите обработчик для события Click для lblAddress:

Private Sub lblAddress_Click()
  Dim lReturn As Long
  'Запускаем браузер по умолчанию
  'с адресом, хранящимся в m_strAddress
  lReturn = ShellExecute(hwnd, _
                       "open", _
                       m_strAddress, _
                       vbNull, vbNull, _
                       SW_SHOWNORMAL)
End Sub

Переходим к испытянию нашего кода. Задайте в тестовом проекте свойства Address и Caption для нашего элемента в http://progs.biz и "Alexeev Igor" соответственно.

Все, теперь можете запускать наш тестовый проект (F5). Если все было сделано правильно и вы подсоединены к Интернету, то при щелчке на надписи "Alexeev Igor" вы должны оказаться на сайте progs.biz.

В последующийх уроках мы рассмотрим разные окончательные штрихи (изменение курсора и т. п.)

Наверх

Label в виде WEB-ссылки (ActiveX на VB). Урок 6. Изменение курсора

Сейчас мы с вами изменим курсор для нашего ActiveX на "перст указующий". Найдите такой курсор на вашем жеством диске и поместите в папку с файлами вашего проекта (этот файл называется h_point.cur).

После этого измените для UserControl свойства MousePointer на 99 (Custom) и для свойства MouseIcon нажмите на многоточие и в появившемся диалоге выберите файл с нашим курсором в виде руки.

Сохраните файлы проекта, и запустите его. Теперь при наведении мышиного курсора на наш ActiveX вы увидите курсор в виде "указующего перста".

Наверх

Copyright Алексеев Игорь, 2002

Copyright cайт progs.biz, 2002

http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу
В избранное