Обсуждение программирования на 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" +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> 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) |