Skip Navigation Links
Novas Tecnologias
Ferramentas Adicionais
Ferramentas Adicionais


Dica No :
176
Assunto : Visual Basic
Titulo: Criando um UNDO em textboxes

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



Para criar um UNDO em textboxes devemos enviar uma mensagem do windows à textbox na qual desejamos realizar o UNDO. Para tando devemos utilizar a função da API chamada de SendMessage.

Veja a declaração desta função :

Private Declare Function SendMessage Lib "user32" Alias _
"SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Integer, ByVal lParam As Any) As Long


Foi inserido o Private para que esta declaração possa ser inserida em um form, caso contrário teria que ser inserida em um módulo (o que em muitos casos é vantajoso para que se aproveite a mesma função para vários forms).

Vamos criar uma sub chamada TEXTUND que utilize a SendMessage para enviar a mensagem de Undo para uma textbox. A textbox precisará ser recebida como parâmetro. Veja :

Sub textund(ctlcontrol As Control)
Dim lreturn As Long

Const EM_UNDO = &HC7
If TypeOf ctlcontrol Is TextBox Then
lreturn = SendMessage(ctlcontrol.hwnd, EM_UNDO, 2, 0&)
End If

End Sub


É feito um IF na sub para garantir que o objeto é uma textbox. Por fim devemos chamar esta função de algum local. Podemos padronizar que o Undo será feito com o pressionamento de <ctrl>+<U> em uma textbox. Veja como fica o código :

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 21 Then
Call textund(Text1)
KeyAscii = 0
End If
End Sub

O 21 é o código ASC II do <ctrl> + <U> .



Nome :
E-mail:
Comentarios :
 
 
Os Últimos Comentários
data: 10/14/2016 7:13:00 PM
nome: kUqbwKYFfKsbPiFheuH
email: jimos4581rzt@hotmail.com
comentário:
CJj1mb http://www.FyLitCl7Pf7kjQdDUOLQOuaxTXbj5iNG.com

data: 10/14/2016 6:38:00 PM
nome: ftrbpKGToWlLJ
email: jimos4581rzt@hotmail.com
comentário:
Mkjy0t http://www.FyLitCl7Pf7kjQdDUOLQOuaxTXbj5iNG.com

data: 8/9/2016 4:41:00 PM
nome: zxgqPUewxJjNL
email: jimos4581rt@hotmail.com
comentário:
7VeQVK http://www.FyLitCl7Pf7kjQdDUOLQOuaxTXbj5iNG.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