VBNet - Форум - Как на имедже сделать правый клик(т.е меню)

Вопрос: Как на имедже сделать правый клик(т.е меню) Добавлено: 21.10.04 12:52

Автор вопроса: Gog | ICQ: 288876730

Как на имедже сделать правый клик(т.е меню)
Хочу на смайликах сделать клик чтобы можно было на форме передвигать
Ответить

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

Номер ответа: 1 Автор ответа: mc-black ICQ: 308-534-060 Вопросов: 20 Ответов: 1860	Web-сайт: mc-black.narod.ru/dzp.htm Профиль \| \| #1	Добавлено: 21.10.04 13:24
	Cоздай меню Используй метод PopupMenu в обработчике событий Image1_MouseUp при значении Button=vbRightButton Ответить

Номер ответа: 2 Автор ответа: Barsik Разработчик Offline Client ICQ: 343368641 Вопросов: 17 Ответов: 686	Web-сайт: barsik.newmail.ru Профиль \| \| #2	Добавлено: 21.10.04 14:19
	2 mc-black: лучше юзать Image1_MouseDown... ты стандартные менюшки глянь... Private Sub Image1_MouseDown(Button As Integer, SHIFT As Integer, X As Single, Y As Single) If Button = vbRightButton Then Me.PopupMenu mnuMain End Sub Ответить

Номер ответа: 3 Автор ответа: mc-black ICQ: 308-534-060 Вопросов: 20 Ответов: 1860	Web-сайт: mc-black.narod.ru/dzp.htm Профиль \| \| #3	Добавлено: 21.10.04 14:59
	Можно и MouseDown. Это как кому нравится. Я просто посмотрел, как в IE работает всплывающее меню. Там когда кнопку отпускаешь, только тогда меню видишь. Что миеется в виду под "стандартными" менюшками? Кто эти стандарты установил? Ответить

Номер ответа: 4 Автор ответа: Barsik Разработчик Offline Client ICQ: 343368641 Вопросов: 17 Ответов: 686	Web-сайт: barsik.newmail.ru Профиль \| \| #4	Добавлено: 21.10.04 15:21
	ну я имел в виду меню в VB... только что догнал... всплывающее а не строка меню... ЗЫ: ну тогда выбор останется за автором вопроса Ответить

Номер ответа: 5 Автор ответа: Millenium ICQ: 629966 Вопросов: 118 Ответов: 903	Web-сайт: www.aliyev.us Профиль \| \| #5	Добавлено: 22.10.04 09:51
	-Легко и просто. И всплывает там где надо (где курсор). НО выбери один по вкусу! Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 'При нажатии If Button = vbRightButton Then PopupMenu mnuImgPop, , X, Y End Sub Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) 'При отпускании If Button = vbRightButton Then PopupMenu mnuImgPop, , X, Y End Sub Ответить

Страница: 1 |