We are Just Computer Freaker
 
IndeksPencarianPendaftaranLogin
Login
Username:
Password:
Login otomatis: 
:: Lupa password?

Share | 
 

 Undo di dalam Text Box

Topik sebelumnya Topik selanjutnya Go down 
PengirimMessage
Qrembiezs
Security Team
Security Team


Jumlah posting : 93
Join date : 05.04.11
Lokasi : %windir%regedit.exe

PostSubyek: Undo di dalam Text Box   Sat 8 Feb 2014 - 13:51

Persiapan :
1. 1 Form
2. 1 TextBox
3. 1 Command Button
4. 1 module

isikan source module seperti dibawah ini

Code:
Declare Function SendMessageBynum& Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
ByVal lparam As Long)
Public Const EM_UNDO = &HC7&

pada form isikan source seperti ini

Code:
Private Sub TextUndo(T As TextBox)
SendMessageBynum T.hwnd, EM_UNDO, 0, 0
End Sub

kemudian klik 2 kali command button dan isikan source dibawah ini

Private Sub Command1_Click()
Call TextUndo(Text1)
End Sub

selesai dan silahkan di coba Merokok 
Kembali Ke Atas Go down
 
Undo di dalam Text Box
Topik sebelumnya Topik selanjutnya Kembali Ke Atas 
Halaman 1 dari 1
 Similar topics
-
» Vlad Dracula " Kisah Nyata Pembantai Umat Islam Dalam Perang Salib
» Bagaimana cara mengatur Posisi text di dalam widget (justify)?
» WTA >> cara pasang plat no di dalam windshield
» Tips Berguna di Kehidupan Sehari-hari
» IGO... seni menyerang, bertahan dan memperluas wilayah...

Permissions in this forum:Anda tidak dapat menjawab topik
Cry Ant Crew :: Information Technology :: Programming :: Visual Basic-
Navigasi: