Обсуждение программирования на Visual Basic в конференции ru.visual.basic
Выpубить/пеpезагpузить комп? |
Привет, Alexander! AA> Есть ещё способы сделать сабж? Пpимеp из Faq'a не pаботает. Пpи любом AA> вызове пpосто завеpшает сеанс. Для win2k и winxp 100% работает : dim OpSysSet, obj Set OpSysSet = GetObject("winmgmts:{impersonationLevel=impersonate," & _ "(Shutdown)}//./root/cimv2").ExecQuery _ ("SELECT * FROM Win32_OperatingSystem" & _ " WHERE Primary=true") For Each obj In OpSysSet obj.Win32Shutdown(8) Next -+= biZZon =+- You must die, I'm alone the best! You most dei, I'm alone the best! * Origin: UPFR, avtomat (2:5003/7.59) |
Re: отдавать MouseDown |
From: "A. Skrobov" Hello, Roman! You wrote in conference fido7.ru.visual.basic to "Dima Grinenko" 2004 03:07:17 +0400: DG>> Hе мучайся, пользуйся когда хочешь и где хочешь DG>> Public Type POINTAPI DG>> x As Long DG>> y As Long DG>> End Type DG>> Public Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" DG>> (lpPoint As POINTAPI) As Long RY> Ой мы сирые убогие. Как все просто... RY> Всего-то и осталось - определить координаты текущего окна, ширину RY> границ, высоту границ, высоту окна заголовка, координаты контрола, RY> бордюр контрола. Вместо того, чтобы вытащить руки из задницы. Просто на заметку: Declare Function ClientToScreen Lib "user32" (ByVal hWnd As Long, lpPoint As POINTAPI) As Long Declare Function ScreenToClient Lib "user32" (ByVal hWnd As Long, lpPoint As POINTAPI) As Long With best regards, A. Skrobov. E-mail: tyomitch [@] r66.ru -- * Origin: Talk.Mail.Ru (2:5020/400) |
отдавать MouseDown |
Как заставить отдавать MouseDown на два клика? Т.е. если два быстрых клика, 1й раз срабатывает MouseDown, во второй раз - DblClick. У DblClick нет отдачи нужных мне X и Y. Как отловить все клики? * Origin: 1134 (2:5045/44.13) |
Бег. стpока |
-==¬ ¦ L=============================================================== /*_¦¦¦_*/ *Andrei* пишет тебе */Aleksey/* [@] (2:4626/77.8) 29 Апр 04 15:06, _Andrei Fomenko_ *писал* /Terekhin Alexandr/: AF> Коpоче, есть ентот самый OCX (как к пpоектy подлкючать их AF> знаешь?), есть к немy хэлпа. И есть пpимеpы ня Дельфятине-7 и AF> есстественно эхотаге!! Могy кинyть. (~250КБ) Сейчас yточню, можно ли AF> сюда ююки кидать. AF> Вобщем жди, а я побежал за pазpешением к модеpy. Если нет -- AF> то сообщy в эхy и вышлю всем желающим в мыло. кинь плиз Ещё спишемся ... _Andrei_ */!/* ¦ г=============================================================== L==-... Тадаааа * Origin: Купи собаку (2:4626/77.8) |
Re: отдавать MouseDown |
From: "A. Skrobov" Hello, Roman! You wrote in conference fido7.ru.visual.basic to "All" +0400: RY> Т.е. если два быстрых клика, 1й раз срабатывает MouseDown, во второй RY> раз - DblClick. У DblClick нет отдачи нужных мне X и Y. Как отловить RY> все клики? Запоминать X и Y в _MouseDown и проверять в _DblClick With best regards, A. Skrobov. E-mail: tyomitch [@] r66.ru -- * Origin: Talk.Mail.Ru (2:5020/400) |
отдавать MouseDown |
RY>> Т.е. если два быстрых клика, 1й раз срабатывает MouseDown, во RY>> второй раз - DblClick. У DblClick нет отдачи нужных мне X и Y. RY>> Как отловить все клики? AS> Запоминать X и Y в _MouseDown и проверять в _DblClick А факт, что они совпадут в 100% случаев? Если у пользователя слоу спид оф дблклик, он успеет перевести мышь и кликнуть в другом месте. В любом случае спасибо, пойду проверять. * Origin: 1134 (2:5045/44.13) |
Re: Save |
> _ЗЫ: До Hового Года осталось 243 дней 5840 часов 350432 минут 21025952 > секунд_ ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ты б хоть или поствил -- З повагою, Тарас Ремез, 2:467/129 [@] fidonet.org [Hенька Украiна] || Linux Debian 3.0.0 || [Team Таiрово] Зараз слухаю: Lacrimosa - Das Schweigen * Origin: Anarchy (2:467/129) |
Re: Работа функций Win32Api под XP |
U> Скажите, будут ли работать функции из Win32Api на машине, на которой стоит U> ХР? Интересуют функции работы с реестром: RegCreateKey,RegQueryValueEx. Если будешь юзать под админом, то все равно откуда запускать. В принципе все также как и в NT/2k. * Origin: WinPoint 95 (2:5030/1450.6) |
Re: отдавать MouseDown |
From: "A. Skrobov" Mon May 03 2004 00:45, Dima Grinenko wrote to Roman Yuakovlev: RY>> Как заставить отдавать MouseDown на два клика? RY>> Т.е. если два быстpых клика, 1й pаз сpабатывает MouseDown, во втоpой pаз RY>> - DblClick. У DblClick нет отдачи нужных мне X и Y. Как отловить все RY>> клики? DG> Hе мучайся, пользуйся когда хочешь и где хочешь Ерунда, когда он будет обрабатывать событие, мышь уже может быть совсем в другом месте. Так что мой способ не хуже, хотя проще. * Origin: FidoNet Online (2:5020/175.2) |
Re: Пароль на БД |
AP> Привет , All! AP> Hикто не кинет мне примерчик открытия БД с установленным на ней паролем AP> через DAO, ADO, RDO? В смысле интересует больше строка в программе, где AP> нужно указать паролью Заодно не помешал бы полноценный пример поиска AP> записи в таблице через ADO. Какая БД? * Origin: WinPoint 95 (2:5030/1450.6) |