Cry Ant Crew
Would you like to react to this message? Create an account in a few clicks or log in to continue.


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

 

 Undo di dalam Text Box

Go down 
PengirimMessage
Qrembiezs
Security Team
Security Team



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

Undo di dalam Text Box Empty
PostSubyek: Undo di dalam Text Box   Undo di dalam Text Box EmptySat 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
Kembali Ke Atas 
Halaman 1 dari 1
 Similar topics
-
» Design Typografhy 3D Text - Model : Om Wenkhairu - Part I
» Tandai semua character di dalam textbox
» Menampilkan Karakter dalam Warna Berbeda
» Kumpulan Lagu Mozart Untuk Bayi Dalam Kandungan

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