Народ, как сделать так что бы программка скидывалась в systemtray в иконку и тама работало меню , при нажатии на иконку правой миши..... Help Me ! очень нужно!

шелнотифиикон как то так, для бейсика точно не знаю, но ты поищи

Цитата

шелнотифиикон

А не по русски можно ?

shell_notifyicon or notifyicon

Step, Не фига, нету такого в BASIC

= ... HELP ME ХОТЬ КТО НИ БУДЬ ... =

= ... Что вы все такие злые! ... =
= ... хоть кто ни будь мне ответит?... =

Цитата(Loquacious @ 12.4.2003, 03:09)

Step, Не фига, нету такого в BASIC

короче эта функция из модуля, systray попробуй его подключить

Option Explicit

Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean

Private Const NIM_ADD = &H0
Private Const NIM_MODIFY = &H1
Private Const NIM_DELETE = &H2
Private Const WM_MOUSEMOVE = &H200
Private Const NIF_MESSAGE = &H1
Private Const NIF_ICON = &H2
Private Const NIF_TIP = &H4

Private Const WM_LBUTTONDBLCLK = &H203
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202
Private Const WM_RBUTTONDBLCLK = &H206
Private Const WM_RBUTTONDOWN = &H204
Private Const WM_RBUTTONUP = &H205

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

Dim theForm As NOTIFYICONDATA

Private Sub Command1_Click()
Me.Hide
End Sub


Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2

' запись размера структуры
theForm.cbSize = Len(theForm)

' Установка хедера иконки
theForm.hWnd = picNotifier.hWnd
theForm.hIcon = Me.Icon

theForm.uId = 1&

'Установка Флажков
'в данном случие показывать иконку,
' отображать TOOLTIP
' передовать события в форму
theForm.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE

'Источник событий мышка
theForm.ucallbackMessage = WM_MOUSEMOVE

'Строка тултипа
theForm.szTip = "ТЕСТ TOOLTIP" & Chr$(0)

Shell_NotifyIcon NIM_ADD, theForm
Me.Hide
App.TaskVisible = False

End Sub


Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
' We also need to remove it when the program
' is ended.

' Change theForm's cbSize to theForm's length.
theForm.cbSize = Len(theForm)

' Change theForm's hWnd to picNotifier's hWnd.
theForm.hWnd = picNotifier.hWnd

' Change theForm's uId to 1&.
theForm.uId = 1&

' Remove it from the TaskBar.
Shell_NotifyIcon NIM_DELETE, theForm

End Sub



Private Sub mnuPopMenuExit_Click()
Unload Me
End Sub

Private Sub mnuPopMenuShow_Click()
Me.Show
End Sub

Private Sub picNotifier_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Обработка событий
Static Rec As Boolean, Msg As Long
Msg = X / Screen.TwipsPerPixelX
If Rec = False Then ' Чтоб не повторять Запуск
Rec = True
Select Case Msg
'Если DoubleClick
Case WM_LBUTTONDBLCLK:
Me.Show
'Если левая Кнопка нажата
Case WM_LBUTTONDOWN:

'Если левая Кнопка Отжата
Case WM_LBUTTONUP:

'Правая кнопка Click
Case WM_RBUTTONDBLCLK:

'Если Правая Кнопка нажата
Case WM_RBUTTONDOWN:

'Если Правая Кнопка Отжата
Case WM_RBUTTONUP:
PopupMenu mnuPopMenu
End Select
Rec = False
End If

End Sub

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

кидать не стоит..... пригодится когда-нить

Trojan Lord
я имел ввиду основательно работать на нем, а так изредка даже удобно в офисе чето збацать, но как основной язые - это не то

2 Step
не важно на каком языке ты кодишь, гавное - алгоритм !

Trojan Lord вопрос в том где логика лучше, и где работать проще

Цитата

а вообще кидайте бейсик - слабый язык, и потдержка у него слабая

Step,не брошу... не брошу... реал... хоть и самый просто , но все же когда делать нечего.... помогает....

Trojan Lord, поддерживаю!

ладно не будем спорить, каждый хвалит свое болото.



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

2 Step - логика в голове ...... или я не прав ?

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

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

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

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

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

Тебе функции Winapi нужны, а точнее та самая, шелнотифиикон :

Код

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

Вот ещё примерчик откопал

Код

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"