Red de conocimiento informático - Problemas con los teléfonos móviles - Código VB para ajustar automáticamente la posición del control, explique en detalle. _Resize() no funciona, es mejor proporcionar el código completo y dejarme estudiarlo.

Código VB para ajustar automáticamente la posición del control, explique en detalle. _Resize() no funciona, es mejor proporcionar el código completo y dejarme estudiarlo.

El tamaño automático no es un problema si sabe lo siguiente:

I. La posición del control se especifica en la esquina superior izquierda del control (es decir, las propiedades Izquierda y Superior). Ajustar la posición es tan sencillo como modificar estas dos propiedades. Por supuesto, puedes usar el método Mover para hacerlo todo en un solo paso, cambiando el tamaño mientras te mueves.

2. Para calcular la posición del tamaño del contenedor generalmente se utiliza la altura y el ancho iniciales de Escala, porque estas propiedades se refieren al espacio real disponible del contenedor (excluyendo el grosor del borde y la barra de título). , etc.). Por ejemplo, si desea que una imagen (pic1 en el cuadro de imagen) siempre se muestre en el medio del formulario, puede escribir:

pic1.Left = (Me.ScaleWidth - pic1.Width) / 2

p>

pic1.Top = (Me.ScaleHeight - pic1.Height) / 2

3. Por ejemplo, establecer el tamaño de un control cuando está minimizado puede ser un error porque el número calculado es negativo. Puede agregar un límite de tamaño mínimo al frente:

if Me.ScaleWidth > 300 Then Text1.Width = (Me.ScaleWidth - pic1.Width) / 3

Es decir, cuando Cuando el tamaño del formulario es inferior a 300 (el ancho del cuadro de texto ajustado es 100), no se ajustará.

El evento de cambio de tamaño se activará después de cambiar el tamaño, por lo que el tamaño en el evento es el tamaño modificado. Para una forma minimizada, su ancho y alto son ambos 0.