Biblioteca de código de Visual Basic .NET

[Mace Windu]

Biblioteca de código de Visual Basic .NET

Creo este tema para ir publicando nuestros códigos. Iré actualizando el Índice para mejorar la organización del tema.
Se podría seguir el siguiente modelo:

Descripción: lo que hace el código.
Controles: ControlTipo1 (Cantidad), ControlTipo2 (Cantidad), etc.

Código:

Código entre las etiquetas code.

Salu2

[Mace Windu]

Índice

1. Trabajo con archivos

• Averiguar tamaño en bytes de un archivo.
• Averiguar la fecha de creación de un archivo.
• Averigua la versión y la descripción de un archivo.
• Crear un directorio.
• Eliminar un directorio.
• Copiar un archivo.
• Eliminar un archivo.
• Mover un archivo.
• Leer el contenido de un archivo.
• Guardar texto en el archivo especificado.

2. Bases de numeración

• Convertir número binario a decimal.

3. Trabajo con cadenas

• Eliminar espacios duplicados.
• Convertir a mayúsculas una cadena.
• Convertir a minúsculas una cadena.
• Invertir una cadena.

4. Cálculo

• Generar número aleatorio.

5. Network

• Averiguar la dirección IP de tu ordenador.
• Saber si hay conexión a Internet.

6. Otros

• Ejecutar un programa utilizando variables de entorno.
• Registrar teclas para un HotKey.
• Ejecutar cualquier archivo.
• Conocer el tiempo que lleva en ejecución el sistema.
• Suspender la actividad de la aplicación durante x segundos.

Salu2

[Mace Windu]

Descripción: Averigua el tamaño en bytes que tiene un archivo.
Controles: TextBox (1), Button(1).

Código:

Imports System
Imports System.IO

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Averiguar tamaño"
        Button1.Text = "&Averiguar"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Archivo As New FileInfo(TextBox1.Text)
        MessageBox.Show("El archivo ocupa " & Archivo.Length.ToString + " bytes.")
    End Sub
End Class

Salu2

[Mace Windu]

Descripción: Crea el directorio especificado.
Controles: TextBox (1), Button(1).

Código:

Imports System
Imports System.IO

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Button1.Text = "&Crear"
        Me.Text = "Crear directorio"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Directory.CreateDirectory(TextBox1.Text)
    End Sub
End Class

Salu2

[Mace Windu]

Descripción: Elimina el directorio especificado.
Controles: TextBox (1), Button(1).

Código:

Imports System
Imports System.IO

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Button1.Text = "&Eliminar"
        Me.Text = "Eliminar directorio"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Directory.Delete(TextBox1.Text)
    End Sub
End Class

Salu2

[Mace Windu]

Descripción: Copia el archivo especificado (TextBox1) en el lugar indicado(TextBox2).
Controles: TextBox (2), Button(1).

Código:

Imports System
Imports System.IO

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Button1.Text = "&Copiar"
        Me.Text = "Copiar archivo"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        File.Copy(TextBox1.Text, TextBox2.Text)
    End Sub
End Class

Salu2

[Mace Windu]

Descripción: Elimina el archivo especificado.
Controles: TextBox (1), Button(1).

Código:

Imports System
Imports System.IO

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Button1.Text = "&Eliminar"
        Me.Text = "Eliminar archivo"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        File.Delete(TextBox1.Text)
    End Sub
End Class

Salu2

[Mace Windu]

Descripción: Mueve el archivo especificado (TextBox1) en el lugar indicado (TextBox2).
Controles: TextBox (2), Button(1).

Código:

Imports System
Imports System.IO

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Button1.Text = "&Mover"
        Me.Text = "Mover archivo"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        File.Move(TextBox1.Text, TextBox2.Text)
    End Sub
End Class

Salu2

[Mace Windu]

Descripción: Leer el contenido de un archivo (TextBox1) y lo muestra en el TextBox2.
Controles: TextBox (2), Button(1).

Código:

Imports System
Imports System.IO

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Button1.Text = "&Abrir"
        Me.Text = "Abrir archivo"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Archivo As StreamReader = File.OpenText(TextBox1.Text)
        TextBox2.SelectedText = Archivo.ReadToEnd()
        Archivo.Close()
    End Sub
End Class

Salu2

[Mace Windu]

Descripción: Averigua la fecha de creación de un archivo.
Controles: TextBox (1), Button(1).

