Crear Archivos de Log en VB.NET

1 noviembre, 2016 | NochesDeCode | Deja un comentario

Para crear archivos de Logs primero vamos a utilizar las siguientes librerias:

Imports System
Imports System.IO

1 2	Imports System Imports System.IO

Ahora utilizaremos la siguiente funcion:

    Public LogFile As String = "\" + DateTime.Now.ToString("dd-MM-yyyy") + "-" + DateTime.Now.ToString("hhmmss") + ".log"
    Private Function SysLog(TextLogP As String)
        Using outputFile As New StreamWriter(Application.StartupPath & Convert.ToString(LogFile), True)
            outputFile.WriteLine(DateTime.Now.ToString("dd/MM/yyyy") + " " + DateTime.Now.ToString("hh:mm:ss") + " - " + TextLogP)
        End Using
        Return False
    End Function

Public LogFile As String = "\" + DateTime.Now.ToString("dd-MM-yyyy") + "-" + DateTime.Now.ToString("hhmmss") + ".log"

Private Function SysLog(TextLogP As String)

Using outputFile As New StreamWriter(Application.StartupPath & Convert.ToString(LogFile), True)

outputFile.WriteLine(DateTime.Now.ToString("dd/MM/yyyy") + " " + DateTime.Now.ToString("hh:mm:ss") + " - " + TextLogP)

End Using

Return False

End Function

La misma lo que hace es crear un archivo nuevo con el nombre prediceñado en LogFile y escribirlo con los detalles del mensaje, se utiliza de la siguiente manera:

SysLog("Info: Inicio del Programa.")

1	SysLog("Info: Inicio del Programa.")

Ejemplo al iniciar el programa:

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        SysLog("Inicio del programa.")
        SysLog("Archivo de Log Creado.")
End Sub

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

SysLog("Inicio del programa.")

SysLog("Archivo de Log Creado.")

End Sub

Multi Lenguaje en Visual Basic .NET

25 octubre, 2016 | NochesDeCode | Deja un comentario

1.- Setear en las Propiedades del Formulario "Design":

Language = "Seleccionar.." (Idioma a Traducir)
Localizable = True

1 2	Language = "Seleccionar.." (Idioma a Traducir) Localizable = True

2.- Traducir el Formulario y guardarlo. 3.- En este Ejemplo utilizaremos Español (ES) y Ingles (EN), para intercambiar entre estos dos lenguajes utilizaremos, dos botones, uno correspondiente para cada lenguaje:

Imports System.Globalization
Imports System.ComponentModel
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        '' CAMBIO A ESPAÑOL '
        Dim l As New CultureInfo("es", True)
        Dim resources As ComponentResourceManager = New ComponentResourceManager(Me.GetType)
        For Each c As Control In Me.Controls
            resources.ApplyResources(c, c.Name, l)
        Next c
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        '' CAMBIO A INGLES '
        Dim l As New CultureInfo("en", True)
        Dim resources As ComponentResourceManager = New ComponentResourceManager(Me.GetType)
        For Each c As Control In Me.Controls
            resources.ApplyResources(c, c.Name, l)
        Next c
    End Sub
End Class

Imports System.Globalization

Imports System.ComponentModel

Public Class Form1

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

'' CAMBIO A ESPAÑOL '

Dim l As New CultureInfo("es", True)

Dim resources As ComponentResourceManager = New ComponentResourceManager(Me.GetType)

For Each c As Control In Me.Controls

resources.ApplyResources(c, c.Name, l)

Next c

End Sub

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

'' CAMBIO A INGLES '

Dim l As New CultureInfo("en", True)

Dim resources As ComponentResourceManager = New ComponentResourceManager(Me.GetType)

For Each c As Control In Me.Controls

resources.ApplyResources(c, c.Name, l)

Next c

End Sub

End Class

Con esto lograremos agregar cuantos lenguajes queramos y que nuestros usuarios puedan setear entre uno… Read More

.VB.NET

Crear Archivos de Log en VB.NET

Multi Lenguaje en Visual Basic .NET

Redes Sociales

Online!

Posts Recientes

Comentarios Recientes

Archivos del Sitio

Categorias

Suscríbete por correo electrónico