' Kopie das Vordergrundbild in eine Bitübersicht.
Schwaches phototouse als Schnur
phototouse = „C:\inetpub\wwwroot\watermark.png“
Schwaches picForeground als System.Drawing.Bitmap = neues System.Drawing.Bitmap (phototouse)
Schwaches fg_wid als ganze Zahl = picForeground.Width
Schwaches fg_hgt = picForeground.Height
Schwaches fg_bm als neue Bitübersicht (fg_wid, fg_hgt)
Using GR als Grafiken = Graphics.FromImage (fg_bm)
gr.DrawImage (picForeground, 0, 0, fg_wid, fg_hgt)
Ende Using
'Die roten Pixel transparent bilden.
fg_bm.MakeTransparent (Color.White)
Foto als Schnur = photoname verdunkeln
'Die Resultatsbitübersicht bilden.
picBackground als verdunkeln System.Drawing.Bitmap = neues System.Drawing.Bitmap (localfolder u. Foto)
Bg_wid als ganze Zahl = picBackground.Width verdunkeln
Bg_hgt = picBackground.Height verdunkeln
Bg_bm als neue Bitübersicht (bg_wid, bg_hgt) verdunkeln
Wenn CY = 0 und CX = 0 dann
'Notwendigkeit, Foto im Muster der Linksextremeecke in Position zu bringen b/c nicht gefunden
CX = 0 'stellte auf Null für Firmenzeichen in der Ecke der linken Unterseite, Satz zu bg_wid - 90 für Firmenzeichen in der unteren rechten Ecke
CY = bg_hgt - 20
Sonst
'Muster fand, justiert, um das Muster zu umfassen
CX = CX - 2
CY = CY - 11
Beenden wenn
Using GR als Grafiken = Graphics.FromImage (bg_bm)
gr.DrawImage (picBackground, 0, 0, bg_wid, bg_hgt)
'Das Vordergrundbild auf die Oberseite zeichnen.
gr.DrawImage (fg_bm, CX, CY, fg_wid, fg_hgt)
Using beenden
'Das Resultat anzeigen.
Destfile als Schnur = localfolder u. photonewname verdunkeln
bg_bm. Speichern (destfile)
'Wir benötigen nicht die Vordergrundbitübersicht mehr.
fg_bm. Abschaffen ()
|