Техническая поддержка :

Современные решения

для защиты Windows программ

и восстановления исходного кода

Обсуждение программирования на Visual Basic в конференции ru.visual.basic


Re: PopupMenu

From: "Igor A. Vyatkin"

Hi,

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

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

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)


Re: PopupMenu

From: Alexander Asyabrik

Привет, Vitaliy.

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

VR> Хелп!!!!!!
VR> Как вызвать попап меню из модальной формы, кликая по объкту на ней
VR> правой кнопкой, если эта форма запущена из события клик другого попап
VR> меню на другой форме?



VR> (ФИГ ТАМ!!! меню просто игнорируется и ниче не вызывается)

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


--
Alexander



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


PopupMenu

From: Vitaliy Rusavsky

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


PopupMenu

From: Vitaliy Rusavsky

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


Re: Закодировать текстовый файл

From: "A. Skrobov"

Hello, Max!
You wrote in conference fido7.ru.visual.basic to "A.Skrobov"
to A. Skrobov on Wed, 19 May 2004 23:53:32
+0400:

AS>>>> Hапишешь на байтах, чтобы было быстрее - будет аргумент.
ME>>> Если подстрока ищется с учетом регистра и меняется на равную ей
ME>>> по длине - то будет в разы быстрее ;)
AS>> С учётом регистра, на неравную по длине. Я запостил мой вариант,
AS>> можешь сделать быстрее, хотя бы чтоб было сравнимо по скорости со
AS>> строками - с удовольствием посмотрю. А то рассуждать "будет быстрее -
AS>> не будет быстрее" можно долго. И безрезультатно.
ME> Я же тебе говорю, что быстрее у меня получилось только с данными
ME> ограничениями :) И то со string mapping и заменой в исходном
ME> выражении...
А я тебе отвечаю, что без этих ограничений строки быстрее.

ME> P.S. Это дело писалось давно и наверняка порядком тормознуто, как у
ME> меня обычно с первого раза выходит, небось instrb и то быстрее пашет :)
ME> P.P.S. Ты бы хоть ubound в своем примере пореже использовал, что ли :)
Ещё раз повторюсь, если можешь сделать пример на байтовых массивах, без
ограничения на совпадение длин, и сколько-нибудь существенно быстрее -
делай.


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



--

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


Re: Hабор каманды !!!

Hello Terekhin.

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

TA> Hу раз делать, то уж только HTTP сервер ;)

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

Ivan

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


Поиск и замена внутри VBA-проекта

From: "Sergei Ho"

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

Сергей.


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


PopupMenu

* Hi, Alexander!

VR>> Как вызвать попап меню из модальной формы, кликая по объкту на ней
VR> VR>> правой кнопкой, если эта форма запущена из события клик
VR>> другого попап меню на другой форме?

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

Лучше без таймера, т.к. 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
If popupMenuItem >= 0 Then
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)


Re: PopupMenu

From: Alexander Asyabrik

Привет, Vitaly.

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

VB> AA> Если тебе это подойдет, то выполняй команду не в событии клик меню, а,
VB> AA> например в событии дополнительного таймера, который будет запускаться
VB> AA> в событии клик. У меня это прошло.

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

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

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



VB> Private popupMenuItem As Integer
VB> Private popupMenuFlag As Boolean
VB> Private callLevel As Integer

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

VB> Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y
VB> As Single)

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

VB> Set frm = New Form1

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

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


--
Alexander



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


Re: Из TextBox в массив.

Хайлоу, A.

AS> You wrote in conference fido7.ru.visual.basic to "All"
AS> to All on Fri, 14 May 2004 19:05:22 +0400:

ST>> Такая задача стоит: есть TextBox, в котоpый чеpез пpобел вводятся
ST>> целые числа. Hадобно эти числа выдеpнуть и засунуть в масив. Как бы
ST>> вы такую задачу pешили?
AS> Ха.
AS> Massiv = Split(Text1.Text)

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

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



Назад Содержание Вперед




Главная     Программы     Статьи     Разное     Форум     Контакты