VB archivos - Soulsmakers

El RecordSet ado ese viejo amigo

08/03/2018 por Jonoxet

El RecordSet ado ese viejo amigo

Si el RecordSet, es ese viejo amigo que hoy dia aún seguimos conservando, en aplicaciones como Excel, Access, o si sigues trabajando en Visual Basic 6 todavía utilizaras.

Como Utilizar Linq en vb.net

07/26/2018 por Jonoxet

Como Utilizar Linq en vb.net

Resulta de mucha utilidad poder realizar estas consultas de datos dentro de la propia aplicación a traves de Linq, para no sobrecargarla y que esta , no consuma demasiada ram. Si solo es por curiosidad o tienes intención de utilizarla aquí te dejo el video y el código del video por si quieres probarlo o quieres usarlo como patrón. La verdad, una vez que empiezas a utilizarlo es muy fácil.

CREANDO UNA CLASE PARA FILTRAR

10/28/201710/28/2017 por Jonoxet

CREANDO UNA CLASE PARA FILTRAR VB.NET

hola a todos hoy os traigo una clase con la que generar filtros para nuestras consultas de sql o de nuestros dataviews o donde lo queramos usar.

Suscribir controles a eventos vb.net AddHandler

09/23/2017 por Jonoxet

Suscribir controles a eventos vb.net AddHandler

Hola amigos , aqui os dejo una buena paractica usando addhandler… que es … la suscripcion de eventos de los propios controles a otras funciones.

Obtener Unidades Con vb-File system Drives

09/22/2017 por Jonoxet

Obtener Unidades Con vb-File system Drives

Hola a todos, siempre hemos querido hacer un control personalizado para guardar nuestros datos. Pues aqui te dejo un codigo que seguro que te gustará.

Forzar liberar RAM de nuestra aplicacion vb .net

08/29/2017 por Jonoxet

Forzar liberar RAM de nuestra aplicacion

Rebuscanco codigo que tenia almacena en ficheros de texto encontre este que forzaba la liberacion de la RAM no utilizada por nuestra aplicacion.

No siempre el GC (Garbage Collector) elimina la memoria disponible. asi que aqui os dejo esto que fueza esa liberacion usando el api de Kernell32.dll de windows.

Es 100% efectivo y lo he probado recientemente en windows 10 .

asi que aqui os dejo el codigo . espero que os sirva.

Private Declare Auto Function SetProcessWorkingSetSize Lib "kernel32.dll" (ByVal procHandle As IntPtr, ByVal min As Int32, ByVal max As Int32) As Boolean

    Public Sub LiberarRAM()

     Try

      Dim MiProceso As Process
      MiProceso = Process.GetCurrentProcess()
      SetProcessWorkingSetSize(memoria.Handle, -1, -1)

     Catch ex As Exception

     End Try

    End Sub

Private Declare Auto Function SetProcessWorkingSetSize Lib "kernel32.dll" (ByVal procHandle As IntPtr, ByVal min As Int32, ByVal max As Int32) As Boolean

Public Sub LiberarRAM()

Try

Dim MiProceso As Process

MiProceso = Process.GetCurrentProcess()

SetProcessWorkingSetSize(memoria.Handle, -1, -1)

Catch ex As Exception

End Try

End Sub

llamalo como quieras Limpiar Ram o Liberar. pero la ram es importante en nuestros equipos. y que la aplicacion consuma lo menos posible es una buena practica. eso significa que hacemos buen uso del codigo.

Un Saludo

Leer y escribir en el exif de una imagen

08/23/201708/23/2017 por Jonoxet

Exif : Leer y escribir los metadatos de una imagen

SOLUCION Error al instalar Framework 1.0 en windows 10

07/25/201707/25/2017 por Jonoxet

SOLUCION Error al instalar Framework 1.0 en windows 10

Hola, la única manera que he encontrado hasta ahora es la siguiente.

Guardando el Estado de Los Objectos BinaryFormatter

06/15/2017 por Jonoxet

Guardando el Estado de Los Objectos BinaryFormatter

Si alguna vez pensaste en como guardar el estado de los objetos que tienes en tu programa, no me refiero solo a los datos. si no a a clases completas, con esta clase, valga a redundancia lo podras hacer.

Para que ?, pues como te cuento en el ejemplo del video , para guardar el estado de una aplicacion cuando da error.

Lo que necesitas para este ejemplo es: 1 textbox, y 3 botones.

el codigo lo tienes a continuación del video. Miralo te vendra bien :).

Imports System.Runtime.Serialization.Formatters.Binary
Public Class Form1

    Public Lst As New List(Of DtoCliente)
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub
    <Serializable()>
    Partial Public Class DtoCliente
        Public Property Id As Integer
        Public Property Nombre As String
        Public Sub New()

        End Sub

    End Class
    Public id As Integer = 0
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        id += 1
        Dim dto As New DtoCliente
        dto.Id = id
        dto.Nombre = Me.TextBox1.Text
        Me.TextBox1.Text = ""
        Lst.Add(dto)

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim ms As New IO.FileStream(My.Application.Info.DirectoryPath & "\DtoSave.dto", IO.FileMode.Create)
        Dim bn As New BinaryFormatter()
        bn.Serialize(ms, Lst)
        ms.Close()
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim ms As New IO.FileStream(My.Application.Info.DirectoryPath & "\DtoSave.dto", IO.FileMode.Open)
        Dim bn As New BinaryFormatter()
        Lst = bn.Deserialize(ms)
        ms.Close()

        Dim z = ""
    End Sub
End Class

Imports System.Runtime.Serialization.Formatters.Binary

Public Class Form1

Public Lst As New List(Of DtoCliente)

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

End Sub

<Serializable()>

Partial Public Class DtoCliente

Public Property Id As Integer

Public Property Nombre As String

Public Sub New()

End Sub

End Class

Public id As Integer = 0

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

id += 1

Dim dto As New DtoCliente

dto.Id = id

dto.Nombre = Me.TextBox1.Text

Me.TextBox1.Text = ""

Lst.Add(dto)

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

Dim ms As New IO.FileStream(My.Application.Info.DirectoryPath & "\DtoSave.dto", IO.FileMode.Create)

Dim bn As New BinaryFormatter()

bn.Serialize(ms, Lst)

ms.Close()

End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

Dim ms As New IO.FileStream(My.Application.Info.DirectoryPath & "\DtoSave.dto", IO.FileMode.Open)

Dim bn As New BinaryFormatter()

Lst = bn.Deserialize(ms)

ms.Close()

Dim z = ""

End Sub

End Class

espero que te sirva un Saludo… Jose Ortiz “Souslmakers.com”