Código:

Imports System
Imports System.IO

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Button1.Text = "&Averiguar"
        Me.Text = "Averiguar fecha creación archivo"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MessageBox.Show("El archivo fue creado el " & File.GetCreationTime(TextBox1.Text).ToString, "Al habla Mace Windu", MessageBoxButtons.OK)
    End Sub
End Class

Salu2

[Mace Windu]

Descripción: Averigua la versión y la descripción de un archivo.
Controles: TextBox (1), Button(1).

Código:

Imports System
Imports System.Diagnostics

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Button1.Text = "&Averiguar"
        Me.Text = "Averiguar versión y descripción archivo"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Informacion As FileVersionInfo = FileVersionInfo.GetVersionInfo(TextBox1.Text)
        MessageBox.Show("Versión del archivo: " & Informacion.FileVersion & vbCrLf _
                        & "Descripción: " & Informacion.FileDescription, "Al habla Mace Windu", MessageBoxButtons.OK)
    End Sub
End Class

Salu2

[Mace Windu]

Descripción: Guarda el contenido del TextBox2 en el archivo especificado (TextBox1).
Controles: TextBox (2), Button(1).

Código:

Imports System
Imports System.IO

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Button1.Text = "&Guardar"
        Me.Text = "Guardar archivo"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Archivo As StreamWriter = File.CreateText(TextBox1.Text)
        Archivo.WriteLine(TextBox2.Text)
        Archivo.Flush()
        Archivo.Close()
    End Sub
End Class

Salu2

[Mace Windu]

Descripción: Muestra un número binario en decimal.
Controles: TextBox (1), Button(1).

Código:

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Cambiar de binario a decimal"
        Button1.Text = "&Cambiar"
    End Sub

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        MessageBox.Show("Número decimal: " & CStr(BinarioDecimal(TextBox1.Text)), "Al habla Mace Windu", MessageBoxButtons.OK)
    End Sub

    Private Function BinarioDecimal(ByVal Binario As String) As Long
        Dim N As Integer = 1, LongitudInicial As Integer = 0, Longitud As Integer = 0

        BinarioDecimal = 0
        Longitud = Len(Binario)
        LongitudInicial = Longitud

        While N <= LongitudInicial
            If Strings.Left(Binario, 1) = "1" Then
                BinarioDecimal = BinarioDecimal + (2 ^ (LongitudInicial - N))
            End If
            N = N + 1
            Binario = Strings.Right(Binario, Longitud - 1)
            Longitud = Longitud - 1
        End While
    End Function
End Class

Salu2

[Mace Windu]

Descripción: Elimina espacios duplicados en un texto.
Controles: TextBox (1), Button(1).

Código:

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Eliminar espacios duplicados"
        Button1.Text = "&Eliminar"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Const EspacioDuplicado As String = "  "
        Dim PosicionInicial As Integer, CadenaAuxiliar As String
        Dim Texto As String = Strings.Trim(TextBox1.Text)

        PosicionInicial = InStr(1, Texto, EspacioDuplicado, vbBinaryCompare)

        Do While PosicionInicial > 0
            CadenaAuxiliar = Mid(Texto, PosicionInicial + 1).TrimStart
            Texto = Strings.Left(Texto, PosicionInicial) & CadenaAuxiliar
            PosicionInicial = InStr(1, Texto, EspacioDuplicado, vbBinaryCompare)
        Loop

        TextBox1.Text = Texto
    End Sub
End Class

Salu2

[Mace Windu]

Descripción: Convierte a mayúsculas una cadena.
Controles: TextBox (1), Button(1).

Código:

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Convertir a mayúsculas"
        Button1.Text = "&Convertir"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = Strings.UCase(TextBox1.Text)
    End Sub
End Class

Salu2

[Mace Windu]

Descripción: Convierte a minúsculas una cadena.
Controles: TextBox (1), Button(1).

Código:

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Convertir a minúsculas"
        Button1.Text = "&Convertir"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Cadena As String = TextBox1.Text
        TextBox1.Text = Cadena.ToLower
    End Sub
End Class

Salu2

[Mace Windu]

Descripción: Invierte una cadena.
Controles: TextBox (1), Button(1).

Código:

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Invertir una cadena"
        Button1.Text = "&Invertir"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = StrReverse(TextBox1.Text)
    End Sub
