Rellenar el fondo de los forms
Colaboraci�n de:
J.A.C.I. [email protected]
Lo hizo de forma
"indirecta" pero al fin y al cabo por deseo expreso,
para que todos nos beneficiemos.
El mensaje enviado/recibido:
Aqui dejo la forma que utilizo
para realizar esta tarea.
Guiller si lo quieres colocar en tu p�gina... (eres libre de
hacerlo ;-) )
--------------------------------------------------------------------------
COLOCAR UN TAPIZ DE FONDO EN UN FORM
Por ejemplo si tenemos una aplicaci�n con multitud de forms que
queremos ponerle un fondo BMP, haremos lo siguiente, colocamos en
el formulario principal, ya sea MDIForm o normal, un ImageList
con los diferentes Bitmaps que vamos a usar en nuestra
aplicaci�n.
(Al ImageList le he llamado Fondos, al formulario principal le he
llamado ppal)
En cada formulario que ira relleno ponemos...
Const num_fondo=2 ' Numero correspondiente a la imagen del ImageList. Private Sub Form_Load() PonFondo Me, num_fondo End sub Private Sub Form_Paint() PonFondo Me, num_fondo End Sub Private Sub Form_Resize() PonFondo Me, num_fondo End Sub Y en un modulo general escribimos el procedimiento.... Sub PonFondo(vForm As Object, vfondo As Integer) Dim wide%, high%, Y&, X& ' Paso los pixeles a twips wide% = ppal.Fondos.ImageWidth * 15 high% = ppal.Fondos.ImageHeight * 15 'Almaceno la imagen en el form If vForm.Picture = 0 Then Set vForm.Picture = ppal.Fondos.ListImages(vfondo).Picture End If For Y = 0 To vForm.ScaleHeight Step high% For X = 0 To vForm.ScaleWidth Step wide% vForm.PaintPicture vForm.Picture, X, Y, wide%, high%, , , , ,&HCC0020 Next X Next Y End Sub
Un saludo a todos.
-------
"Lo mas incomprensible del mundo es que el mundo sea
comprensible." (Albert Einstein)
E-mail: mailto:[email protected]
Cordoba-Andalucia-Spain
Pulsa aqu� para bajar los listados de prueba de este c�digo, el de Harvey y el de asaca (fondos.zip 5.65 KB)