Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: как убрать контекстное меню? Добавлено: 14.07.03 19:00  

Автор вопроса:  Trusishka | ICQ: 229751913 

При нажитии правой кнопкой мышки на текстбоксе вылезает контекстное меню. Как сделать так чтобы оно не появлялось?

(enable = false  не подходит)

Ответить

  Ответы Всего ответов: 7  

Номер ответа: 1
Автор ответа:
 CyRax



Разработчик Offline Client

ICQ: 204447456 

Вопросов: 180
Ответов: 4229
  Web-сайт: basicproduction.nm.ru
 Профиль | | #1 		Добавлено: 14.07.03 20:38

'Модуль
 ;Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
 ;Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Const GWL_WNDPROC = (-4)
Private Const WM_CONTEXTMENU As Long = &H7B
 Public MessageThread As Long

Public Function WindowProcCB(ByVal hwnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
 If uMsg = WM_CONTEXTMENU Then uMsg = 0
 WindowProcCB = CallWindowProc(MessageThread, hwnd, uMsg, wParam, lParam)
End Function

'Форма
Private Sub Form_Load()
  MessageThread = SetWindowLong(Text1.hwnd, GWL_WNDPROC, AddressOf WindowProcCB)
End Sub
Private Sub Form_Unload(Cancel As Integer)
  SetWindowLong Text1.hwnd, GWL_WNDPROC, MessageThread
End Sub

Ответить

Номер ответа: 2
Автор ответа:
 Trusishka



ICQ: 229751913 

Вопросов: 36
Ответов: 48
  Профиль | | #2 Добавлено: 14.07.03 21:21

блин , у меня почти на каждой строке ошибки лезут , я в этих АПИ не

а нельзя как-нибудь решить задачу попроще?

Ответить

Номер ответа: 3
Автор ответа:
 CyRax



Разработчик Offline Client

ICQ: 204447456 

Вопросов: 180
Ответов: 4229
  Web-сайт: basicproduction.nm.ru
 Профиль | | #3 		Добавлено: 15.07.03 01:32

>блин , у меня почти на каждой строке ошибки лезут

Похоже ты в моей помощи больше не нуждаешся.

Ответить

Номер ответа: 4
Автор ответа:
 Trusishka



ICQ: 229751913 

Вопросов: 36
Ответов: 48
  Профиль | | #4 Добавлено: 15.07.03 10:41

Нуждаюсь, нуждаюсь, только твой код возможно для VB.NET?

потому как ни одна комманда не проходит.(у меня VB6)

Ответить

Номер ответа: 5
Автор ответа:
 .COM



ICQ: 212158853 

Вопросов: 4
Ответов: 79
  Профиль | | #5 Добавлено: 15.07.03 11:00

Тогда может тут посмотри: http://dimoon.by.ru/sekretvb.htm#70

Попробуй, может если модифицировать подойдет....

Ответить

Номер ответа: 6
Автор ответа:
 Trusishka



ICQ: 229751913 

Вопросов: 36
Ответов: 48
  Профиль | | #6 Добавлено: 15.07.03 11:19

 

 БЛИН ВОТ Я ДИБИЛ!

ты код то писал для модуля!!!

ТЕПЕРЬ ВСЕ РАБОТАЕТ

Я тебе тоже могу дать полезный совет - для новичков пиши ПОКРУПНЕЕ )))))))))

Ответить

Номер ответа: 7
Автор ответа:
 CyRax



Разработчик Offline Client

ICQ: 204447456 

Вопросов: 180
Ответов: 4229
  Web-сайт: basicproduction.nm.ru
 Профиль | | #7 		Добавлено: 15.07.03 22:24

Спасибо, а то редко кто даёт действительно полезные советы.

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам