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

Новости сайта www.igoryksoft.narod.ru

Подписаться Бесплатная новостная рассылка Подписчиков 59 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://www.igoryksoft.narod.ru
Открыта: 01-01-2002

Автор
Igoryk

Статистика

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

Новости сайта www.igoryksoft.narod.ru Новости сайта www.igoryksoft.narod.ru, примеры кодов на VB


Служба Рассылок Subscribe.Ru
РАССЫЛКА САЙТА WWW

РАССЫЛКА САЙТА WWW.IGORYKSOFT.NAROD.RU

ВЫПУСК ?1

     Поздравляю всех с наступившим новым годом! Желаю всем удач в освоении компьютера и языков программирования!

Сегодня в выпуске:

  • Обновления на сайте;

  • "Как узнать находится ли указатель мыши на объекте?";

  • Вопрос-Ответ.

Обновления на сайте:

     Так как это первый выпуск, то правильней будет назвать этот раздел как "Доступно на сайте.

  • Можно скачать игру Шарики (моего производства) в разделе "Мои программы" (по адресу http://www.igoryksoft.narod .ru/myprog.htm). Написана она на VB 6.0, поэтому требует его библиотек, которые можно скачать здесь же.

  • В раздел "Разработки на VB" (по адресу http://www.igoryksoft.narod.ru/ vb.htm) можно прочитать статью "Создание трехмерных эффектов с помощью объекта Line", и еще статья, которая находится в этой рассылке.

  • Открыт "Карта сайта" по адресу http://www.igoryksoft.narod.ru /map.htm.

  • Открыт "Форум" по адресу http://narod.yande x.ru/userforum/?owner=igoryksoft.

  • Также есть возможность поиска по сайтам: www.igoryksoft.narod.ru (моему), по Яндексу.Ру и Народу.Ру.

 Как узнать находится ли указатель мыши на объекте?

     Иногда нужно узнать находится ли указатель мыши на объекте или нет. Я решил эту задачу следующим образом. 

     Для начала нужно внести в раздел "Generals" формы следующий код:

Const FormTop = 25
Const FormLeft = 4
Private Type POINTAPI
X As Long
Y As Long
End Type
Private Declare Function GetCursorPos Lib "user32.dll" (lpPoint As POINTAPI) As Long
     Где FormTop - константа значение которой, равно количеству пикселей заголовка окна, а FormLeft - константа значение которой, равно количеству пикселей границы окна.

     Далее на форму нужно вставить объекты:

  • Метку (Label) с именем lbl. На ней будет отображаться находится ли курсор на объекте.

  • Таймер (Timer) с именем Timer1 и с Interval=10.

  • Объект (любой) с именем С.

     А теперь нужно вставить следующий код на форму.

 

Private Sub Timer1_Timer()
Dim Pos As POINTAPI
GetCursorPos Pos
'Вычисляем 4 точки расположения объекта:
'Левая:
LeftP = (Me.Left + C.Left) / Screen.TwipsPerPixelX + FormLeft
'Верхняя:
UpP = (Me.Top + C.Top) / Screen.TwipsPerPixelY + FormTop
'Правая:
RightP = (Me.Left + C.Left + C.Width) / Screen.TwipsPerPixelX + FormLeft
'Нижняя:
DownP = (Me.Top + C.Top + C.Height) / Screen.TwipsPerPixelY + FormTop
If Pos.X < LeftP _
Or Pos.Y < UpP _
Or Pos.X > RightP _
Or Pos.Y > DownP Then
lbl.Caption = "Не на объекте"
Else: lbl.Caption = "На объекте"
End If
End Sub

     Вот и все.

Вопрос-Ответ

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

    На этом все.

Пишите на почту: igoryksoft@yandex.ru. Заходите на сайт: www.igoryksoft.narod.ru
http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу
В избранное