1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
|
" codeBody "
" notpretty " ' Exemplaar het voorgrondbeeld in bitmap.
Schemerige phototouse als Koord
phototouse = „C:\inetpub\wwwroot\watermark.png“
Schemerige picForeground als System.Drawing.Bitmap = Nieuwe System.Drawing.Bitmap (phototouse)
Schemerige fg_wid als Geheel = picForeground.Width
Schemerige fg_hgt = picForeground.Height
Schemerige fg_bm als Nieuwe Bitmap (fg_wid, fg_hgt)
Gebruikend gr. als Grafiek = Graphics.FromImage (fg_bm)
gr.DrawImage (picForeground, 0, 0, fg_wid, fg_hgt)
Het Gebruiken van het eind
'Maak de rode pixel transparant.
fg_bm.MakeTransparent (Color.White)
Verduister foto als Koord = photoname
'Maak resultaatbitmap.
Verduister picBackground als System.Drawing.Bitmap = Nieuwe System.Drawing.Bitmap (localfolder & foto)
Verduister bg_wid als Geheel = picBackground.Width
Verduister bg_hgt = picBackground.Height
Verduister bg_bm als Nieuwe Bitmap (bg_wid, bg_hgt)
Als CY = 0 en CX = 0 toen
'Behoefte om foto in uiterst links gevonden niet hoekb/c patroon te plaatsen
CX = plaatsen 0 'aan nul voor embleem in linkerdiebodemhoek, aan bg_wid wordt geplaatst - 90 voor embleem in bodem juiste hoek
CY = bg_hgt - 20
Anders
'gevonden het patroon, past aan om het patroon te behandelen
CX = CX - 2
CY = CY - 11
Eind als
Gebruikend gr. als Grafiek = Graphics.FromImage (bg_bm)
gr.DrawImage (picBackground, 0, 0, bg_wid, bg_hgt)
'Trek het voorgrondbeeld op bovenkant.
gr.DrawImage (fg_bm, CX, CY, fg_wid, fg_hgt)
Beëindig Gebruikend
'Vertoning het resultaat.
Schemerige destfile als Koord = localfolder & photonewname
bg_bm. Sparen (destfile)
'Wij hebben meer niet voorgrondbitmap nodig.
fg_bm. Schik ()
|