none
Escribir una coma cuando pulso espacio RRS feed

  • Pregunta

  • Buenas nesecito ayuda con esto 

    tengo que cambiar el espacio por una coma que no sea en incio de la cadena 

    si escribo algo y doy a espacio me borra el textbox

    GRACIAS

    Private Sub Text_Buscador_KeyPress(sender As Object, e As KeyPressEventArgs) Handles Text_Buscador.KeyPress
            If Asc(e.KeyChar) = 32 Then
                e.Handled = True
                Text_Buscador.Text += ","
                'Text_Buscador.SelectionStart = Text_Buscador.Text.Length
            End If
        End Sub

    Tambien tengo este codigo que maneja cadena

    Sub Agregar_metro()
            ItemContainer1.SubItems.Clear()
            For Buscar_cerveza = 0 To Inicio.DataGridView1.RowCount - 1
                Dim Cadena_Textbox As String = Trim(Text_Buscador.Text.ToString.ToLower)
                Dim split As String() = Cadena_Textbox.Split(New [Char]() {" "c, ","c, "."c, ":"c, CChar(vbTab)})
    
                For Each s As String In split
                    
                    If s = "" Then
                        Text_Buscador.Clear()
                        MetroTilePanel1.Refresh()
                        ItemContainer1.Refresh()
    
                    Else
                        If Inicio.DataGridView1.Rows(Buscar_cerveza).Cells(1).Value.ToString.ToLower.Contains(s) Then
                            Dim pb As New DevComponents.DotNetBar.Metro.MetroTileItem
                            pb.Name = "pb" & Buscar_cerveza.ToString
                            pb.TileSize = New Size(250, 100)
                            ItemContainer1.SubItems.Add(pb)
    
                            AddHandler pb.Click, AddressOf pb_click
                            MetroTilePanel1.Refresh()
                            ItemContainer1.Refresh()
    
    
    
    
                            Dim row As DataGridViewRow = Inicio.DataGridView1.Rows(Buscar_cerveza)
    
                            If row IsNot Nothing Then
                                pb.TileStyle.Font = New Font("Microsoft Sans Serif", 12, FontStyle.Bold)
                                pb.TitleTextFont = New Font("Microsoft Sans Serif", 10, FontStyle.Bold)
                                pb.Text = row.Cells(1).Value & vbCrLf & "Fecha Elaboracion: " & row.Cells(2).Value
                                pb.TitleText = "Estilo: " & row.Cells(3).Value
    
                            End If
    
    
                        End If
                    End If
    
                Next s
    
    
            Next
    
        End Sub

    sábado, 5 de noviembre de 2016 8:15

Respuestas

  • Private Sub Text_Buscador_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox2.KeyPress
    If e.KeyChar = " " Then
    e.KeyChar = ","
    End If
    End Sub

    • Marcado como respuesta JETET domingo, 6 de noviembre de 2016 9:06
    sábado, 5 de noviembre de 2016 10:27

Todas las respuestas

  • Private Sub Text_Buscador_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox2.KeyPress
    If e.KeyChar = " " Then
    e.KeyChar = ","
    End If
    End Sub

    • Marcado como respuesta JETET domingo, 6 de noviembre de 2016 9:06
    sábado, 5 de noviembre de 2016 10:27
  • Gracias por responder Anibal 

    con ese codigo si me cambia el espacio por , 

    pero cuando escribo boll por ejemplo me busca el resultado

    pero si a boll le pongo una como detras boll, me borra el textbox

    GRACIAS
    domingo, 6 de noviembre de 2016 9:06