Visual Basic - Picture Box

Life is soft - evento anual de software empresarial
 
Vista:

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!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Picture Box

Publicado por llermo (2 intervenciones) el 27/02/2006 16:29:28
Vale ya sé como se hace :D

with frmSplash
.picFicherosNecesarios.Cls
.picFicherosNecesarios.CurrentX = (.picFicherosNecesarios.ScaleWidth - .picFicherosNecesarios.TextWidth(strContenido)) \ 2
.picFicherosNecesarios.Font.Size = 8
.picFicherosNecesarios.Font.Name = "MS Sans Serif"
.picFicherosNecesarios.BackColor = lngColorFondo
.picFicherosNecesarios.ForeColor = lngColorContenido
.picFicherosNecesarios.Print strContenido
.picFicherosNecesarios.Refresh

salvaPictureToFile .picFicherosNecesarios, strRutaNombreFichero
End With
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar