Всем
привет! Прошу прощение, что долго не
выходила моя рассылка - были проблемы с
провайдерской связью, но, я надеюсь,
больше таких проблем не будет.
Сегодня в
выпуске:
Обновления на
сайте;
Как узнать пересекаются ли
границы двух объектов?
Как случайно
расположить на форме несколько
объектов?
Вопрос-Ответ.
Обновления на
сайте:
Снова
обновился дизайн сайта.
На
сайте появилось несколько новых
статей: 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
