Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #57 da revista programar. Faz já o download aqui!

Cybernavigator

[keypress] Beep?

Mensagens Recomendadas

Cybernavigator    0
Cybernavigator

    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"?

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
NuGuN    2
NuGuN

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

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Cybernavigator    0
Cybernavigator

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.

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Cybernavigator    0
Cybernavigator

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.

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
NuGuN    2
NuGuN

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

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Revolt    1
Revolt

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

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


×

Aviso Sobre Cookies

Ao usar este site você aceita a nossa Política de Privacidade