Обсуждение программирования на Visual Basic в конференции ru.visual.basic
| Re: Как обнаружить процесс |
|
Мы где-то виделись, Terekhin? 02 Dec 04 15:01:54 в RU.VISUAL.BASIC Terekhin Alexandr -> Aleksey Kochkin: TA> ' А вот так вообще ошибка ;( TA> 'lngEnum = EnumWindows(AddressOf Callback1_EnumWindows, 0) Hет, это правильная строка. Как тебе уже сказали, нужно вынести callback-функцию за пределы модуля формы в обычный модуль. А глюк у тебя, думаю, из-за того, что первый параметр функции EnumWindows объявлен ByRef. Видел я несколько раз такие вредные декларации, возможно, у тебя такая же. Всего хорошего! Дмитрий Козырев aka Master * Origin: Дорогу осилит идущий. (2:5023/11.148) |
| Re: Прозрачный контейнер |
|
Мы где-то виделись, Sergey? 02 Dec 04 00:12:04 в RU.VISUAL.BASIC Sergey Broudkov -> мне: SB> Hо осталась одна проблема. Чтобы получиить битмап, надо сначала нарисовать SB> контрол в исходном виде, где фон залит цветом маски. Только потом можно SB> взять этот битмап, сделать регион и применить. В результате в лучшем SB> случае получается мигание, когда виден фоновый цвет, а в худшем - SB> неправильная перерисовка, когда либо то, что нужно, вырезается, либо SB> наоборот, не вырезается то, что не нужно. Проблема бы решалась выводом SB> контрола в какой-нибудь посторонний DC, не на экран, но, к сожалению, SB> VB-шные окна не обрабатывают WM_PRINT или WM_PRINTCLIENT :( А стандартные окна Windows (EDIT, STATIC, BUTTON) поддерживают это сообщение? Всего хорошего! Дмитрий Козырев aka Master * Origin: Дорогу осилит идущий. (2:5023/11.148) |
| Re: автообновляемый рекордсет |
|
From: "Gribkov M.N." > Set con = New ADODB.Connection > pat = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security > Info=False;Data Source=base.mdb" > con.ConnectionString = pat > con.Open > Set acv = New ADODB.Recordset > acv.ActiveConnection = con > acv.Properties("IRowsetIdentity") = True > acv.Open "select * from account", , adOpenKeyset, adLockOptimistic > Set DataGrid1.DataSource = acv > Меняем руками в базе - видим результат в гриде. Чудеса!!! И правда работает. И где вы раньше-то были. Я эти вопросы по всем конференциям отправлял. Hи одного путного ответа!!! Тем более, что связался с AdoDc, ох и гадость, просто слов нет... Увы, но это работает только в связке с Майкросовтовским гридом, в связке с TrueDbGrid, автоматически не обновляется. Сам грид приходится рефрешить вручную. Hо все равно, ситуация сильно упрощается, неожиданно так... Спасибо!!! Удачи, Макс * Origin: CenterTelecom Voronezh ISP (2:5020/400) |
| Как обнаружить процесс |
|
TA>> Попробовал сделать через GetWindowText, но ничего хорошего у меня TA>> не получилось... Всё упёрлось в добывание hwnd окон. Сделал с TA>> EnumWindows обратным вызовом, и жестоко обламался. VB ругается на TA>> AddressOf а без него безмолвно погибает успев добавить в TA>> листбокс всего один элемент - свойство caption формы. SB> Сдается мне, у тебя VB5. Там ИМХО AddressOf еще не придумали. Или, SB> судя по твоему коду, callback-функция у тебя в коде той же формы, из SB> которой ты ее вызываешь, а должна быть в отдельном модуле (именно SB> модуле, *.bas) #%$ [@] %!!! Каждому, кто мнит себя экспертом - на досуге считать различия между VB5 и VB6, уже их всех по сто раз пережевывали. Есть в VB5 AddressOf * Origin: 1134.moveax.ru (2:5045/44.13) |
| Поиск |
|
AE>>> 4) Функцию InStr не пpедлагать! (Hету ее в 5-м VB). 5) 6-й ВБ AE>>> тоже не пpедлагать ;) RY>> Функция INSTR есть в VB5 и в любом MS-BASIC, начиная с QBasic и RY>> QuickBasic. Регистр в VB5 задается последним флагом. AS> Функция INSTR есть в любом бейсике вообще, не ограничиваясь только AS> продуктами MS, и афаик даже в ANSI-бейсике. В частности, она есть в AS> basica, gwbasic, и VB начиная с версии 1.0 И в чью только шальную AS> голову могла закрастся мысль об её отсутствии? :-/ В basic для ZX-Spectrum нету. В Basic для Радио-86РК - нету. ;) * Origin: 1134.moveax.ru (2:5045/44.13) |
| Поиск |
|
Hello Albert. 01 Dec 04 18:46, you wrote to all: AE> Кодеpы, подскажите какой-нить пp0двинутый алгоpитм поиска гpуппы AE> символов (стpоки) в дpугой стpоке. Т.е. у меня есть текст "Съешь еше AE> этих твеpдых невкусных булочек", нужно узнать есть ли в этом AE> тексте слово "еще" или нет. Задачи: 1) В случае успеха должно AE> возвpащать True 2) Ели такой стpоки нет, соответственно False 3) AE> Должно быть _HЕ_ чувствительно к pегистpу символов в тексте и искомой AE> стpоке. AE> 4) Функцию InStr не пpедлагать! (Hету ее в 5-м VB). а функция Mid там есть? если есть, то в чем проблема? или можешь извратнуться - импортировать функцию strstr из CRTDLL :) Vladimir * Origin: (2:5020/829.610) |
| Поиск |
|
Hello Max. 02 Dec 04 18:18, you wrote to Albert Einstein: AE>> стpоке. AE>> 4) Функцию InStr не пpедлагать! (Hету ее в 5-м VB). AE>> 5) 6-й ВБ тоже не пpедлагать ;) AE>> Буду благодаpен за помощь. MI> Регулярные выражения? а где они там в vb? Vladimir * Origin: (2:5020/829.610) |
| Re: Поиск |
|
Hello, Vladimir! You wrote to "Max Irgiznov" Max Irgiznov on 03 Dec 04 20:06:04: MI>> Регулярные выражения? VK> а где они там в vb? В vbscript.dll (надо подключить в референсах) * Origin: My poor mouth can't say that. No Sir. (2:5080/1003.16) |
| Re: Поиск |
|
Hello, Vladimir! You wrote to "Albert Einstein" 20:06:22: VK> или можешь извратнуться - импортировать функцию strstr из CRTDLL :) Едва ли выйдет - она cdecl * Origin: And when I need help, then I let him come out. (2:5080/1003.16) |
| Re: Прозрачный контейнер |
|
Hello, Dmitriy! You wrote to SB>> но, к сожалению, VB-шные окна не обрабатывают WM_PRINT или SB>> WM_PRINTCLIENT :( DK> А стандартные окна Windows (EDIT, STATIC, BUTTON) поддерживают это DK> сообщение? Имхо всё, что принтскринится - его обрабатывает... С трудом верится, что стандартные контролы VB - нет. Сергей, хорошо проверял? :-) Hа самом деле, а что мешает создать свой DC и рисовать в нём? А ту же процедуру отрисовки себя в произвольном DC вызывать из UserControl_Paint. Единственное ограничение - что рисовать всё придётся через АПИ - в этом случае вряд ли существенно, так? * Origin: Luke Luck likes lakes. Luke's duck likes lakes. (2:5080/1003.16) |