SendKeys command in a TextBox?

[Jose_VB]

I'm trying to read a textfile line by line, because each line is a data for mi program (integer numbers).
After reading each number, I want to add the number to a textbox and then send the "Enter" key to that textbox. Read the next number and send the enter key...

I'm trying to do this but it seems there is some kind of error:

Dim Nombre_Archivo As String = OpenFileDialog1.FileName
Dim TextLine As String

If System.IO.File.Exists(Nombre_Archivo) = True Then
Dim ObjReader As New System.IO.StreamReader(Nombre_Archivo)

Do While ObjReader.Peek() <> -1
'TextLine = TextLine & ObjReader.ReadLine() & vbNewLine
TEXTBOX_NumeroSalido.Focus()
TextLine = ObjReader.ReadLine() & vbNewLine
LISTBOX_Consejo.Items.Add(TextLine)
TEXTBOX_NumeroSalido.Text = TextLine
SendKeys.Send("{ENTER}")
Loop

'TextLine = ObjReader.ReadLine()
'TextBox1.Text = TextLine


End If

[.paul.]

why send the Enter key?

[Jose_VB]

I'll explain the concept more in detail.
In the program I introduce integer numbers in a textbox and the program performs some calculations after pressing the enter key in the textbox.
Well, sometimes I want to save the list of numbers I introduced and for that task I save the number list in a text *.txt file.
The text file contains integer numbers, one number in each line.

Example of the data in the text file:
1
45
3
43
etc...

At the moment, the thing I want to do is to load a text file containing those integer numbers.
The first task to do is to read the text file line by line to get each time 1 integer number.
Once the program has the number, the program "writes" in a TextBox the number and press the enter key (ascii chr 13) and looks for the next number in the text file until the end of that file.

At the moment I use the code shown above:

Dim NameOfTheFile As String = OpenFileDialog1.FileName
Dim TextLine As String

If System.IO.File.Exists(NameOfTheFile) = True Then
Dim ObjReader As New System.IO.StreamReader(NameOfTheFile)

Do While ObjReader.Peek() <> -1
TEXTBOX_NumeroSalido.Focus()
TextLine = ObjReader.ReadLine() & vbNewLine
LISTBOX_Consejo.Items.Add(TextLine)
TEXTBOX_NumeroSalido.Text = TextLine
SendKeys.Send("{ENTER}")
Loop

The problem is that the program only shows the last number in the text file into the DataGridView control, instead of showing all the values that the textfile contains.
In the ListBox all values are shown, but not in the DataGridView control.
I think something with the command "Send Keys" is the problem. But I don't know.

[4x2y]

The problem is that the program only shows the last number in the text file into the DataGridView control,

I think this is because you are not add the lines to each other in the text box, try this

        Dim NameOfTheFile As String = OpenFileDialog1.FileName
        Dim TextLine As String

        If System.IO.File.Exists(NameOfTheFile) = True Then
            Dim ObjReader As New System.IO.StreamReader(NameOfTheFile)
            Do While ObjReader.Peek() <> -1
                TEXTBOX_NumeroSalido.Focus()
                TextLine = ObjReader.ReadLine()
                LISTBOX_Consejo.Items.Add(TextLine)
                TEXTBOX_NumeroSalido.Text &= TextLine ' & vbNewLine ' maybe vbNewLine isn't required as SendKeys.Send("{ENTER}") will insert it.
                SendKeys.Send("{ENTER}")
            Loop
        End If

It is better to create a sub with calculations you want to perform and call it after reading each line instead of sending {Enter}

[dunfiddlin]

the DataGridView control

What DGV? There's no mention of a DGV in your code! If there exists a routine that places values in the DGV and that is failing would it not make sense to show us that code rather than the bit that is working (placing items in the Listbox)?

[Jose_VB]

I think this is because you are not add the lines to each other in the text box, try this

        Dim NameOfTheFile As String = OpenFileDialog1.FileName
        Dim TextLine As String

        If System.IO.File.Exists(NameOfTheFile) = True Then
            Dim ObjReader As New System.IO.StreamReader(NameOfTheFile)
            Do While ObjReader.Peek() <> -1
                TEXTBOX_NumeroSalido.Focus()
                TextLine = ObjReader.ReadLine()
                LISTBOX_Consejo.Items.Add(TextLine)
                TEXTBOX_NumeroSalido.Text &= TextLine ' & vbNewLine ' maybe vbNewLine isn't required as SendKeys.Send("{ENTER}") will insert it.
                SendKeys.Send("{ENTER}")
            Loop
        End If

