Imports System.Threading
 
Private Sub btnEnviar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnviar.Click
        'Instanciar la hebra
        Dim oHebra As Thread
        'crear objeto y asignarlo al sub que queremos ejecutar
        oHebra = New Thread(AddressOf EnviarMail)
        'ponerla en marcha
        oHebra.Start()
 
End Sub

'si está dentro de la red
        If My.Computer.Network.IsAvailable Then
            Try
                'hace ping a google
                If My.Computer.Network.Ping("google.com") Then
                    'y da respuesta
                    MsgBox("Está conectado a Internet")
                End If
            Catch ex As Exception
                'en caso de no obtener respuesta del ping
                'asume que no estamos conectados a internet
                MsgBox("No está conectado a Internet")
            End Try
        Else
            'en caso de no estar dentro de la red
            MsgBox("Esta fuera de una red")
        End If
    End Sub

Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        'si el caracter es Letra
        If Char.IsLetter(e.KeyChar) Then
            'acepta el cracter
            e.Handled = False
            'si es un caracter de control como Enter
        ElseIf Char.IsControl(e.KeyChar) Then
            e.Handled = False
            'si es un espacio en blanco
        ElseIf Char.IsSeparator(e.KeyChar) Then
            e.Handled = False
        Else
            ' de lo contario al poner e.handled en True
            'cancelamos la pulsación.
            e.Handled = True
        End If
    End Sub

 If e.KeyChar = "a" Then
            e.Handled = True
            SendKeys.Send("A")
        End If

 If Char.IsLower(e.KeyChar) Then
            e.Handled = True
            SendKeys.Send(Char.ToUpper(e.KeyChar))
        End If

Imports System.Data
Imports MySql.Data.MySqlClient
Imports System.IO
 
Public Class Form1
    Dim RutaPDF As String
#Region "variables y objetos"
 
    Dim ConStr As String = "server=localhost;uid=miuser;password=mipass;database=mibase"
    Dim Sql As String = "Select pdf from archivo where id='1'"
    Dim Con As New MySqlConnection(ConStr)
    Dim Comando As New MySqlCommand(Sql, Con)
    Dim Dr As MySqlDataReader
 
    'variable de datos
    Dim bDatos() As Byte
    'variable de imagen
    Dim iImagen As File
#End Region
 
#Region "Funciones para tratar archivos PDF"
 
    'convertir PDF a Binario
    Public Function PDF_Bytes(ByVal Path As String) As Byte()
        Dim sPath As String
        sPath = Path
        Dim Ruta As New FileStream(sPath, FileMode.Open, FileAccess.Read)
        Dim Binario(CInt(Ruta.Length)) As Byte
        Ruta.Read(Binario, 0, CInt(Ruta.Length))
        Ruta.Close()
        Return Binario
    End Function
    'convertir binario a PDF
    Private Sub Bytes_PDF(ByVal Bin As Byte())
        Dim oFileStream As FileStream
        Dim pathTemporal As String = Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData) & "\Dato.pdf"
 
        If File.Exists(pathTemporal) Then File.Delete(pathTemporal)
        oFileStream = New FileStream(pathTemporal, FileMode.CreateNew)
        oFileStream.Write(Bin, 0, Bin.Length)
        oFileStream.Close()
        oFileStream = Nothing
        AR1.LoadFile(pathTemporal)
        If File.Exists(pathTemporal) Then File.Delete(pathTemporal)
    End Sub
 
    Public Function UpdateBD(ByVal Sql As String, ByVal Data() As Byte) As String
        Dim Comando As New MySqlCommand(Sql, Con)
        Comando.Parameters.AddWithValue("?archivo", Data)
 
        Try
            If Not Con Is Nothing Then Con.Close()
            Con.Open()
            Dim res As Integer = Comando.ExecuteNonQuery()
            Return res.ToString
 
        Catch ex As Exception
            Return ex.Message
        Finally
            Con.Close()
            Comando = Nothing
        End Try
    End Function
 
#End Region
 
    'Esto ocurre en la carga del formulario
    'y solo se ejecuta cuando ya existe un archivo en la BD
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Si no hay conexión activa se establece conexión con la BD
        'siempre capturando errores con try
        Try
            If Not Con Is Nothing Then Con.Close()
            Con.Open()
 
            'Una vez establecida la conexión ejecutamos la Query
            'asignando el resultado al objeto MysqlDataReader
            Dr = Comando.ExecuteReader
 
            'Mientras este leyendo, cada resultado que por la Query
            ' no es mayor a uno
            While Dr.Read
                'lo guardamos en una variable de tipo array de bytes
                'y convertimos en byte el resultado por si tenemos
                'activado Option Strict en ON
                bDatos = CType(Dr("pdf"), Byte())
 
                'si la consulta no genera datos salimos del Sub
                If bDatos.Length = 0 Then Exit Sub
 
                'SI HAY DATOS
                'al ser datos binarios, los convertimos a PDF
                'con una funcion que hicimos llamada bytes_PDF
                'asignandolo a la variable de datos
                Bytes_PDF(bDatos)
 
            End While
 
            'en caso de error mostramos el mensaje
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'utilizamos el OPenFileDialog para seleccionar PDFs
        'Establecemos titulo a mostrar
        Me.OpenFileDialog1.Title = "Seleccionar Documento"
        'aquí por ser PDF les recomiendo abrir por default la carpeta
        'Mis Documentos y utilizamos una variable de entorno de windows
        'Enviroment.SpecialFolder.MyDocuments apunta a Mis Documentos
        Me.OpenFileDialog1.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
        'filtramos solo Archivos PDF 
        'siempre es recomendable filtrar para evitar errores al seleccionar archivos
        Me.OpenFileDialog1.Filter = "Archivos de imágen(*.pdf)|*.pdf"
        ' abrir el diálogo
        Me.OpenFileDialog1.ShowDialog()
    End Sub
 
    'AQUI UTILIZAMOS EL EVENTO FILE_OK
    'PARA SABER EN QUE MOMENTO YA SE SELECCIONO UNA IMAGEN
    Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
        'Asignar ruta y mostrar Documento
        RutaPDF = OpenFileDialog1.FileName
        AR1.LoadFile(RutaPDF)
    End Sub
 
    'Y EN ESTE EVENTO DEL BOTON GUARDAMOS LA IMAGEN EN LA BD
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try
            'si se seleccionó archivo
            If OpenFileDialog1.FileName <> "" Then
                'variable para datos
                Dim PDF() As Byte
                'convertir PDF a binario
                'y guardar en variable
                PDF = PDF_Bytes(RutaPDF)
 
                'guardar la imagen en BD con parametros utilizando una funcion para guardar
                'llamada UpdateBD
                Dim res As String = UpdateBD("UPDATE archivo SET pdf=?archivo WHERE id='1'", PDF)
 
                'aqui comprobamos si se modifico algun campo
                If res = "1" Then
                    MsgBox("Archivo guardado")
                Else
                    MsgBox("Archivo no se guardó")
                End If
 
            End If
        Catch ex As Exception
        End Try
    End Sub
 
 
 
 
End Class