Кнопки рядом с курсором - VB
Формулировка задачи:
Даже не знаю, как правильно сформулировать вопрос, но я попробую:
Например, пользователь жмет на Command1 . Справа снизу от курсора должны появиться (так скажем, хотя это несколько некорректно) "кнопки", но не Commandы, а пункты, как в меню, которое можно создать в встроенном редакторе меню. Решения через Msgbox и/или созданием новой формы не подходят.
Решение задачи: «Кнопки рядом с курсором»
textual
Листинг программы
Option Explicit Dim XCur As Single Dim YCur As Single Private Sub Form_Click() Me.PopupMenu а, 0, XCur, YCur End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) XCur = X YCur = Y End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д