Visual Basic archivos - El Rincón de Cesar

Marca de Agua en Imagen

14 de enero de 202314 de enero de 2023 Cesar Perez

¡Hola a todos!

Hoy quiero compartir con vosotros cómo utilizar Visual Basic .NET para modificar imágenes y agregar una marca de agua. La marca de agua es una técnica común utilizada para proteger la propiedad intelectual de una imagen al agregar un logotipo o texto sobre la misma.

Para comenzar, necesitaremos una imagen y una imagen de la marca de agua que deseamos agregar. En este ejemplo, utilizaremos la clase Image de System.Drawing para cargar ambas imágenes.

Una vez que hayamos cargado las imágenes, utilizaremos la clase Graphics para dibujar la imagen de la marca de agua sobre la imagen original. Podemos especificar la posición de la marca de agua utilizando los métodos DrawImage y DrawString.

Por último, guardaremos la imagen modificada utilizando el método Save. A continuación, se presenta un ejemplo de código que muestra cómo agregar una marca de agua en la esquina inferior derecha de una imagen:

'Cargar la imagen original
Dim original As Image = Image.FromFile("original.jpg")

'Cargar la marca de agua
Dim watermark As Image = Image.FromFile("watermark.png")

'Crear un objeto Graphics a partir de la imagen original
Dim g As Graphics = Graphics.FromImage(original)

'Dibujar la marca de agua en la esquina inferior derecha
g.DrawImage(watermark, original.Width - watermark.Width, original.Height - watermark.Height)

