Controles en tiempo de ejecucion

[pepino]

Estoy creando controles en tiempo de ejecución tengo el siguiente código:

Código: (VB) [Seleccionar]

Public Sub NUMPUESTOS() ':CREAR PUESTOS:
    ncabs = Frm_Cabinas.Cabina.Count - 1 'Cantidad de cabinas (no cuenta el 0)
    ncabs = ncabs + 1 'Aumenta
    Load Frm_Cabinas.Cabina(ncabs) 'Crea la cabina
    Frm_Cabinas.Cabina(ncabs).Visible = True
   
        'Posiciona por defecto
        posx = 0 + ((ncabs - 1) Mod 5) * 3260
        posy = ((ncabs - 1) \ 5) * 2900 + 1290
         Frm_Cabinas.Cabina(ncabs).Left = posx
         Frm_Cabinas.Cabina(ncabs).Top = posy
    'Actualiza también coordenadas para que el control sepa en donde esta
      Frm_Cabinas.Cabina(ncabs).x = posx
      Frm_Cabinas.Cabina(ncabs).y = posy
End Sub



no me gusta el espacio que esta dejando, alguien sabe como puedo reducir eso?

[raul338]

Prueba esto (nota: puede contener "herrores" de tipografia... lo escribi al vuelo)

Código: (vb) [Seleccionar]

posx =  ((ncabs - 1) Mod 5) * Frm_Cabinas.Cabina(0).Width + ScaleX(10, vbPixels, Me.ScaleMode) ' 10 es el espacio en pixeles de espacio horizontal
posy = ((ncabs - 1) \ 5) * Frm_Cabinas.Cabina(0).Height + ScaleY(10, vbPixels, Me.ScaleMode)  ' 10 es el espacio en pixeles de espacio verticual

[pepino]

Prueba esto (nota: puede contener "herrores" de tipografia... lo escribi al vuelo)

Código: (vb) [Seleccionar]

posx =  ((ncabs - 1) Mod 5) * Frm_Cabinas.Cabina(0).Width + ScaleX(10, vbPixels, Me.ScaleMode) ' 10 es el espacio en pixeles de espacio horizontal
posy = ((ncabs - 1) \ 5) * Frm_Cabinas.Cabina(0).Height + ScaleY(10, vbPixels, Me.ScaleMode)  ' 10 es el espacio en pixeles de espacio verticual

me anda genial Gracias!