• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Cybernavigator

[keypress] Beep?

7 mensagens neste tópico

    Private Sub MessageText_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MessageText.KeyDown
        If e.KeyCode = Keys.Enter Then
            Dim message As String = MessageText.Text
            MessageText.Enabled = False
            message = CompileMessage(message)
            s.PostWrapper("http://newengine.trap17.com/smf/yshout/yshout.php", "reqtype=shout&shout=" & message & "&file=home.txt")
            ShoutPosition.Clear()
            start()
            MessageText.Text = ""
            MessageText.Enabled = True
            MessageText.Focus()
            e.Handled = True
        End If
    End Sub

ok, esse código é executado quando eu carrego enter... Ok, funciona, mas dá um "beep". Como é que páro esse "beep"?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

No final do código quando já estas a "limpas as variáveis, tenta limpar também o Keycode, tipo e.keycode = 0 ou e.keycode = null ou  algo do genero.

Cumps

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Não, não dá, dá-me erro se tento alterar o key.code, já experimentei limpar tudo k vem do e. mas dá sempre o som de como se uma msgbox estive-se aberta.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

MessageText é uma textbox, akilo eh so o nome. O objectivo é mandar uma cena pra um site qd carrego enter nessa textbox, o codigo ja faz isso, mas emite um barulho irritante.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Não te sei dizer dizer directamente o que esta a fazer isso, mas podes experimentar uma coisa. Vais comentando uma de cada vez as linhas que estao dentro do ciclo If e vais experimentando para ver se o beeo desaparece... Sem o código no evento keydown já não há beep, pois não?

Cumps

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Esse beep deve-se ao facto de estares a carregar enter numa textbox c/ multiline = false.

Para o resolver em vez de tratares o evento KeyDown trata o evento KeyPress e usa o seguinte para verificar se enter foi a tecla pressionada

If e.KeyChar = 13  Then

    ...

    e.Handled = true;

End If

Se não der experimenta meter o 13 entre plicas ;P

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora