РАССЫЛКА САЙТА 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.yandex.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