Visual Basic Foro
Programación => Visual Basic 6 => Mensaje iniciado por: pepino en Julio 31, 2014, 12:22:13 am
-
Estoy creando controles en tiempo de ejecución tengo el siguiente código:
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
(https://imagizer.imageshack.us/v2/694x390q90/673/d3ZSFB.png)
no me gusta el espacio que esta dejando, alguien sabe como puedo reducir eso?
-
Prueba esto (nota: puede contener "herrores" de tipografia... lo escribi al vuelo)
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
-
Prueba esto (nota: puede contener "herrores" de tipografia... lo escribi al vuelo)
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!