Модераторы: Akina

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> В systray, Help Me! 
:(
    Опции темы
Loquacious
Дата 16.4.2003, 16:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 252
Регистрация: 29.3.2003

Репутация: нет
Всего: нет
Trojan Lord, поддерживаю!


--------------------
is dead
PM MAIL   Вверх
Step
Дата 16.4.2003, 19:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Экс. модератор
Сообщений: 5151
Регистрация: 26.9.2002
Где: дурдом.UA

Репутация: нет
Всего: 25
ладно не будем спорить, каждый хвалит свое болото.



хатя я во многих болотах перебывал и выбрал для себя лучшее


--------------------
- Дурак учится на своих ошибках, умный на чужих.
 - умные учатся у дураков
PM MAIL ICQ   Вверх
Trojan Lord
Дата 17.4.2003, 16:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 38
Регистрация: 4.4.2003

Репутация: нет
Всего: нет
2 Step - логика в голове ...... или я не прав ?
PM MAIL ICQ   Вверх
Step
Дата 17.4.2003, 16:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Экс. модератор
Сообщений: 5151
Регистрация: 26.9.2002
Где: дурдом.UA

Репутация: нет
Всего: 25
прав, но еще есть логика языка, так вот в с++ она на самом высоком уровне...
паскаль и тот уродский


--------------------
- Дурак учится на своих ошибках, умный на чужих.
 - умные учатся у дураков
PM MAIL ICQ   Вверх
Loquacious
Дата 27.4.2003, 06:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 252
Регистрация: 29.3.2003

Репутация: нет
Всего: нет
млин... я офигеваю.. тема ободном создана... а общение пошло по другой теме , тоесть обсирание!

• Да к стате во поводу того кода сверху.... не фига не смог разобраться!

• Если что не так поправте, но мне кажется что он закрывает окно и потом его опять открывает, но при этом операция которая совершается в этом окне тоже закрывается... выключается....

• мне енто нужно для сервера ЧАТА! он всегда должен работать...


--------------------
is dead
PM MAIL   Вверх
Shekspir
  Дата 27.6.2003, 10:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 192
Регистрация: 22.6.2003

Репутация: нет
Всего: нет
hehe.gif
Тебе функции Winapi нужны, а точнее та самая, шелнотифиикон :
Код

Private Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias " Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long

--------------------
Убить Билла 1, 2, 95, 98, 98SE, 2000, ME, XP....
PM MAIL ICQ   Вверх
Shekspir
Дата 27.6.2003, 11:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 192
Регистрация: 22.6.2003

Репутация: нет
Всего: нет
hehe.gif
Вот ещё примерчик откопал

Код

Private Const nim_add = &H0
Private Const nim_delete = &H2
Private Const nim_modify = &H1
Private Const nif_icon = &H2
Private Const nif_message = &H1
Private Const nif_tip = &H4
Private Const wm_mousemove = &H200
'=====================================
Private Declare Function shell_notifyicon Lib "shell32.dll" Alias "shell_notifyiconA" (ByVal dwmessage As Long, lpdata As notifyicondata) As Long
'==========
Private Type notifyicondata
   cbsize As Long
   hwnd As Long
   uid As Long
   uflags As Long
   ucallbackmessage As Long
   hicon As Long
   sztip As String * 64
End Type
Private icondata As notifyicondata
Private isvisible As Boolean
'===============================================
Public Sub place(wnd As Long, icon As Long, Optional tip As Variant, Optional message As Variant)
  Dim icondata As notifyicondata
   If Visible Then Exit Sub
   With icondata
       .hwnd = wnd
       .hicon = icon
       If Not IsMissing(tip) Then .sztip = tip + Chr$(0)
       If Not IsMissing(message) Then .ucallbackmessage = message
       End With
   isvisible = shell_notifyicon(nim_add, icondata) <> 0
End Sub
'==================================================
Public Sub remove()
   If Not isvisible Then Exit Sub
   isvisible = shell_notifyicon(nim_delete, icondata) <> 0
End Sub
'=============================================
Private Sub class_initialise()
   isvisible = False
   With icondata
       .cbsize = 88
       .uid = 1
       .uflags = nif_icon Or nif_message Or nif_tip
       .ucallbackmessage = wm_mousemove
       .sztip = Chr(0)
       End With
End Sub
'============================================
Private Sub class_terminate()
   remove
End Sub

End Sub


в форме нужно указать:

Код
Public sti as systrayicon



Метод place вызовем так:

Код
Mainform.sti.place.hwnd, mainform.icon, "hello world"




--------------------
Убить Билла 1, 2, 95, 98, 98SE, 2000, ME, XP....
PM MAIL ICQ   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1102 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.