Protected Overridable Sub qrCodeImage_Changed(ByVal sender As System.Object) Handles Me.OnQRCodeImageChanged 'Dim strImageOriginal As String = strGuid.ToString() + strImageSize Dim id As String = Guid.NewGuid.ToString Dim strImageOriginal As String Select Case Request.Cookies("Tab_Name").Value.ToString Case "vcard" strImageOriginal = "Vcard_" & txt_firstname.Text & "_" & txt_lastname.Text Case "event" strImageOriginal = "EVent_" & Regex.Replace(txtEvent.Text, "[\[\]\\\^\$\.\|\?\*\+\(\)\{\}%,;><!@#&\-\+\/\:]", "").Replace("http", "").Replace("www", "").Split(" ")(0) Case "qrFlikr" strImageOriginal = Directory.GetFiles(Server.MapPath("QRflikr"), "*.*").Length.ToString & "_" & Guid.NewGuid.ToString Case Else strImageOriginal = Regex.Replace(s, "[\[\]\\\^\$\.\|\?\*\+\(\)\{\}%,;><!@#&\-\+\/\:]", "").Replace("http", "").Replace("www", "").Split(" ")(0) End Select ImageQrCode.Save(Server.MapPath("QRImages/" + strImageOriginal + id + ".png"), System.Drawing.Imaging.ImageFormat.Png) ImageQrCode.Dispose() If Not Request.Cookies("overlay").Value = "" And Not Request.Cookies("overlay").Value = "''" Then ImageButton1.ImageUrl = "" Dim picBackground As Image = Image.FromFile(Server.MapPath(Request.Cookies("overlay").Value)) Dim picForeground As Image = Image.FromFile(Server.MapPath("QRImages/" + strImageOriginal + id + ".png")) Dim finalimage As Image = OverlayImages(picForeground, picBackground) picBackground.Dispose() picForeground.Dispose() finalimage.Save(Server.MapPath("QRImages/" + strImageOriginal + id + ".png")) ImageButton1.ImageUrl = "QRImages/" + strImageOriginal + id + ".png" Else ImageButton1.ImageUrl = "QRImages/" + strImageOriginal + id + ".png" End If End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)