Posizione equidistante di un Oggetto rispetto al margine destro del suo Contenitore e ad un punto alla sua sinistra

Per posizionare un Oggetto grafico all'interno del suo Contenitore, in modo tale che la distanza del suo lato sinistro rispetto a un punto posto alla sua sinistra sia uguale alla distanza del suo lato destro dal margine destro del suo Contenitore, si può adottare la seguente formula: ^{[nota 1]}

Oggetto.X = (((Margine_destro - Punto) / 2) + Punto) - (Oggetto.W / 2)

che può essere così ridotta:

Oggetto.X = ((Margine_destro + Punto) / 2) - (Oggetto.W / 2)

laddove:

• Oggetto è l'Oggetto grafico (Controllo) da posizionare;
• Margine_destro è il valore della larghezza orizzontale del Contenitore (Contenitore.Width);
• Punto è il valore della coordinata x del punto posto anch'esso all'interno del Contenitore e comunque alla sinistra dell'Oggetto grafico.

Mostriamo di seguito un esempio pratico, nel quale si ha un Button da posizionare in modo equidistante fra il margine destro del Form e una sottile Label:

Public Sub Form_Open()

 Me.W = 400

 With Label1
   .X = 41
   .W = 1
   .H = 40
   .Background = Color.Red
 End With

 With Button1
   .W = 37
' Assicura che il "Button" sia posto comunque a destra della "Label":
   .X = Label1.X + 10
 End With

End


Public Sub Button1_Click()

 Button1.X = ((Me.W + Label1.X) / 2) - (Button1.W / 2)

End

Note

[1] In via generale questa formula è utile per definire l'equidistanza - orizzontale in questo caso - di un punto rispetto ad altri due.