Estimados lectores, ha sido una experiencia agradable el
hacer este blog y tener algunos lectores que comparten el gusto por la
programación; actualmente estoy empezando otro proyecto, muy personal, con tecnología web que espero compartir con toda la comunidad de
programadores y necesito recursos porque es algo muy personal y mi situación
financiera no es muy buena.
Si alguien desearía
apoyarme tengo una tarjeta Oxxo Saldazo
con el número: 4766-8408-7508-1593,
cualquier apoyo lo pueden hacer en cualquier tienda Oxxo o en Banamex, les
agradezco y que sus proyectos lleguen a buen fin.
'Como hacer transparente el color de fondo una imagen, por ejemplo una firma o una marca de agua de 'cancelado etc. en un reporte
Dim rutafirma As String 'va a ocupar una ruta donde esta mi imagen en este caso una firma
rutafirma = cldatosorig.Traerutafirma 'podemos hacer una rutina para traer nuestra ruta de tal
' manera que sea dinamica y la podamos cambiar en cualquier momento
' o si no simplemente le damos una ruta fija
'rutafirma="c:\midirectorio\imagenfirma.gif o con extension bmp etcetera
'rutina para hacer transparent la imagen
Dim img As New Bitmap(rutafirma)
'trae el color de un pixel que generalmente es el fondo
Dim backColor As Color = img.GetPixel(1, 1)
' hace transpoarente el color de fondo .
img.MakeTransparent(backColor)
' dibuja la imagen con el fondo transparente
e.Graphics.DrawImage(img, 3.5, 9, 1.71, 1)
'nota los parametors son: la imagen, el margen izquierdo, el margen superior, ancho y altura
'yo estoy usando como medida las pulgadas, si usan otras medidas, como pixeles, ajustarlas
y eso seria todo
