Poner imagenes de fondo a varios formularios

[franko1809]

Quiero poner una imagen a todos mis formularios que control es el mas recomendable picturebox o image, ojo que la imagen no tomara todo el form sino parte de el por eso no puedo utilizar la propiedad picture del form.

1.-Como debo colocar las imagenes por ejemplo sin son 20 form's estaia usando 20 imagenes iguales
cargadas en tiempo de diseño, eso aumentaria el peso del programa o debo hacerlo en tiempo de
ejecucion y colocar la imagen en una carpeta?

2.-Como redimenciono la imagen por ejemplo si la imagen es de de 200x200 y algunos form's son de
200x300 ó 150x150 por decir cualquier numero, como hago para que la imagen se adapte al tamaño que se se asigne al control
picture o image

Podria crear un funcion que le coloque una imagen a todos los picture o image de todos los form's o como trabajo con esto

[David]

Recuerdo que en cierta ocasión hice algo parecido colocando la imagen de fondo en una sola ventana y que el resto tomara prestado de esa ventana el fondo (con PaintPicture puedes adaptar el tamaño de la imagen en la misma ventana sin usar ningún control adicional)

También está la opción de usar un archivo de recursos para cargar la imagen (como mencionas en el otro tema)

[seba123neo]

Hola, si queres usar una sola imagen la podes tener en el disco duro y despues la cargas en tiempo de ejecución(asi no se compila con el .exe) y para asignarle a otro formulario la misma imagen de fondo el principal simplemente con:

Código vb:

Private Sub Command1_Click()
    Form2.Picture = Form1.Picture
    Form2.Show
End Sub
 

o directamente cargalo en el Load del formulario 2 es lo mismo...

para que se adapte la imagen al formulario con PaintPicture lo podes hacer...o con api creo que es mejor que el PaintPicture...

saludos.

[franko1809]

Como van lo que se hizo es cargar la imagen en un archivo.res y utilizarla para todos los formularios y con el paintpicture adaptar el tamaño, ademas la propiedad autoredraw debe estar en true para que no se pierda la imagen

Código:

Dim A, B As Integer

Private Sub Command1_Click()
A = Picture1.Width
B = Picture1.Height
Picture1.PaintPicture LoadResPicture(101, vbResBitmap), 0, 0, A, B
End Sub

saludos