- Codice:
' Gets the bottom position of the Vw view.
Sub ViewGetBottom(Vw As View) As Int
Return Vw.Top + Vw.Height - 1
End Sub
' Gets the Right position of the Vw view.
Sub ViewGetRight(Vw As View) As Int
Return Vw.Left + Vw.Width - 1
End Sub
' Sets the bottom position of ViewToMove related to RelativeView top position.
Sub ViewSetRelBottom(ViewToMove As View, RelativeView As View, VertDistance As Int)
ViewToMove.Top = RelativeView.Top - ViewToMove.Height - VertDistance
End Sub
' Sets the right position of ViewToMove related to RelativeView left position.
Sub ViewSetRelRight(ViewToMove As View, RelativeView As View, HorDistance As Int)
ViewToMove.Left = RelativeView.Left - ViewToMove.Width - HorDistance
End Sub
Sviluppatori B4X e altri linguaggi minori ....
