Skip Navigation Links
Novas Tecnologias
Ferramentas Adicionais
Ferramentas Adicionais


Dica No :
733
Assunto : VB.NET
Titulo: Fazendo a tecla insert funcionar nas textbox

Gostou do texto ? Vote e dê sua opinião! Pontuação atual :

Translate this page now :






Adicione aos Favoritos!
BlogBlogs Rec6 Linkk Ueba Technorati Delicious DiggIt! StumbleUpon



A textbox do .NET trabalha apenas em modo de inserção. Não adianta ligar ou desligar o insert que ela não o reconhece.

Para podermos ter os dois modos de trabalho na textbox, inserção e overwrite, podemos personalizar a textbox fazendo uso de uma função da API para testar o estado das teclas.

Veja como fica o código :

Public Class MinhaNovaTextbox
Inherits System.Windows.Forms.TextBox

Dim bInserting As Boolean = True


Private Declare Function GetKeyState _
Lib "user32" (ByVal nVirtKey As Long) As Integer

Public Sub New()
MyBase.New()
bInserting = GetKeyState(Keys.Insert)
End Sub



Protected Overrides Sub OnKeyPress(ByVal e As System.Windows.Forms.KeyPressEventArgs)
bInserting = GetKeyState(Keys.Insert)
If Not bInserting Then
Me.SelectionLength = 1
End If
MyBase.OnKeyPress(e)
End Sub
End Class


A função da API é definida. Criamos um construtor para verificar o estado inicial da tecla insert.

A cada tecla pressionada, testamos o estado do insert e, se não estiver ativado, selecionamos um caracter da textbox para ser sobrescrito.



Nome :
E-mail:
Comentarios :
 
 
Os Últimos Comentários
data: 2/1/2017 1:14:00 AM
nome: LXSeuPVLPqmAyCX
email: derby451@hotmail.com
comentário:
jvapkN http://www.y7YwKx7Pm6OnyJvolbcwrWdoEnRF29pb.com

data: 1/31/2017 7:41:00 PM
nome: wyELWePLSxaDrXt
email: derby451@hotmail.com
comentário:
sDjm26 http://www.y7YwKx7Pm6OnyJvolbcwrWdoEnRF29pb.com

data: 1/30/2017 12:17:00 AM
nome: yRFwONzmktWkXxEtwj
email: derby451@hotmail.com
comentário:
VuSILo http://www.y7YwKx7Pm6OnyJvolbcwrWdoEnRF29pb.com

data: 1/29/2017 11:08:00 PM
nome: xLIkXKUIUITJtLO
email: jogcbfn@hotmail.com
comentário:
OxO6gM http://www.y7YwKx7Pm6OnyJvolbcwrWdoEnRF29pb.com

data: 1/29/2017 5:34:00 PM
nome: cPMefJpdrTiPz
email: jogcbfn@hotmail.com
comentário:
cKNZ3Z http://www.y7YwKx7Pm6OnyJvolbcwrWdoEnRF29pb.com

 1  
Dicas
Dica do Dia
Receba Dicas Por Email
E-mail :  
 


 (help)
Aceito receber informativos do devASPNet, informações de eventos e treinamentos

Veja Quais Informativos Você Receberá

Pesquisar Dicas
Pesquisar Artigos, Dicas e Noticias

Banco de Dados
Algumas Entrevistas
Links Importantes

Búfalo Informática, Treinamento e Consultoria
R. Alvaro Alvim, 37/920 Centro - Cinelândia - Rio de Janeiro Cep: 20031-010
Tel : (21) 2262-1368 (21) 9240-5134 E-mail : Contato@bufaloinfo.com.br