19 December 2012

Menghilankan PopUp Menu Klik Kanan Pada TextBox

Bagi teman-teman yang ingin menghilangkan menu klik kanan pada sebuah textbox.Berikut ini kode yang digunakan untuk menghilangkan PopUp Menu (menu yang muncul bila di klik kanan) pada kontrol TextBox. Buat Form baru dengan sebuah kontrol TextBox.


Pada VB 6.0
Di bagian '(Declarations)' dari Form ketikkan
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Di bagian 'Text1_MouseDown'.
If Button = vbRightButton ThenSendMessage Me.hwnd, &H204, 0, 0 End If
Pada VB.NET
Di bagian '(Declarations)' dari Form ketikkan
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
Di bagian 'TextBox1_MouseDown'.
If e.Button = Windows.Forms.MouseButtons.Right Then SendMessage(Me.Handle.ToInt32, &H204, 0, 0)End If 
Semoga Bermanfaat :)

No comments:

Post a Comment

Recent Comment

Contact Form

Name

Email *

Message *

2012 © Jabat Software