Обсуждение программирования на Visual Basic в конференции ru.visual.basic
| событие, происходящее при наведении мыши на часы в трее |
|
RY>> именно у ЧАСОВ. DK> Мда, это плохо. Hасколько я помню, стандартными методами DK> (SetWindowLong) сабклассить окна чужих процессов нельзя. :( Это единственный способ перехватить появление там мыши? DK> Т.е. придется писать хук на сях (или воспользоваться уже готовым, DK> например, видел что-то подобное на vbrussian). ps. А нельзя ли сделать так - (a) определить местоположение часов в трее и их там наличие (b) определить, когда там появится мышка пока больше интересно А DK>>> А ты это хочешь сделать случаем не для показа своей всплывающей DK>>> подсказки? RY>> Ты будешь смеяться, но вот тут ты прав. ;) DK> Раз уж пошла такая пьянка, то можно вместо стандартного прямоугольника DK> воспользоваться balloon - тултипами а-ля офис из набора comctl. С ними DK> разбирался Аркадий Оловянников, кажется, на том же сайте был его DK> пример. доп. контролы не люблю черной ненавистью, квадратик и сам нарисую думаю... :) * Origin: 1134 (2:5045/44.13) |
| RVB.FAQ |
|
RY>> Как в vb работать с числами длиннее 14 знаков, именно как с RY>> числами, а не как single или double? DK> Double и Currency могут содержать целочисленное значение размером до DK> восьми байт; это где-то 20 символов. Правда, в коде константы типа DK> double почему-то ограничены в длине 14 символами; зато для Currency DK> такого ограничения нет (максимальное значение составляет DK> 922337203685477.5807 [@] ). да, currency я уже заюзал. а как работать с типом decmical - variant в упор не отображает более 14 цифр. [Visual Basic 5] RY>> А если серьезно, то я всегда говорил, что все беды в эхе от RY>> [голубка], а весь разум от тебя и еще некоторых. И поэтому когда RY>> ты его сменил на посту, эха стала... умнее, чтоли. ;) DK> Подхалим... :( Hе дождетесь! Просто почти 4 года тут сижу, и наконец-то вижу, что дела делаются так, что мне стало удобнее. А я люблю, когда мне становится удобнее. ps. Дима, all right$. ;-) * Origin: 1134 (2:5045/44.13) |
| Preloader |
|
AA>> Классически: показать фоpму еще до того, как начнутся длительные AA>> опеpации AA> Фоpма-то главная. Кто, что? Что не разрешает? Что сделать-то хочешь? * Origin: 1134 (2:5045/44.13) |
| смена обоев посредством эхотага |
|
Привет All! в реестре есть раздел HKEY_CURRENT_USER\Control Panel\Desktop в котором прописываются параметры рабочего стола и Wallpaper подскажите, как с ним работать что бы осуществить сабж. ссылки приветствуются. С уважением Vadim. WinAMP: Соседи вешаются под - Гpажданская обоpона - Всё идёт по плану * Origin: Hичего хорошего из тебя не выйдет... (2:5055/150.57) |
| событие, происходящее при наведении мыши на часы в трее |
|
RY>>>> Угу. Может где примеры есть использования? AS>>> Hа Русском_Проекте (rusproject.narod.ru) был пример замены часов AS>>> своими. Там находилось это окно (с классом TrayClockWClass) и AS>>> SetParent-ом запихивалось туда своё. RY>> О, спасибо! AS> Вот сэмпл "часики в трее", по мотивам Русского_Проекта, специально AS> для тебя: спасибо большое, но специально для меня хватило и указания где взять ;) AS> =========The end of the citation================ AS> Hадеюсь, оценишь мой посильный труд :-) AS> А примерами можешь закидывать, мне всегда приятно ;-) вотъ ;) ==== Option Explicit Dim OnClock As Boolean Dim OCTimer As Byte Private Type POINTAPI x As Long y As Long End Type Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Dim rctemp As RECT Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Private Declare Function GetWindowRect Lib "user32" (ByVal hWnd As Long, lpRect As RECT) As Long Private Sub Form_Load() Dim hWnd As Long hWnd = FindWindow("Shell_TrayWnd", vbNullString) hWnd = FindWindowEx(hWnd, 0, "TrayNotifyWnd", vbNullString) hWnd = FindWindowEx(hWnd, 0, "TrayClockWClass", vbNullString) GetWindowRect hWnd, rctemp End Sub Private Sub Timer1_Timer() OnClock = True Dim z As POINTAPI GetCursorPos z If z.x < rctemp.Left Or z.x > rctemp.Right Then OnClock = False If z.y < rctemp.Top Or z.y > rctemp.Bottom Then OnClock = False If OnClock = True Then OCTimer = OCTimer - 1 Else OCTimer = 3 'MsgBox "" End If If OCTimer = 0 Then MsgBox "": OCTimer = 3 End Sub ==== * Origin: 1134 (2:5045/44.13) |
| обработка метода post |
|
Как реализовать на visual basic обработку метода post от браузеров (хотя можно и get). т.е. есть .html Как поймать командные параметры, и в какой поток, и самое главное как, перенаправлять вывод? * Origin: 1134 (2:5045/44.13) |
| Re: Пользователи и паpоли |
|
From: Alexander Trishin Maxim Lanovoy wrote on Sat, 27 Mar 2004 18:59:52 +0300: > AT> Присылай свой system.mdw - я тебе расскажу все твои пароли, грамотей > AT> :) > Hу давай, грамотей, расскажи мне об этом пароле: > > > hash="urgr1W8cm1iSmQHJ/EfO5qpgWdwmnkj0qIbVdq4moEk="/> Попробуй прочитать о чем идет речь. О безопасности базы данных формата MS Access на уровни пользователей. Ты же заладил со своим SHA256. Странные люди :) -- AT * Origin: Demos online service (2:5020/400) |
| Password |
|
H!, _[A.]_! AS> Когда я писал такую пpогу, то писался в RunOnce пpи каждом запуске. AS> Пpоги из RunOnce гpузятся до шелла. Это ветка pеестpа винды так я понимаю. Пpописываю туда стpоковой паpаметp Project и значение c:\program\project1.exe. Пpи след. запуске мастдая, паpаметp уходит и ничего не запускается пpи этом. to All: Как убpать Пуск, окно Выполнить пpи Form1.WindowState=Maximized? g'bye and g'luck, _[A.]_! * Origin: Down/Upload Soft - [SVALKA.TK] (2:5054/29.33) |
| если кто не знает вышел 6й сервиспак на MS VS |
|
Приветствую в нашем подземелье, Alex ? Эхо подземелий донесло, что в Суббота Апрель 03 2004 20:17, Alex Antov писал Roman Yuakovlev: GR>>> адрес для скачивания английской версии GR>>> http://download.microsoft.com/download/1/9/f/19fe4660-5792-4683- GR>>> 99e0- RY>> Случаем не 1апрельская шутка? ;) злые вы - уйду я от вас :) RY>> ps. Если нет, то what's new для эхотага? да как всегда от MS мы вам все поправим и улучшим визуально только на заставке VB надпись поменялась с SP5 на SP6 а так описание в инсталяции достаточно большое - изменений в основном убивание всяких ошибок AA> Да вроде качается :) Сейчас инфу поищу на сайте мелкомягких.... а что там искать - выбираешь VB в разделе download и там сортируешь по времени Я взял бы частями, но мне нужно сразу. Genrih Rudenok. * Origin: Genrih Cool! (2:452/25.115) |
| Password |
|
From: "A. Skrobov" Sun Apr 04 2004 11:58, Alexander Abramencov wrote to A. Skrobov: AS>> Когда я писал такую пpогу, то писался в RunOnce пpи каждом запуске. AS>> Пpоги из RunOnce гpузятся до шелла. AA> Это ветка pеестpа винды так я понимаю. Пpописываю туда стpоковой паpаметp AA> Project и значение c:\program\project1.exe. Пpи след. запуске мастдая, AA> паpаметp уходит и ничего не запускается пpи этом. То, что уходит - это правильно, а если ничего не запускается, значит криво задал путь. _Совершенно_точно_ должно запускаться. AA> to All: Как убpать Пуск, окно Выполнить пpи Form1.WindowState=Maximized? Послать WM_CLOSE кнопке Пуск ;-) (Окно с классом Button, потомок окна с классом Shell_TrayWnd, как искать окно см. в теме про часики в трее) Только если реализуешь это через RunOnce, тогда и с кнопкой Пуск делать ничего не надо будет. * Origin: FidoNet Online (2:5020/175.2) |