End Class

Salu2

[Mace Windu]

Descripción: Muestra un número aleatorio entre 0 y el número escrito en TextBox1.
Controles: TextBox (1), Button(1).

Código:

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Generar un número aleatorio"
        Button1.Text = "&Generar"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Aleatorio As Integer
        Randomize()
        Aleatorio = Rnd() * CInt(TextBox1.Text)
        MessageBox.Show("El número aleatorio es " & CStr(Aleatorio) & ".", "Al habla Mace Windu", MessageBoxButtons.OK)
    End Sub
End Class

Salu2

[Mace Windu]

Descripción: Averigua la dirección IP de tu ordenador.
Controles: TextBox (1), Button(1).

Código:

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Averiguar IP"
        Button1.Text = "&Averiguar"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Ip As Net.Dns
        Dim NombreHost As String = Ip.GetHostName
        Dim ActualHost As Net.IPHostEntry = Ip.GetHostByName(NombreHost)
        Dim DireccionIp As String = ActualHost.AddressList(0).ToString

        TextBox1.Text = "Tu dirección IP es " & DireccionIp
    End Sub
End Class

Salu2

[Mace Windu]

Descripción: Muestra si hay conexión a Internet.
Controles: TextBox (1), Button(1).

Código:

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If My.Computer.Network.IsAvailable = True Then
            TextBox1.Text = "La conexión a Internet está disponible."
        Else
            TextBox1.Text = "La conexión a Internet no está disponible."
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Me.Text = "Saber si hay conexión a Internet"
        Button1.Text = "Conexión"
    End Sub
End Class

Salu2

[Halo-Fimbres]

Descripcion: Ejecutar un programa usando las variables de entorno (Modificar donde dice explorer.exe)
Controles: 1 Button

Código:

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim winDir As String = System.IO.Path.GetDirectoryName _
            (Environment.SystemDirectory)
        Shell(winDir & "\explorer.exe")
    End Sub
End Class

[Halo-Fimbres]

Descripcion: Registrar teclas para un HotKey
Controles: 1 Boton

En un modulo:

