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

ВЫПУСК 8

     Всем привет! Прошу прощение, что долго не выходила моя рассылка - были проблемы с провайдерской связью, но, я надеюсь, больше таких проблем не будет.

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

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

• Как узнать пересекаются ли границы двух объектов?

• Как случайно расположить на форме несколько объектов?

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

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

• Снова обновился дизайн сайта.

• На сайте появилось несколько новых статей: Visual Basic: "Как узнать пересекаются ли границы двух объектов?", "Как случайно расположить на форме несколько объектов?", "Как вызвать MsgBox с возможностью обрабатывать события формы, не закрывая его?", "Как вывести строку на экран в определенное место?"; WEB-дизайн: "Как вывести сообщение на экран"

Как узнать пересекаются ли границы двух объектов?

Private Sub Form_Load()
MsgBox F(C1, C2)
End Sub

Function F(A As Object, B As Object) As Boolean
If B.Left < A.Left + A.Width And A.Left _
< B.Left + B.Width And B.Top < A.Top + A.Height And _
A.Top < B.Top + B.Height Then
F = True
Else
F = False
End If
End Function
     В подпрограмме Form_Load, в данном случае, вызывается функция определения положения части объекта. Если границы объектов пересекаются, функция возвращает 1, в противном случае 0. 

Как случайно расположить на форме несколько объектов?

    Для этого используйте следующий код:

On Error Resume Next
For Each obj In Me.Controls
Randomize Timer
RndLeft = Int((Me.Width - obj.Width) * Rnd(1))
RndTop = Int((Me.Height - obj.Height) * Rnd(1))
obj.Left = RndLeft
obj.Top = RndTop
Next

    Пример к данной статье можно скачать по ссылке: http://www.igoryksoft.narod.ru/vb/rndmove.zip

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

    Почта для вопросов по программированию: igoryksoft@yandex.ru 

    На этом все.

Пишите на почту: igoryksoft@yandex.ru. Заходите на сайт: www.igoryksoft.narod.ru

При копировании представленных здесь материалов, обязательно делать ссылку на www.igoryksoft.narod.ru!