Immagine Watermark – Codice VB.NET


Categoria dell'articolo: Codice VB.NET

Listati in codice Visual Basic.NET, elaborati o rielaborati e adattati da IngAC con la versione 2015. Funzioni e subroutine varie utili alla creazione di programmi.





Articolo pubblicato da:

Condividi articolo:

Immagine Watermark: come sovrapporre un’ immagine con colore trasparenza e regolazione dell’intensità della stessa con una funzione in codice VB.NET

Introduzione

Può capitare che in alcune parti del nostro programma occorra per qualche motivo cambiare le dimensioni di una immagine. Ad esempio se stiamo implementando un elaboratore di immagini, sapere come fare a inserire una immagine watermark, ovvero un “timbro” tramite vb.net è uno dei passi fondamentali. La funzione che ho ideato, girando qua e la sul web e rielaborando il tutto, che si occupa appunto del ridimensionare immagini è: IngAC_IMMAGINE_WATERMARK (ByVal Immagine As Bitmap, ByVal Immagine_Watermark As Bitmap, ByVal Pos_X As Integer, ByVal Pos_Y As Integer, Optional ByVal Trasparenza As Byte = 0) As Bitmap.

Public Function IngAC_IMMAGINE_WATERMARK(ByVal Immagine As Bitmap,
                                        ByVal Immagine_Watermark As Bitmap,
                                        ByVal Pos_X As Integer,
                                        ByVal Pos_Y As Integer,
                                        Optional ByVal Trasparenza As Byte = 0) As Bitmap
        ' Parte opzionale rende soffuso il watermark
        Trasparenza = Trasparenza / 2 + 50
        Dim IMG_WMK As Bitmap = IngAC_IMMAGINE_LUMINOSITA(Immagine_Watermark, Trasparenza)
        ' fine parte opzionale
        Try
            ' Setta il colore transparente del watermark.
            IMG_WMK.MakeTransparent(IMG_WMK.GetPixel(0, 0))
            ' Copia sull'immagine di partenza
            Dim bmp As Image = New Bitmap(Immagine)
            Dim g As Graphics = Graphics.FromImage(bmp)
            g.DrawImage(IMG_WMK, Pos_X, Pos_Y)
            Return bmp
        Catch
            MsgBox(Err.Description)
            Return Nothing
        End Try
    End Function

La funzione per inserire un’ immagine watermark con vb.net

La funzione IngAC_IMMAGINE_WATERMARK ha come input:

  • Immagine che è l’immagine orginale che può provenire sia da file che da picturebox o anche da altri oggetti image o bitmap;
  • Immagine_Watermark che è l’immagine “timbro”, un logo, etc… che può provenire sia da file che da picturebox o anche da altri oggetti image o bitmap;
  • Pos_X che rappresenta la posizione orizzontale in pixel del watermark;
  • Pos_Y che rappresenta la posizione verticale in pixel del watermark;
  • Trasparenza (opzionale) che può assumere valori percentuali compresi tra 0 e 100 a seconda che si voglia la completa opacità (0) o la trasparenza completa (100).

Funzionamento di IngAC_IMMAGINE_WATERMARK ()

Il funzionamento è semplicissimo; occorre innanzi tutto includere Imports System.Drawing.Imaging che permette di accedere alle funzionalità grafiche di vb.net e alle varie classi inerenti. Per la trasparenza si è fatto ricorso alla funzione IngAC_IMMAGINE_LUMINOSITA già implementata in altra sede e da inserire insieme  a IngAC_IMMAGINE_WATERMARK. Con IMG_WMK.MakeTransparent si imposta il colore trasparente prendendolo direttamente dal primo pixel (0,0) e infine la funzione g.DrawImage completa il resto.

Link Utili:

Immagine watermark - Codice VB.NET

Immagine watermark – Codice VB.NET



Random Post

PREVISIONE LOTTO n° 81 di 150 per MARTEDÌ 13 GIUGNO 2017

Previsione Lotto 13 Giugno 2017

PREVISIONE LOTTO n° 81 di 150 per MARTEDÌ 13 GIUGNO 2017 Esito della previsione precedente: 2)NAPOLI: Estratto + 1 ambetto + 1euro 10elotto; 3)TORINO: 1euro 10elotto; 4)NAZIONALE: Estratto. Previsio...

Vai al post...

Acqua di Gioia – G.Armani – Musica Spot 2014

Acqua di gioia Giorgio Armani 2014

Acqua di Gioia – Giorgio Armani – Marzo 2014 Acqua di Gioia Eau de toilette 2014, una nuova fragranza che celebra la donna e la natura. Vuoi sapere il titolo della canzone di questo spot...

Vai al post...

PREVISIONE LOTTO n° 27 di 150 per MARTEDI 7 FEBBRAIO 2017

Previsione Lotto 7 Febbraio 2017

PREVISIONE  LOTTO n° 27 di 150 per MARTEDI 7 FEBBRAIO 2017 Esito della previsione precedente: BARI:Niente; PALERMO: Estratto+01-Ambetto; NAPOLI: Niente. In merito alla precedente previsione “b...

Vai al post...

PUBBLICITÀ



Una funzione per generare numeri primi, tutti i numeri primi, entro un dato intervallo tramite
Sostituire o eliminare in una stringa una substring con un'altra (o con una stringa vuota)
Tagliare file: ovvero come fare a gestire lo spostamento di qualsiasi file, con controllo dei byte effettivamente
Disclaimer:


Questo blog NON è un prodotto editoriale ai sensi della legge n° 62 del 7 marzo 2001. Le immagini tratte da internet che possano violare i diritti di autore, previa comunicazione, attraverso la sezione -contatti-, verranno prontamente rimosse o sostituite.

Copyright:


I contenuti presenti su ROMOLETTO BLOG dei quali è autore il proprietario del blog non possono essere copiati, riprodotti, redistribuiti perché appartenenti all autore stesso. Si vieta la copia e la riproduzione dei contenuti in qualsiasi modo o forma. Si vieta altresì la pubblicazione e la redistribuzione dei contenuti non autorizzata espressamente dell autore.


Copyright © 2011 / 2017 - ROMOLETTO BLOG - All Right Reserved

IngAC

Informazioni su Romoletto

Ingegnere Civile, Blogger, Programmatore VB.NET, Lezioni private per scuole medie inferiori e superiori. Per contattarmi scorri la home fino in fondo e vai al form -Contatti-

Navigazione per Articoli della stessa Categoria