Picture Box
Publicado por llermo (2 intervenciones) el 27/02/2006 15:34:59
Tengo una aplicación en la que compruebo si existen ciertos archivos de imagen y si no existen se generen.
Para ello tengo este codigo:
with frmSplash
.picFicherosNecesarios.Width = 1
.picFicherosNecesarios.Height = 1
.picFicherosNecesarios.AutoSize = True
.picFicherosNecesarios.Cls
.picFicherosNecesarios.BackColor = lngColorFondo
.picFicherosNecesarios.ForeColor = lngColorContenido
.picFicherosNecesarios.Print strContenido
.picFicherosNecesarios.Refresh
savePictureToFile .picFicherosNecesarios, strRutaNombreFichero
End with
Contenido es una letra o un número.
Con esto confiaba en que al hacer la imagen lo mas pequeña posible, y luego pintar una letra (o número), pues como estaba puesta la propiedad de AutoSize pues se ajustaría el control a lo que acabo de pintar. Pero no es así.
El fin que pretendo es escribir en el control Picture la letra y que la imagen quede centrada. Si se os ocurre cualquier otro método o lo que sea, bienvenido es.
Muchas gracias!
Para ello tengo este codigo:
with frmSplash
.picFicherosNecesarios.Width = 1
.picFicherosNecesarios.Height = 1
.picFicherosNecesarios.AutoSize = True
.picFicherosNecesarios.Cls
.picFicherosNecesarios.BackColor = lngColorFondo
.picFicherosNecesarios.ForeColor = lngColorContenido
.picFicherosNecesarios.Print strContenido
.picFicherosNecesarios.Refresh
savePictureToFile .picFicherosNecesarios, strRutaNombreFichero
End with
Contenido es una letra o un número.
Con esto confiaba en que al hacer la imagen lo mas pequeña posible, y luego pintar una letra (o número), pues como estaba puesta la propiedad de AutoSize pues se ajustaría el control a lo que acabo de pintar. Pero no es así.
El fin que pretendo es escribir en el control Picture la letra y que la imagen quede centrada. Si se os ocurre cualquier otro método o lo que sea, bienvenido es.
Muchas gracias!
Valora esta pregunta


0