Código:

    Public Enum ModConst
        MOD_ALT = &H1
        MOD_CONTROL = &H2
        MOD_SHIFT = &H4
        MOD_WINKEY = &H8
    End Enum

    Public Class cHotKey

        Public hID As Integer
        Public hModifier As ModConst
        Public hKeyCode As Integer
        Public hAction As Integer
        Public hDescription As String

        'Constructores
        Sub New()
        End Sub
        Sub New(ByVal ID As Integer, ByVal Modifier As ModConst, ByVal KeyCode As Integer, Optional ByVal Action As Integer = 0, Optional ByVal Description As String = "")
            hID = ID
            hModifier = Modifier
            hKeyCode = KeyCode
            hAction = Action
            hDescription = Description
        End Sub

        Friend Function SetValues(ByVal ID As Integer, ByVal Modifier As ModConst, ByVal KeyCode As Integer, Optional ByVal Action As Integer = 0, Optional ByVal Description As String = "") As Boolean
            hID = ID
            hModifier = Modifier
            hKeyCode = KeyCode
            hAction = Action
            hDescription = Description
        End Function

        Public Overrides Function ToString() As String
            Return hID & "," & hModifier & "," & hKeyCode & "," & hAction & "," & hDescription
        End Function

    End Class

    Public Class HotKeysManager
        'Heredo de Form para tener el sub wndProc
        Inherits System.Windows.Forms.Form

        Private g_hWnd As Integer

        'Colección de cHotKeys donde se guardarán los datos de las hotkeys registradas
        Private g_HotKeys As New Collection

        'Hotkey Message. used in WndProc method
        Public Const WM_HOTKEY = &H312

        Public Event HotKeyPressed(ByVal oHotKey As cHotKey)

        'Constructores
        Sub New()
            g_hWnd = Me.Handle.ToInt32
        End Sub

        Private Declare Function RegisterHotKey Lib "user32" (ByVal hWnd As Integer, ByVal id As Integer, ByVal fsModifiers As ModConst, ByVal vk As Integer) As Boolean
        Private Declare Function UnregisterHotKey Lib "user32" (ByVal hWnd As Integer, ByVal id As Integer) As Boolean

        'Elimina de la colección todas las hotkeys y las desregistra
        Public Function Clear()
            Dim tmp As cHotKey
            For Each tmp In g_HotKeys
                DelHotKey(tmp.hID)
            Next
        End Function

        'Agrega una hotkey a la colección y la registra
        Public Function AddHotKey(ByVal HotKeyID As Integer, ByVal Modifer As ModConst, ByVal KeyCode As Integer, Optional ByVal Action As Integer = 0, Optional ByVal Description As String = "") As Boolean
            Dim bRet As Boolean

            'borro el elemento y lo desregistro (si existía)
            Dim tmp As cHotKey
            For Each tmp In g_HotKeys
                If tmp.hID = HotKeyID Then
                    DelHotKey(HotKeyID)
                End If
            Next

            'Registro la HotKey en el SO
            bRet = RegisterHotKey(g_hWnd, HotKeyID, Modifer, KeyCode)

            If bRet Then
                'Creo un nuevo objeto de la clase cHotKey y lo inserto a la colección
                Dim newHotKey As New cHotKey(HotKeyID, Modifer, KeyCode, Action, Description)
                g_HotKeys.Add(newHotKey, HotKeyID.ToString)
            End If
            Return bRet
        End Function

        'Eliminar una hotkey de la colección y la desregistra
        Public Function DelHotKey(ByVal HotKeyID As Integer) As Boolean
            Dim bRet As Boolean = False
            If g_HotKeys.Count > 0 Then
                bRet = UnregisterHotKey(g_hWnd, HotKeyID)
                If bRet Then
                    g_HotKeys.Remove(HotKeyID.ToString)
                End If
            End If
            Return bRet
        End Function

        'Devuelve el ítem de la colección a partir de su índice
        Public Function Item(ByVal index As Integer) As cHotKey
            Return g_HotKeys.Item(index)
        End Function
        'Devuelve el ítem de la colección a partir key
        Public Function Item(ByVal key As String) As cHotKey
            Return g_HotKeys.Item(key)
        End Function

        'Devuelve la cantidad de hotkeys en la colección
        Public Function Count() As Integer
            Return g_HotKeys.Count
        End Function

        'Aquí se reciben los mensajes (al presionar las hotkeys)
        Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
            If m.Msg = WM_HOTKEY And g_HotKeys.Count > 0 Then
                RaiseEvent HotKeyPressed(g_HotKeys(m.WParam.ToString))
            End If
            MyBase.WndProc(m)
        End Sub
    End Class

    Friend Structure POINTAPI
        Dim x As Integer
        Dim y As Integer
    End Structure

    Friend Structure Msg
        Dim hWnd As Integer
        Dim Message As Integer
        Dim wParam As Integer
        Dim lParam As Integer
        Dim time As Integer
        Dim pt As POINTAPI
    End Structure

En el form:

Código:

Public Class Form1

    Public WithEvents hk As New HotKeysManager

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        hk.AddHotKey(1, ModConst.MOD_CONTROL, Asc("Q"), 1, "Esta es la hot-key 1 (CTRL-Q)")
        hk.AddHotKey(2, ModConst.MOD_CONTROL, Asc("W"), 1, "Esta es la hot-key 2 (CTRL-W)")
    End Sub

    Private Sub hk_HotKeyPressed(ByVal oHotKey As cHotKey) Handles hk.HotKeyPressed
        MsgBox(oHotKey.hDescription)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Button1.Text = "Registrar HotKeys (CTRL-Q y CTRL-W)"
    End Sub

End Class

Presiona Ctrl + Q / Ctrl + W
PD: Este code no recuerdo de donde lo saque, asi que no es mio.. andaba por las cochumbres de mi PC 
Salu2

[Mace Windu]

Descripción: Ejecuta cualquier archivo.
Controles: TextBox (1), Button(1).

Código:

Imports System.Diagnostics

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Proceso As Process = New Process
        Proceso.Start(TextBox1.Text)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Ejecutar archivo"
        Button1.Text = "&Ejecutar"
    End Sub
End Class

Salu2

[Mace Windu]

Descripción: Muestra en minutos el tiempo que lleva encendido el ordenador.
Controles: TextBox (1), Button(1).

Código:

Imports System
Imports System.Environment

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = "Iniciaste el ordenador hace " & (TickCount / 1000 / 60).ToString & " minutos."
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Tiempo en ejecución del sistema"
        Button1.Text = "&Averiguar"
    End Sub
End Class

Salu2