Visual Basic 6.0 - Как обнаружить процесс
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." <gribkov [@] ramon.vsi.ru>
> 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 [@] p20.f36.n5051.z2.fidonet.org>to
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"
Einstein [@] p204.f8.n4624.z2.fidonet.org>to Albert Einstein on 03 Dec 04
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 <Sergey Broudkov>to Sergey Broudkov on 03 Dec 04 10:18:50:
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)