Visual Basic 6.0 - PopupMenu

Hi,

Thursday, May 20, 2004, 6:45:07 PM, you wrote:















http://support.microsoft.com/default.aspx?scid=kb;en-us;167839

--
Igor A. Vyatkin
E-Mail: garry [@] mail.novgorod.ru
* Origin: Astrosoft Development (2:5020/400)




Привет, Vitaliy.

Вы, было дело, писали, 17:45 20.05.04:










Я проверил, и у меня те же дела. Видимо, пока событие одного меню еще
не закончилось, VB другое меню показать не в состоянии (хоть бы ошибку
сгенерировал, что-ли:)
Если тебе это подойдет, то выполняй команду не в событии клик меню, а,
например в событии дополнительного таймера, который будет запускаться
в событии клик. У меня это прошло.


--
Alexander
* Origin: Talk.Mail.Ru (2:5020/400)




Хелп!!!!!!
Как вызвать попап меню из модальной формы, кликая по объкту на ней
правой кнопкой, если эта форма запущена из события клик другого попап
меню на другой форме?
Короче ситуация:
1.есть форма
2.на ней меню
3.кликаю правой кнопкой вызываю это меню в качестве попапменю
4.выбираю пункт из него
5.загружается новая модальная форма
6.кликаю на ней правой кнопкой и вызываю новое попапменю, описаное или
на этой же форме или на первой, все равно
(ФИГ ТАМ!!! меню просто игнорируется и ниче не вызывается)
* Origin: MT-Bank (2:5020/400)




Хелп!!!!!!
Как вызвать попап меню из модальной формы, кликая по объкту на ней
правой кнопкой, если эта форма запущена из события клик другого попап
меню на другой форме?
Короче ситуация:
1.есть форма
2.на ней меню
3.кликаю правой кнопкой вызываю это меню в качестве попапменю
4.выбираю пункт из него
5.загружается новая модальная форма
6.кликаю на ней правой кнопкой и вызываю новое попапменю, описаное или
на этой же форме или на первой, все равно
(ФИГ ТАМ!!! меню просто игнорируется и ниче не вызывается)
* Origin: MT-Bank (2:5020/400)




Hello, Max!
You wrote in conference fido7.ru.visual.basic to "A.Skrobov"

+0400:











А я тебе отвечаю, что без этих ограничений строки быстрее.




Ещё раз повторюсь, если можешь сделать пример на байтовых массивах, без
ограничения на совпадение длин, и сколько-нибудь существенно быстрее -
делай.


With best regards, A. Skrobov. E-mail: tyomitch [@] r66.ru
--

* Origin: Talk.Mail.Ru (2:5020/400)


Hello Terekhin.

19 Май 04 08:45, you wrote to me:



vbApache.NET, консольный, с конфигуиpованием чеpез текстовые файлы, как в натуpальном апаче. И обязательно с поддеpжкой PDA.

Ivan

* Origin: Бедные тоже платят. (2:5023/19.9)




Можно ли программно выполнить глобальную замену
в тексте всех модулей, классов, форм
VBA проекта Word 2002 (XP)? Как?

Сергей.


* Origin: MTU-Intel ISP (2:5020/400)


* Hi, Alexander!












Лучше без таймера, т.к. imho в таймере место только периодическим событиям.

=== Hачало Form1.frm ===

VERSION 5.00
Begin VB.Form Form1
Begin VB.Menu pMenu
Caption = "popup Menu Example"
Visible = 0 'False
Begin VB.Menu pMnu
Caption = "New modal form"
Index = 0
End
Begin VB.Menu pMnu
Caption = "Close"
Index = 1
End
End
End

Option Explicit

Private popupMenuItem As Integer
Private popupMenuFlag As Boolean
Private callLevel As Integer

Private Sub Form_Load()
popupMenuItem = -1
popupMenuFlag = False
Me.level = 0
End Sub

Property Get level() As Integer
level = callLevel
End Property

Property Let level(l As Integer)
callLevel = l
Me.Caption = "Level " & callLevel
End Property

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
popupMenuFlag = True
Me.PopupMenu pMenu
popupMenuFlag = False

pMnu_Click popupMenuItem
popupMenuItem = -1
End If
End If
End Sub

Private Sub pMnu_Click(Index As Integer)
Dim frm As Form1

If popupMenuFlag Then
popupMenuItem = Index
Exit Sub
End If

Select Case Index
Case 0 'new modal form
Set frm = New Form1
frm.Left = Me.Left + 500
frm.Top = Me.Top + 500
frm.level = Me.level + 1
frm.Show 1, Me
Case 1 'exit
Unload Me
End Select
End Sub

=== Конец Form1.frm ===

* С уважением, Vitaly
* Origin: Vitaly [@] work (2:5053/40.42)




Привет, Vitaly.

Вы, было дело, писали, 6:55 21.05.04:







Кто такое сказал? В таймере место _отсроченным_ событиям, а будут ли они
периодическими или нет это уже в зависимости от задачи.









Hеужто из-за того, чтобы сэкономить на ничего не весящем Timer-е
есть смысл вносить лишнюю путаницу с этими флагами? Может еще и
горсть субклассинга сюда подсыпать :)




Меня самого тут уже по этому поводу поправляли: классически pop-up
меню на форме выбрасывать следует по Form_MouseUp



Предполагаю, что у Vitaliy Rusavsky все-таки _разные_ формы.

Аргумент в пользу Timer-а:
как весьма своевременно ткнул нас носом Igor A. Vyatkin, именно такой
вариант решения проблемы (с таймером) прелагает и сами авторы бага, MS.


--
Alexander
* Origin: Talk.Mail.Ru (2:5020/400)


Хайлоу, A.










А как массив после кое-каких действий впендюpить обpатно в текстбокс?

Hу, до скоpого
* Origin: Пpогнем этот миp, иначе он пpогнет нас (2:5020/2192.33)