Снова ТРЕЙ

[Akella]

Привет бртья по форуму ну и по разуму значит. А теперь серёзно. КАК запихать свою прогу в трей, НЕ ИКОНКУ ПРОГИ, А чтобы она показывала (Язык, FPS, ...).

[_Мика_]

Привет бртья по форуму ну и по разуму значит. А теперь серёзно. КАК запихать свою прогу в трей, НЕ ИКОНКУ ПРОГИ, А чтобы она показывала (Язык, FPS, ...).

Ето как это так? Где показывала? В трее? Ну если я рпавельно понял, то надо взять какаю нибудь иконку и в рантайме рисовать на ней все что надо, и потом пихать её в трей!

[Akella]

надо , так типа виндовая язуковая панель

[Sebas]

тоже самое

[Ramzes]

Насколько я понял ему надо форму в трй засунуть.

Это к A.A.Z он долго с этим мучился, и поиском по форуму

[A.A.Z.]

Не, это не ко мне, он не хочет форму в трэй запихивать
Вот, держи:

Код: Выделить всё

'Предполагается, что на диске С: имеются файлы RUSSIAN.ICO и ENGLISH.ICO с русской и английской иконками соответственно.

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 Const NIF_MESSAGE As Long = &H1
Private Const NIF_ICON As Long = &H2
Private Const NIF_TIP As Long = &H4
Private Const NIM_ADD As Long = &H0
Private Const NIM_MODIFY As Long = &H1
Private Const NIM_DELETE  As Long = &H2
Private Const WM_RBUTTONDOWN As Long = &H204
Private Const WM_NULL As Long = &H0
Private Const KL_NAMELENGTH As Long = &H9

Private Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function GetKeyboardLayoutName Lib "user32" Alias "GetKeyboardLayoutNameA" (ByVal pwszKLID As String) As Long

Private NID As NOTIFYICONDATA, m_hWnd&, m_Icon&, m_ToolTipText$, Language As Boolean
Private WithEvents Timer1 As Timer

Private Sub Add(ByVal hWnd&, ByVal Icon&, ByVal Tip$)
Dim ret&
NID.uID = hWnd
NID.hWnd = hWnd
NID.hIcon = Icon
NID.szTip = Left(Tip, 63) & Chr(0)
NID.uFlags = NIF_TIP Or NIF_ICON
NID.cbSize = Len(NID)
ret = Shell_NotifyIcon(NIM_ADD, NID)
End Sub

Private Sub Delete(ByVal hWnd&)
Dim ret&
NID.uID = hWnd
NID.hWnd = hWnd
NID.cbSize = Len(NID)
ret = Shell_NotifyIcon(NIM_DELETE, NID)
End Sub

Private Sub Change(ByVal hWnd&, ByVal Icon&, ByVal Tip$)
Dim ret&
NID.uID = hWnd
NID.hWnd = hWnd
NID.hIcon = Icon
NID.szTip = Left(Tip, 63) & Chr(0)
NID.uFlags = NIF_TIP Or NIF_ICON
NID.cbSize = Len(NID)
ret = Shell_NotifyIcon(NIM_MODIFY, NID)
End Sub

Private Function GetKBLayout() As Boolean
Dim str$
str = String(KL_NAMELENGTH, 0)
GetKeyboardLayoutName str
If Val(str) = 409 Then GetKBLayout = False Else GetKBLayout = True
End Function

Private Sub Form_Load()
Set Timer1 = Me.Controls.Add("VB.Timer", "Timer1")
Timer1.Interval = 1
Timer1.Enabled = True
Add Me.hWnd, LoadPicture(IIf(GetKBLayout, "C:\RUSSIAN.ICO", "C:\ENGLISH.ICO")), IIf(Language, "Russian", "English")
End Sub

Private Sub Form_Unload(Cancel%)
Delete Me.hWnd
End Sub

Private Sub Timer1_Timer()
If Not (GetKBLayout And Language) Then
Language = GetKBLayout
Change Me.hWnd, LoadPicture(IIf(Language, "C:\RUSSIAN.ICO", "C:\ENGLISH.ICO")), IIf(Language, "Russian", "English")
End If
End Sub

[Ramzes]

Не, это не ко мне, он не хочет форму в трэй запихивать

Ну помог ему все равно ты, значит к тебе

[Akella]

Наверно мне надо именно форму в трей, ибо надо поместить туда счетчик 0~200,300.

[Ramzes]

Не, это не ко мне, он не хочет форму в трэй запихивать

ГЫ всет таки надо, и все равно к тебе

[Amed]

Наверно мне надо именно форму в трей, ибо надо поместить туда счетчик 0~200,300.

Не-а... В таком случае надо генерировать иконки. С формой будет море проблем...

[Ramzes]

Наверно мне надо именно форму в трей, ибо надо поместить туда счетчик 0~200,300.

Не-а... В таком случае надо генерировать иконки. С формой будет море проблем...

Это ж сколько иконок надо генерировать

[Amed]

Генерировать "на лету", а не вручную. В каждый момент времени программе будет "сопоставлена" только одна иконка.

Если я правильно понял и автору нужны относительно простые, единообразные иконки (цифры 0-9, буквы А-Я (A-Z)), которые можно легко нарисовать простым алгоритмом.

[Ramzes]

Может скажешь что это за алгоритм такой, а то я не знаю

[Akella]

внатуре Amed ЕТО ЧТО за такой алгоритм. постоянно картинки делать?

[Amed]

Всё примитивно просто, пишу сразу примерный порядок действий:

а) рисуем во временном picturebox'е (32х32 или 16х16) всё, что нужно (скажем, fps):

Код: Выделить всё

picTemp.Print fps


б) сохраняем файл картинки в иконку:

Код: Выделить всё

picTemp.picture=picTemp.image
SavePicture picTemp.Picture, "C:\tmp.ico"
'ещё нужно поменять в выходном файле 2 первых байта, кажется (savepicture сохраняет в bmp, а ico от bmp отличается первыми 2 байтами, см. форум)


в) пользуем код A.A.Z.

Что ещё надо-то? Где проблемы?

[Ramzes]

а ico от bmp отличается первыми 2 байтами, см. форум)
Что ещё надо-то? Где проблемы?

Форум большой где именно смотреть?

[Amed]

Тут

А для тех, кому лень искать самому , всё тут:
а) http://bbs.vbstreets.ru/viewtopic.php?t=9376
б) http://vbrussian.com/Examples.asp?ID=99

[A.A.Z.]

2 Amed: в ICO есть прозрачность
ЗЫ А вот вторая ссылка - что надо...

[Amed]

A.A.Z., ну да, я знаю, плавал

Даже в первой ссылке в посте Тёмыча чёрным по белому написано:

Совершенно точно нет - в ICO есть ещё и маска.

Кстати, ведь можно и без маски прозрачности ico сделать, ничего особенно плохого не произойдёт. Максимум - будет некрасиво, нет?

[A.A.Z.]

Дык этот максимум все и портит

[Amed]

Ну, значит, роемся в корзине с грязным бельём в поисках формата ico. Или смотрим сцылку №2 (только для профессионалов)

[A.A.Z.]

Наоборот, грязное белье - для профов, а остальное - для остальных

[tyomitch]

Эй, кому объяснить формат .ico?
Всё тут - ftp://cs.usu.edu.ru/util/IcoCur/prjIcoCur.txt
Пример (там, правда, просмотр, но разница небольшая) - ftp://cs.usu.edu.ru/util/IcoCur/