Visualizza wikitesto di 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:   <SUP>&#091;[[#Nota|nota 1]]&#093;</sup>
 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
 <FONT Color=gray>' ''Assicura che il "Button" sia posto comunque a destra della "Label":''</font>
    .X = Label1.X + 10
  End With
 
 End
 
 
 Public Sub Button1_Click()
 
 <FONT Color=gray>' ''Calcola e imposta l'equidistanza del lato sinistro del "Button" dalla "Label" e dal lato destro del "Button" dal margine destro del suo Contenitore:''</font>
  <FONT Color=#B22222>Button1.X = <B>((Me.W + Label1.X) / 2) - (Button1.W / 2)</b></font>
 
 End



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