VBNet - Форум - Люди откликнитесь...

Вопрос: Люди откликнитесь... Добавлено: 22.10.04 21:52

Автор вопроса: Alexander

Короче мура такая пишу контрол, чтоб навсегда заткнуть тему !Ой да как же мне впихнуть иконку туды к часикам???!
ну все контрол работает все ништяк много нового доьавил все вылизал, но есть маленькая проблема точнее не одна:
проблема номер рас: как мне сделать через АПИ таймер с задаваемым интервалом
проблема номер два:
как мне считать время двойного нажатия мышью для активайии к примеру ярлыка
проблема номер три:
как мне скрыть ненужные строки в свойствах или наоборот:
вот код

Public Property Get TrayIcon() As Picture
    Set TrayIcon = TaskIco.Picture
End Property

Public Property Set TrayIcon(ByVal Logo As Picture)
    Set TaskIco.Picture = Logo
End Property

по другому не работает,
нужно

Public Property Get TrayIcon(Icon as Picture) As Picture
    Set TrayIcon = TaskIco.Picture
End Property

Public Property Set TrayIcon(ByVal Logo As Picture)
    Set TaskIco.Picture = Logo
End Property

под Icon подразумевается путь к иконке или объект.

та же мура с кодом:

Public Interval As Integer

можно задать в окне properties
но нельзя задать так
TrayIcon1.Interval 500

если поможете будет просто круто
контрол даже сейчас в сыром и глючном виде
дает фору всем известным мне контролам,
писал же для себя.
кстати пишу его уже третий месяц.

ЗЫ.

ну плз откликнитесь это конечно не пускание соплей в скатерть, но я же трудился и хочу добить зтого зверя.

ЗЗЫ.

пива не обешаю, зато контрол будет свободноходящим исходником без всяких линков на автора, пока без всяких.
Ответить

Ответы Всего ответов: 11

Номер ответа: 1 Автор ответа: Александр Разработчик Offline Client ICQ: 204034 Вопросов: 106 Ответов: 1919	Профиль \| \| #1	Добавлено: 23.10.04 14:41
	Скачай TrayControlEx с сайта там все неплохо реализовано... Но копирайты соблюдай!!!! Ответить

Номер ответа: 2 Автор ответа: Alexander Вопросов: 19 Ответов: 118	Профиль \| \| #2	Добавлено: 23.10.04 16:22
	когда поправиш процедуры, и добавиш функцию Click тогда скачаю, даже копирайты перебивать не буду. Ответить

Номер ответа: 3 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #3	Добавлено: 23.10.04 23:47
	Ну походу таймер на айпи моно в API Text Viewer надыбать, мне просто лень копаться... Скорость двойного нажатия, где-то в реестре, тоже лень искать, посмотри хелпы пореестру, там думаю найдёш Ответить

Номер ответа: 4 Автор ответа: Alexander Вопросов: 19 Ответов: 118	Профиль \| \| #4	Добавлено: 24.10.04 08:03
	2Hacker Ну ты хоть чет путное сказал, А где бессмертные мира сего? Ответить

Номер ответа: 5 Автор ответа: Александр Разработчик Offline Client ICQ: 204034 Вопросов: 106 Ответов: 1919	Профиль \| \| #5	Добавлено: 24.10.04 09:14
	Если тебе очень надо, то мог бы и разабраться... Ладно, говори мыло - седня напишу. Ответить

Номер ответа: 6 Автор ответа: cresta Вопросов: 117 Ответов: 1538	Профиль \| \| #6	Добавлено: 24.10.04 09:21
	GetDoubleClickTime The GetDoubleClickTime function retrieves the current double-click time for the mouse. A double-click is a series of two clicks of the mouse button, the second occurring within a specified time after the first. The double-click time is the maximum number of milliseconds that may occur between the first and second click of a double-click. Вот это в форме: Private Sub Form_Load() MsgBox GetDoubleClickTime & " ms" SetTimer Me.hwnd, 0, 1000, AddressOf TimerProc End Sub Private Sub Form_Unload(Cancel As Integer) KillTimer Me.hwnd, 0 End Sub А это в модуле: Declare Function GetDoubleClickTime Lib "user32" Alias "GetDoubleClickTime" () As Long Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long Sub TimerProc(ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) Beep End Sub Ответить

Номер ответа: 7 Автор ответа: Alexander Вопросов: 19 Ответов: 118	Профиль \| \| #7	Добавлено: 24.10.04 18:30
	Заметано, мыльце вот Mailto:tranzistori@mail.ru Ответить

Номер ответа: 8 Автор ответа: Александр Разработчик Offline Client ICQ: 204034 Вопросов: 106 Ответов: 1919	Профиль \| \| #8	Добавлено: 25.10.04 08:38
	Забыл про тебя. Щас напишу и вышлю по возможности. Ответить

Номер ответа: 9 Автор ответа: Alexander Вопросов: 19 Ответов: 118	Профиль \| \| #9	Добавлено: 26.10.04 18:22
	Чета не принял перепиши ка на malex8@mail.ru Ответить

Номер ответа: 10 Автор ответа: Alexander Вопросов: 19 Ответов: 118	Профиль \| \| #10	Добавлено: 26.10.04 18:24
	сорри malex88@mail.ru Ответить

Номер ответа: 11 Автор ответа: Александр Разработчик Offline Client ICQ: 204034 Вопросов: 106 Ответов: 1919	Профиль \| \| #11	Добавлено: 26.10.04 18:44
	да я и не слал... ) блин, память как у столетнего старика... ( высылаю. Ответить

Страница: 1 |