'Guardar la imagen con la marca de agua
original.Save("modified.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)

'Cargar la imagen original

Dim original As Image = Image.FromFile("original.jpg")

'Cargar la marca de agua

Dim watermark As Image = Image.FromFile("watermark.png")

'Crear un objeto Graphics a partir de la imagen original

Dim g As Graphics = Graphics.FromImage(original)

'Dibujar la marca de agua en la esquina inferior derecha

g.DrawImage(watermark, original.Width - watermark.Width, original.Height - watermark.Height)

'Guardar la imagen con la marca de agua

original.Save("modified.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)

Espero que este ejemplo les ayude a entender cómo utilizar Visual Basic .NET para agregar una marca de agua a una imagen. Recuerda jugar con el código y experimentar con diferentes posiciones y tamaños de marca de agua.

Comprimir y Descomprimir Ficheros Zip

6 de mayo de 20226 de mayo de 2022 Cesar Perez

Hola compañeros!!, Hace mucho tiempo que no escribia nada, pero no he tenido mucho tiempo, voy a intentar darle un empujon y escribir algunas entradas que os puedan ayudar.

Hoy vamos a explicar como podemos comprimir y descomprimir ficheros zip desde .NET

Para ello, vamos a necesitar un Nuget llamado Ionic.Zip, si quieres ver como se instalan los Nuget en.NET puedes verlo en esta entrada.

Empezamos explicando como Comprimir ficheros en un Zip.

Con este ejemplo que os pongo a continuación lo que hace es recorrerse todos los ficheros que hay en la ruta C:\Comprimir y generar un fichero zip en la carpeta C:\Destino

Dim zip As New ZipFile()

Dim directorySelected As New DirectoryInfo("C:\Comprimir")
For Each fileToCompress As FileInfo In directorySelected.GetFiles()
zip.AddFile(fileToCompress.FullName, "")
Next

zip.Save(" C:\Desrino\Fichero.zip")

Dim zip As New ZipFile()

Dim directorySelected As New DirectoryInfo("C:\Comprimir")

For Each fileToCompress As FileInfo In directorySelected.GetFiles()

zip.AddFile(fileToCompress.FullName, "")

zip.Save(" C:\Desrino\Fichero.zip")

El siguiente ejemplo tambien muy facil lo que hace es lo contrario descomprimir el contenido de un fichero .zip en una carpeta.

Dim FicheroComprimido As ZipFile = ZipFile.Read("C:\Fichero.zip")
FicheroComprimido.ExtractAll("C:\Destino")

1 2	Dim FicheroComprimido As ZipFile = ZipFile.Read("C:\Fichero.zip") FicheroComprimido.ExtractAll("C:\Destino")

Si quereis profundizar mas y ver las opciones que podemos establecer, por ejemplo poner contraseña os animo que veais la documentación oficial en el siguiente enlace.

Muchas gracias y hasta la siguiente entrada 😉

Control Repeater en ASP.NET

23 de abril de 20211 de noviembre de 2021 Cesar Perez

Hola a tod@s,

Hoy os traigo un fragmente de codigo para que empeceis a trastear con el control Repeater, un control que esta disponible en ASP, lo que hace este control es repetir el contenido que tiene dentro de la etiqueta “ItemTemplate” , en funcion de los datos que tenga en su origen de datos. En este ejemplo, pintaremos varios controles en su interior, y os mostrare de una forma sencilla, los pasos que hay que realizar para poder usarlo.

Lo primero de todo, hay que añadir en nuestra pagina .aspx el control, para ello hay que escribir la siguiente linea donde queramos que se muestre:

<asp:Repeater ID="RepeaterAreas" runat="server"></asp:Repeater>

1	<asp:Repeater ID="RepeaterAreas" runat="server"></asp:Repeater>

El siguiente paso, seria incluir el contenido que queremos que se repita por cada item que va a contener el origen de datos, para ello, tendremos que meterlo dentro de la etiqueta “<ItemTemplate>”, en este caso, vamos a crear dentro una etiqueta label y un desplegable:

<asp:Repeater ID="RepeaterAreas" runat="server">
  <ItemTemplate>
    <asp:Label ID="lblAreaCargoId" runat="server" Text='<%# DataBinder.Eval(Container.DataItem, "idareacargo") %>'></asp:Label>                            
    <asp:ComboBox ID="cmbAreaCargo" runat="server" AutoPostBack="true" OnSelectedIndexChanged="cmbAreaCargo_SelectedIndexChanged"></asp:ComboBox>                            
  </ItemTemplate>
</asp:Repeater>

<asp:Repeater ID="RepeaterAreas" runat="server">

<asp:Label ID="lblAreaCargoId" runat="server" Text='<%# DataBinder.Eval(Container.DataItem, "idareacargo") %>'></asp:Label>

<asp:ComboBox ID="cmbAreaCargo" runat="server" AutoPostBack="true" OnSelectedIndexChanged="cmbAreaCargo_SelectedIndexChanged"></asp:ComboBox>

</ItemTemplate>

</asp:Repeater>

Para informar al control repeater del origen de dato, tenemos que alimentar su propiedad DataSource, para ello en el Load o en el evento que necesitamos, cargaramos en un datatable por ejemplo, los datos y se lo asignamos de esta forma:

Dim dt As Datatable = ORIGEN
RepeaterAreas.DataSource = dt

1 2	Dim dt As Datatable = ORIGEN RepeaterAreas.DataSource = dt

Si necesitaramos rellenar el desplegable de alguna forma dinamica, podriamos utilizar el siguiente evento para rellenar los valores que correspondan en cada elemento. En este evento se puede manejar el item en cuestion, esto es un ejemplo, pero os invito a trastear con ello.

Private Sub RepeaterAreas_ItemDataBound(sender As Object, e As RepeaterItemEventArgs) Handles RepeaterAreas.ItemDataBound
  If e.Item.ItemType = ListItemType.Item OrElse e.Item.ItemType = ListItemType.AlternatingItem Then
    Dim lblArea As Label = TryCast(e.Item.FindControl("lblAreaCargoId"), Label)
    If Not lblArea Is Nothing Then
      'Sacamos el id que tenga por si hiciese falta
      Dim Id As Integer = Integer.Parse(TryCast(e.Item.FindControl("lblAreaCargoId"), Label).Text)
      'Buscamos el control 
      Dim ctrlCombo As ComboBox = TryCast(e.Item.FindControl("cmbAreaCargo"),ComboBox)
      If Not ctrlCombo Is Nothing Then
        'Podemos cargar el origen de datos
        ctrlCombo.DataSource = dtOrigenDatos
        ctrlCombo.DataBind()
        'Podemos marcarlo por defecto en funcion de un campo del origen de datos del repeater
        ctrlCombo.Value = e.Item.DataItem("idarea_gobierno").ToString
      End If
    End If
  End If        
End Sub

Private Sub RepeaterAreas_ItemDataBound(sender As Object, e As RepeaterItemEventArgs) Handles RepeaterAreas.ItemDataBound

If e.Item.ItemType = ListItemType.Item OrElse e.Item.ItemType = ListItemType.AlternatingItem Then

Dim lblArea As Label = TryCast(e.Item.FindControl("lblAreaCargoId"), Label)

If Not lblArea Is Nothing Then

'Sacamos el id que tenga por si hiciese falta

Dim Id As Integer = Integer.Parse(TryCast(e.Item.FindControl("lblAreaCargoId"), Label).Text)

'Buscamos el control

Dim ctrlCombo As ComboBox = TryCast(e.Item.FindControl("cmbAreaCargo"),ComboBox)

If Not ctrlCombo Is Nothing Then

'Podemos cargar el origen de datos

ctrlCombo.DataSource = dtOrigenDatos

ctrlCombo.DataBind()

'Podemos marcarlo por defecto en funcion de un campo del origen de datos del repeater

ctrlCombo.Value = e.Item.DataItem("idarea_gobierno").ToString

End If

End Sub

Para recorrernos el control, por ejemplo para guardar, o sacar la informacion que haya introducido el usuario, usariamos el siguiente fragmento de codigo:

For Each item As RepeaterItem In RepeaterAreas.Items
   item.FindControl("lblAreaCargoId")
Next

For Each item As RepeaterItem In RepeaterAreas.Items

item.FindControl("lblAreaCargoId")

Bueno espero que te haya servido para tener una idea de lo que permite el control y te ayude en el inicio, intentare realizar algun ejemplo mas proximamente.

Saludos

Exportar datos de un GridView a Excel

19 de abril de 20211 de noviembre de 2021 Cesar Perez

Hola a tod@s,

Aqui os traigo otro post muy cortito el cual nos muestra como podemos exportar los datos de un GridView de ASP.NET a Excel. Para hacerlo, basta con colocar un GridView vacio en el codigo de nuestra pagina de la siguiente forma:

<asp:GridView ID="GridViewExcel" runat="server"></asp:GridView>

1	<asp:GridView ID="GridViewExcel" runat="server"></asp:GridView>

Necesitaremos tambien un boton para indicar que queremos exportar la informacion, lo incluiremos de la misma forma.

<asp:LinkButton ID="lnkExportarAExcel" runat="server">Exportar a Excel</asp:LinkButton>

1	<asp:LinkButton ID="lnkExportarAExcel" runat="server">Exportar a Excel</asp:LinkButton>

Y por ultimo, incluiremos el siguiente codigo, previamente, para este ejemplo he cargado un datatable muy sencillo en el Load de la pagina.

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    'Creamos un origen de datos, aqui iria tu carga de informacion
    Dim dtDatos As New DataTable("Ejemplo")
    dtDatos.Columns.Add("Nombre", GetType(String))
    dtDatos.Columns.Add("Apellidos", GetType(String))

    Dim drFila As DataRow = dtDatos.NewRow
    drFila("Nombre") = "Cesar"
    drFila("Apellidos") = "Perez"
    dtDatos.Rows.Add(drFila)

    GridViewExcel.DataSource = dtDatos
    GridViewExcel.DataBind()
End Sub

Protected Sub lnkExportarAExcel_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lnkExportarAExcel.Click
    'Exportar a Excel
    Response.Clear()
    Response.Buffer = True
    Response.ContentType = "application/ms-excel"
    Response.AddHeader("content-disposition", "attachment;filename=Grid1Excel.xls")
    Response.ContentEncoding = System.Text.Encoding.UTF8
    Response.Charset = ""
    Me.EnableViewState = False
    Dim oStringWriter As System.IO.StringWriter = New System.IO.StringWriter
    Dim oHtmlTextWriter As System.Web.UI.HtmlTextWriter = New System.Web.UI.HtmlTextWriter(oStringWriter)

    GridViewExcel.RenderControl(oHtmlTextWriter)
    Response.Write(oStringWriter.ToString())
    Response.End()
End Sub

Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
    'Este override debe estar aqui ya que si no aparecera un error
    'indicando que el Gridview debe estar dentro de un form runat=server
End Sub

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

'Creamos un origen de datos, aqui iria tu carga de informacion

Dim dtDatos As New DataTable("Ejemplo")

dtDatos.Columns.Add("Nombre", GetType(String))

dtDatos.Columns.Add("Apellidos", GetType(String))

Dim drFila As DataRow = dtDatos.NewRow

drFila("Nombre") = "Cesar"

drFila("Apellidos") = "Perez"

dtDatos.Rows.Add(drFila)

GridViewExcel.DataSource = dtDatos

GridViewExcel.DataBind()

End Sub

Protected Sub lnkExportarAExcel_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lnkExportarAExcel.Click

'Exportar a Excel

Response.Clear()

Response.Buffer = True

Response.ContentType = "application/ms-excel"

Response.AddHeader("content-disposition", "attachment;filename=Grid1Excel.xls")

Response.ContentEncoding = System.Text.Encoding.UTF8

Response.Charset = ""

Me.EnableViewState = False

Dim oStringWriter As System.IO.StringWriter = New System.IO.StringWriter

Dim oHtmlTextWriter As System.Web.UI.HtmlTextWriter = New System.Web.UI.HtmlTextWriter(oStringWriter)

GridViewExcel.RenderControl(oHtmlTextWriter)

Response.Write(oStringWriter.ToString())

Response.End()

End Sub

Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)

'Este override debe estar aqui ya que si no aparecera un error

'indicando que el Gridview debe estar dentro de un form runat=server

End Sub

NOTA: si por alguna razon, os saltase el error “RegisterForEventValidation can only be called during Render“, se puede solucionar colocando la siguiente directiva EnableEventValidation en la pagina:

<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="WebForm1.aspx.vb" 
   Inherits="WebApplication1.WebForm1" EnableEventValidation="false" %>

1 2	<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="WebForm1.aspx.vb" Inherits="WebApplication1.WebForm1" EnableEventValidation="false" %>

Espero que te valga para algo este fragmento de codigo muy sencillo.

Saludos

Deserializar una cadena JSON en una clase

19 de abril de 20211 de noviembre de 2021 Cesar Perez

Hola a tod@s,

En el dia de hoy, hoy voy a traer un pequeño codigo para deserializar una cadena con formato JSON en una clase, como vereis es muy sencillo.

Lo primero de todo, tenemos instalar un paquete llamado Newtonsoft, sino sabes como hacerlo puedes verlo aqui, tras instalar el paquete NuGet hay que importar los espacios de nombre:

Imports Newtonsoft.Json

1	Imports Newtonsoft.Json

Necesitaremos disponer de una clase con la estructura correcta, hay que tener en cuenta que los nombres de las variables deben de coincidir con las de la cadena JSON, ya que sino no hara nada.

Public Class Persona
  Public Nombre As String
  Public Apellidos As String
End Class

Public Class Persona

Public Nombre As String

Public Apellidos As String

End Class

Por otro lado, generamos una clase en la que pondremos el nombre que esta dentro del JSON, que nos indica que es un conjunto de Personas, lo mismo que antes debe de tener el nombre exacto para que parchee las propiedades.

Public Class Respuesta
        Public Personas() As Persona
    End Class

Public Class Respuesta

Public Personas() As Persona

End Class

La cadena de JSON que nos llega es la siguiente, estaria almacenada en una variable llamada por ejemplo jsonRetorno.

{
  "Personas": [{
	"Nombre": "Cesar",
	"Apellidos": "Perez"
   },
   {
	"Nombre": "Manolo",
	"Apellidos": "Garcia"
   }
  ]
}

{

"Personas": [{

"Nombre": "Cesar",

"Apellidos": "Perez"

{

"Nombre": "Manolo",

"Apellidos": "Garcia"

}

]

}

Como veis, la estructura es la misma que la clase, pero podria tener algun campo que en la clase no este, y lo que hara es omitirlo. La linea de codigo necesaria para poder deserializar es la siguiente:

Dim oPersona As New Persona
oPersona = JsonConvert.DeserializeObject(Of Persona)(jsonRetorno)

1 2	Dim oPersona As New Persona oPersona = JsonConvert.DeserializeObject(Of Persona)(jsonRetorno)

Dentro del objeto oPersona, tendremos dos clases que coinciden con las del JSON.

Espero que os valga, tambien podeis ver como serializar una clase en una cadena Json, en este post.

Saludos,

Serializar una clase en una cadena JSON

14 de abril de 20211 de noviembre de 2021 Cesar Perez

Hola a tod@s,

En el dia de hoy, hoy voy a traer un pequeño codigo para serializar una clase en una cadena con formato JSON, para poder usarla en servicios web o donde lo necesitemos, como vereis es muy sencillo.

Lo primero de todo, tenemos instalar un paquete llamado Newtonsoft, sino sabes como hacerlo puedes verlo aqui, tras instalar el paquete NuGet hay que importar los espacios de nombre:

Imports Newtonsoft.Json
Imports Newtonsoft.Json.Converters

1 2	Imports Newtonsoft.Json Imports Newtonsoft.Json.Converters

Despues necesitamos tener los valores en una clase, para poder serializarla:

Public Class Persona
  Public Nombre As String
  Public Apellidos As String
End Class

Public Class Persona

Public Nombre As String

Public Apellidos As String

End Class

Vamos a rellenar un array con nuestra clase de Personas, en este caso vamos a crear 2 elementos:

Dim arrayPersonas(1) As Persona

arrayPersonas(0) = New Persona
arrayPersonas(0).Nombre = "Cesar"
arrayPersonas(0).Apellidos = "Perez"

arrayPersonas(1) = New Persona
arrayPersonas(1).Nombre = "Manolo"
arrayPersonas(1).Apellidos = "Garcia"

Dim arrayPersonas(1) As Persona

arrayPersonas(0) = New Persona

arrayPersonas(0).Nombre = "Cesar"

arrayPersonas(0).Apellidos = "Perez"

arrayPersonas(1) = New Persona

arrayPersonas(1).Nombre = "Manolo"

arrayPersonas(1).Apellidos = "Garcia"

Por ultimo vamos a llamar al siguiente metodo para que nos serialize:

Dim json As String = JsonConvert.SerializeObject(arrayPersonas, New Newtonsoft.Json.Converters.IsoDateTimeConverter())

1	Dim json As String = JsonConvert.SerializeObject(arrayPersonas, New Newtonsoft.Json.Converters.IsoDateTimeConverter())

El resultado de la variable json seria el siguiente:

[
  {
    "Nombre": "Cesar",
    "Apellidos": "Perez"
  },
  {
    "Nombre": "Manolo",
    "Apellidos": "Garcia"
  }
]

[

{

"Nombre": "Cesar",

"Apellidos": "Perez"

{

"Nombre": "Manolo",

"Apellidos": "Garcia"

}

]

Si quieres mas informacion acerca de Newtonsoft, visita este enlace.

Saludos

Generar cadena con encriptación SHA1

7 de abril de 20211 de noviembre de 2021 Cesar Perez

Hola buenas tardes a tod@s,

En esta entrada os traemos un codigo muy sencillo para poder generar una cadena en formato encriptacion SHA1, con esto podemos generar algun hash para controlar alguna contraseña.

La funcion seria la siguiente:

Imports System.Text
Imports System.Security.Cryptography
 
Function generarSHA1(ByVal sCadena As String) As String  
  Dim ueCodigo As New UnicodeEncoding() 
  Dim Sha1 As New SHA1CryptoServiceProvider() 
  Dim bHash() As Byte = Sha1.ComputeHash(ueCodigo.GetBytes(sCadena))
 
  Return Convert.ToBase64String(bHash)
End Function

Imports System.Text

Imports System.Security.Cryptography

Function generarSHA1(ByVal sCadena As String) As String

Dim ueCodigo As New UnicodeEncoding()

Dim Sha1 As New SHA1CryptoServiceProvider()

Dim bHash() As Byte = Sha1.ComputeHash(ueCodigo.GetBytes(sCadena))

Return Convert.ToBase64String(bHash)

End Function

Para llamarla simplemente tendriamos que realizar la llamada a dicha funcion y tendriamos el resultado:

Dim sCadena As String = "elrincondecesar.com"
Dim sSha1Generado As String = generarSHA1(sCadena)

'Cadena obtenida: 6Z0ylT5mNNLtSZvBaWJ14Zqb1Og=

Dim sCadena As String = "elrincondecesar.com"

Dim sSha1Generado As String = generarSHA1(sCadena)

'Cadena obtenida: 6Z0ylT5mNNLtSZvBaWJ14Zqb1Og=

Como veis es muy sencillo, espero que os valga para algo 😉

Si necesitais hacer algo en MD5, podeis consultarlo aqui.

Generar cadena en MD5

1 de abril de 20211 de noviembre de 2021 Cesar Perez 2 comentarios

Hola buenas tardes a tod@s,

En esta entrada os traemos un codigo muy sencillo para poder generar una cadena en formato MD5, con esto podemos generar algun hash para controlar alguna contraseña o simplemente para poder realizar algun control de versiones.

La funcion seria la siguiente:

Imports System.Text
Imports System.Security.Cryptography
 
Function generarMD5(ByVal sCadena As String) As String  
  Dim ueCodigo As New UnicodeEncoding() 
  Dim Md5 As New MD5CryptoServiceProvider() 
  Dim bHash() As Byte = Md5.ComputeHash(ueCodigo.GetBytes(sCadena))
 
  Return Convert.ToBase64String(bHash)
End Function

Imports System.Text

Imports System.Security.Cryptography

Function generarMD5(ByVal sCadena As String) As String

Dim ueCodigo As New UnicodeEncoding()

Dim Md5 As New MD5CryptoServiceProvider()

Dim bHash() As Byte = Md5.ComputeHash(ueCodigo.GetBytes(sCadena))

Return Convert.ToBase64String(bHash)

End Function

Para llamarla simplemente tendriamos que realizar la llamada a dicha funcion y tendriamos el resultado:

Dim sCadena As String = "elrincondecesar.com"
Dim sMd5Generado As String = generarMD5(sCadena)

'Cadena obtenida: 694a6f3e6ec1e316422b496f995a10dc

Dim sCadena As String = "elrincondecesar.com"

Dim sMd5Generado As String = generarMD5(sCadena)

'Cadena obtenida: 694a6f3e6ec1e316422b496f995a10dc

Como veis es muy sencillo, espero que os valga para algo 😉