It is better to create a sub with calculations you want to perform and call it after reading each line instead of sending {Enter}

It doesn't works. When I use

 &= Textline

I've in the textbox a lot of numbers like 1231231412352.... and when I change and I use

 = Textline

it works as it worked in the beginning.

What DGV? There's no mention of a DGV in your code! If there exists a routine that places values in the DGV and that is failing would it not make sense to show us that code rather than the bit that is working (placing items in the Listbox)?

The DGV is used in other part in the code. When I introduce the same values by hand it works, even in the DGV. I introduce for example.... 31 and after... enter key. The problem is when I try to make it automatic. It works only for the last value in the text file. The rest of the values are not processed for some reason. The last value is shown in the DGV, but from the first to the one before the last one it doesn't works.

[dunfiddlin]

The rest of the values are not processed for some reason. The last value is shown in the DGV, but from the first to the one before the last one it doesn't works.

And the most likely reason for that is that you are entering each value into the same cell and overwriting the one prior to it. But we'll never know will we as the code is apparently not relevant.

[Jose_VB]

And the most likely reason for that is that you are entering each value into the same cell and overwriting the one prior to it. But we'll never know will we as the code is apparently not relevant.

Ok, here you've more than 200 lines of code...

Imports Setting.IniFile

Public Class Form1

    Private Sub CargarListaNumerosMasSalidos()

        With MatrizNumeros
            .Add(NumeroSalido)
        End With

        Dim Group_Count = From Lst In MatrizNumeros Group Lst By Lst Into Count() Select ax = Lst, GroupCount = Count Order By GroupCount Descending

        LABEL_NumerosMasRepetidos.Text = ""

        For Each Counts In Group_Count.ToList
            Me.LABEL_NumerosMasRepetidos.Text += String.Concat(Counts.ax, " (", ContadorNumeros(Counts.ax), ")    ")
        Next

    End Sub

    Private Sub TEXTBOX_NumeroSalido_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TEXTBOX_NumeroSalido.KeyPress

        If (e.KeyChar = Microsoft.VisualBasic.Chr(13)) Then
            If Len(TEXTBOX_NumeroSalido.Text) <> 0 And IsNumeric(TEXTBOX_NumeroSalido.Text) And Val(TEXTBOX_NumeroSalido.Text) <= 36 And Val(TEXTBOX_NumeroSalido.Text) >= 0 Then
                CantidadJugadas = CantidadJugadas + 1
                NumeroSalido = (Val(TEXTBOX_NumeroSalido.Text))
                LABEL_CantidadJugadas.Text = CantidadJugadas
                ContadorNumeros(Val(TEXTBOX_NumeroSalido.Text)) = ContadorNumeros(Val(TEXTBOX_NumeroSalido.Text)) + 1
                'Cuadricula.Rows.Add(NumeroSalido)
                TEXTBOX_NumeroSalido.Text = ""
                CargarListaNumerosMasSalidos()


                'Añade el numero que se acaba de introducir
                Cuadricula.Rows.Add(NumeroSalido)
                MatrizNumerosSalidos(CantidadJugadas) = NumeroSalido

                'Añade la paridad de ese numero
                Form3.COMBO_Paridad.SelectedIndex = ini.ReadValue("COMBO_Paridad", NumeroSalido)
                Cuadricula.Rows(CantidadJugadas - 1).Cells(1).Value = Form3.COMBO_Paridad.SelectedItem
                'Colorea el fondo y el fondo en caso - PAR
                If Form3.COMBO_Paridad.SelectedIndex = 0 Then
                    Dim ColorFondoPar As String = ini.ReadValue("Paridad_Par_Fondo", 0)
                    Cuadricula.Item(1, CantidadJugadas - 1).Style.BackColor = Color.FromArgb(Integer.Parse(ColorFondoPar))
                    Dim ColorTextoPar As String = ini.ReadValue("Paridad_Par_Texto", 0)
                    Cuadricula.Item(1, CantidadJugadas - 1).Style.ForeColor = Color.FromArgb(Integer.Parse(ColorTextoPar))
                End If
                'Colorea el texto y el fondo en caso - IMPAR
                If Form3.COMBO_Paridad.SelectedIndex = 1 Then
                    Dim ColorFondoImpar As String = ini.ReadValue("Paridad_Impar_Fondo", 0)
                    Cuadricula.Item(1, CantidadJugadas - 1).Style.BackColor = Color.FromArgb(Integer.Parse(ColorFondoImpar))
                    Dim ColorTextoImpar As String = ini.ReadValue("Paridad_Impar_Texto", 0)
                    Cuadricula.Item(1, CantidadJugadas - 1).Style.ForeColor = Color.FromArgb(Integer.Parse(ColorTextoImpar))
                End If
                ' Caso 3 - NULO
                If Form3.COMBO_Paridad.SelectedIndex = 2 Then
                    Dim ColorFondoNulo As String = ini.ReadValue("Paridad_Nulo_Fondo", 0)
                    Cuadricula.Item(1, CantidadJugadas - 1).Style.BackColor = Color.FromArgb(Integer.Parse(ColorFondoNulo))
                    Dim ColorTextoNulo As String = ini.ReadValue("Paridad_Nulo_Texto", 0)
                    Cuadricula.Item(1, CantidadJugadas - 1).Style.ForeColor = Color.FromArgb(Integer.Parse(ColorTextoNulo))
                End If


                'Añade el color
                Form3.COMBO_RojoNegro.SelectedIndex = ini.ReadValue("COMBO_RojoNegro", NumeroSalido)
                Cuadricula.Rows(CantidadJugadas - 1).Cells(2).Value = Form3.COMBO_RojoNegro.SelectedItem
                If Form3.COMBO_RojoNegro.SelectedIndex = 0 Then 'Rojo
                    Dim ColorFondoRojo As String = ini.ReadValue("Rojo_Fondo", 0)
                    Cuadricula.Item(2, CantidadJugadas - 1).Style.BackColor = Color.FromArgb(Integer.Parse(ColorFondoRojo))
                    Dim ColorTextoRojo As String = ini.ReadValue("Rojo_Texto", 0)
                    Cuadricula.Item(2, CantidadJugadas - 1).Style.ForeColor = Color.FromArgb(Integer.Parse(ColorTextoRojo))
                End If
                If Form3.COMBO_RojoNegro.SelectedIndex = 1 Then 'Negro
                    Dim ColorFondoNegro As String = ini.ReadValue("Negro_Fondo", 0)
                    Cuadricula.Item(2, CantidadJugadas - 1).Style.BackColor = Color.FromArgb(Integer.Parse(ColorFondoNegro))
                    Dim ColorTextoNegro As String = ini.ReadValue("Negro_Texto", 0)
                    Cuadricula.Item(2, CantidadJugadas - 1).Style.ForeColor = Color.FromArgb(Integer.Parse(ColorTextoNegro))
                End If
                If Form3.COMBO_RojoNegro.SelectedIndex = 2 Then 'Verde
                    Dim ColorFondoVerde As String = ini.ReadValue("Verde_Fondo", 0)
                    Cuadricula.Item(2, CantidadJugadas - 1).Style.BackColor = Color.FromArgb(Integer.Parse(ColorFondoVerde))
                    Dim ColorTextoVerde As String = ini.ReadValue("Verde_Texto", 0)
                    Cuadricula.Item(2, CantidadJugadas - 1).Style.ForeColor = Color.FromArgb(Integer.Parse(ColorTextoVerde))
                End If




                'Añade la fila
                Form3.COMBO_Fila.SelectedIndex = ini.ReadValue("COMBO_Fila", NumeroSalido)
                Cuadricula.Rows(CantidadJugadas - 1).Cells(3).Value = Form3.COMBO_Fila.SelectedItem


                'Añade la menor mayor
                Form3.COMBO_MenorMayor.SelectedIndex = ini.ReadValue("COMBO_MenorMayor", NumeroSalido)
                Cuadricula.Rows(CantidadJugadas - 1).Cells(4).Value = Form3.COMBO_MenorMayor.SelectedItem


                'Añade la rojo negro
                Form3.COMBO_RojoNegro.SelectedIndex = ini.ReadValue("COMBO_RojoNegro", NumeroSalido)
                Cuadricula.Rows(CantidadJugadas - 1).Cells(5).Value = Form3.COMBO_RojoNegro.SelectedItem



            Else
                MsgBox("Introduzca un tipo de dato válido", MsgBoxStyle.Exclamation + MsgBoxStyle.OkOnly, "Dato incorrecto")
                TEXTBOX_NumeroSalido.Text = ""
            End If
        End If

    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Form2.Show()
    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Form3.Show()
    End Sub

    Private Sub Cuadricula_Click(sender As Object, e As System.EventArgs) Handles Cuadricula.Click
    End Sub

    Private Sub Cuadricula_DoubleClick(sender As Object, e As System.EventArgs) Handles Cuadricula.DoubleClick
        MsgBox(Column6.Width)
    End Sub

    Private Sub BOTON_Calculos_Click(sender As System.Object, e As System.EventArgs) Handles BOTON_Calculos.Click
        Form4.Show()
    End Sub

    Private Sub LABEL_RepeticionNumeros_Click(sender As Object, e As System.EventArgs) Handles LABEL_RepeticionNumeros.DoubleClick
        'MSGBOX PARA VISUALIZAR LOS NUMEROS MAS REPETIDOS, EN ORDEN, Y VISUALIZAR TAMBIEN LA CANTIDAD DE VECES QUE SE HA REPETIDO CADA NUMERO

    End Sub

    Private Sub SalirToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles SalirToolStripMenuItem.Click
        End
    End Sub

    Private Sub BOTON_Consejo_Click(sender As System.Object, e As System.EventArgs) Handles BOTON_Consejo.Click
        'Construye una estadistica de probabilidades y las coloca en el listbox de Consejo
        Dim Ciclo As Integer
        Dim Par As Integer, Impar As Integer, Nulo As Integer
        Dim Rojo As Integer, Negro As Integer, Verde As Integer
        Dim VecinosCero As Integer, Huerfanos As Integer, Tercio As Integer

        For Ciclo = 1 To CantidadJugadas - 1 'Cicla desde la primera jugada hasta la jugada anterior al ultimo numero que ha salido

            If MatrizNumerosSalidos(Ciclo) = NumeroSalido Then

                'comprobacion de paridad de numeros. a tener en cuenta el numero 0
                If MatrizNumerosSalidos(Ciclo + 1) = 0 Then
                    Nulo = Nulo + 1
                Else
                    If MatrizNumerosSalidos(Ciclo + 1) Mod 2 = 0 Then Par = Par + 1
                    If MatrizNumerosSalidos(Ciclo + 1) Mod 2 <> 0 Then Impar = Impar + 1
                End If

                'comprobacion del color
                If (ini.ReadValue("COMBO_RojoNegro", (MatrizNumerosSalidos(Ciclo + 1))) = 0) Then Rojo = Rojo + 1
                If (ini.ReadValue("COMBO_RojoNegro", (MatrizNumerosSalidos(Ciclo + 1))) = 1) Then Negro = Negro + 1
                If (ini.ReadValue("COMBO_RojoNegro", (MatrizNumerosSalidos(Ciclo + 1))) = 2) Then Verde = Verde + 1

                'comprobacion de la zona;   VecinosCero = 0 ; Huerfanos = 1 ; Tercio = 2
                If (ini.ReadValue("COMBO_Zona", (MatrizNumerosSalidos(Ciclo + 1))) = 0) Then VecinosCero = VecinosCero + 1
                If (ini.ReadValue("COMBO_Zona", (MatrizNumerosSalidos(Ciclo + 1))) = 1) Then Huerfanos = Huerfanos + 1
                If (ini.ReadValue("COMBO_Zona", (MatrizNumerosSalidos(Ciclo + 1))) = 2) Then Tercio = Tercio + 1

            End If
        Next

        MsgBox("Después de: " & NumeroSalido & vbCrLf & "Par: " & Par & vbCrLf & "Impar: " & Impar & vbCrLf & "Rojo: " & Rojo & vbCrLf & "Negro: " & Negro)


    End Sub

    Private Sub AbrirToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles AbrirToolStripMenuItem.Click
        OpenFileDialog1.Title = "Seleccione archivo de sesion para abrir..."
        OpenFileDialog1.InitialDirectory = "C:\Datos\"

        OpenFileDialog1.ShowDialog()
    End Sub

    Private Sub OpenFileDialog1_FileOk(sender As System.Object, e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
        Dim Nombre_Archivo As String = OpenFileDialog1.FileName
        Dim TextLine As String

        If System.IO.File.Exists(Nombre_Archivo) = True Then
            Dim ObjReader As New System.IO.StreamReader(Nombre_Archivo)

            Do While ObjReader.Peek() <> -1
                TextLine = ObjReader.ReadLine()
                LISTBOX_Consejo.Items.Add(TextLine)
                TEXTBOX_NumeroSalido.Text = TextLine
                SendKeys.Send("{ENTER}")
            Loop
        End If


    End Sub

    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        TEXTBOX_NumeroSalido.Text = "1"
        TEXTBOX_NumeroSalido.Focus()
        SendKeys.Send("{ENTER}")
    End Sub

    Private Sub TEMPORIZADOR1_Tick(sender As System.Object, e As System.EventArgs) Handles TEMPORIZADOR1.Tick
        If TEMPORIZADOR1.Enabled = True Then
            LISTBOX_Consejo.SelectedIndex = 0
            Dim NumeroACopiar As Integer
            NumeroACopiar = LISTBOX_Consejo.GetItemText(0)
            TEXTBOX_NumeroSalido.Text = NumeroACopiar
            TEXTBOX_NumeroSalido.Focus()
            SendKeys.Send("{ENTER}")
            TEXTBOX_NumeroSalido.Text = ""
            LISTBOX_Consejo.Items.Remove(0)
            LISTBOX_Consejo.Refresh()
        End If
    End Sub
End Class

[.paul.]

do you have Option Strict on?
where do you declare CantidadJugadas? it needs to be declared at form level to retain it's value

[Jose_VB]

do you have Option Strict on?
where do you declare CantidadJugadas? it needs to be declared at form level to retain it's value

Option strict is off.
I declare it in a module

 Public CantidadJugadas As Integer

I've tried to do the same task, but when I press a button a number is entered into the system. The only thing I do here is to create integer random numbers instead of reading them from the text file.

    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        TEXTBOX_NumeroSalido.Text = Int(Rnd() * 37)
        TEXTBOX_NumeroSalido.Focus()
        SendKeys.Send("{ENTER}")
    End Sub

This piece of code works. Now I'm going to see why in the automated system it doesn't works.

[4x2y]

It is always good practice to separate code from event handler subs, so it is easy to call it from anywhere, e.g.

    Private Sub TEXTBOX_NumeroSalido_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TEXTBOX_NumeroSalido.KeyPress
        If (e.KeyChar = Microsoft.VisualBasic.Chr(13)) Then
            DoSomething(TEXTBOX_NumeroSalido.Text)
        Else
            MsgBox("Introduzca un tipo de dato válido", MsgBoxStyle.Exclamation + MsgBoxStyle.OkOnly, "Dato incorrecto")
            TEXTBOX_NumeroSalido.Text = ""
        End If

    End Sub

    Private Sub OpenFileDialog1_FileOk(sender As System.Object, e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
        Dim Nombre_Archivo As String = OpenFileDialog1.FileName
        Dim TextLine As String

        If System.IO.File.Exists(Nombre_Archivo) = True Then
            Dim ObjReader As New System.IO.StreamReader(Nombre_Archivo)

            Do While ObjReader.Peek() <> -1
                TextLine = ObjReader.ReadLine()
                LISTBOX_Consejo.Items.Add(TextLine)
                DoSomething(TextLine)
            Loop
        End If


    End Sub

    Private Sub DoSomething(ByVal strText As String)
        ' no need for Len(strText) <> 0 as IsNumeric(strText) is enough.
        If IsNumeric(strText) AndAlso Val(strText) <= 36 AndAlso Val(strText) >= 0 Then
            ' Add code under TEXTBOX_NumeroSalido_KeyPress here
            ' and replace the direct reference to TEXTBOX_NumeroSalido.Text with the param strText.
        End If

    End Sub