Balloon tooltip

For at lave et program i nederste højre hjørne skal du igang med subclassing.

der er nogle gode tips til det på www.vbcodemagician.dk

//vbcoder

helt specifikt

http://www.vbcodemagician.dk/tips/system_systray.htm

//vbcoder

du kan også gøre det her

i et modul:
public Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean

Public 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

Public Const NIM_ADD = &H0
Public Const NIM_MODIFY = &H1
Public Const NIM_DELETE = &H2
Public Const NIF_MESSAGE = &H1
Public Const NIF_ICON = &H2
Public Const NIF_TIP = &H4

og i din form:

Private Sub GoSystemTray()

Dim sysTray As NOTIFYICONDATA

    sysTray.cbSize = Len(sysTray)
    sysTray.Hwnd = Me.Hwnd
    sysTray.uId = vbNull
    sysTray.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
    sysTray.ucallbackMessage = WM_MOUSEMOVE

    'icon
    sysTray.hIcon = Me.Icon
    'tooltiptext
    VBGTray.szTip = Me.Caption & vbNullChar

    Call Shell_NotifyIcon(NIM_ADD, sysTray)

'fjern applikationen fra taskbaren
    App.TaskVisible = False 
    Me.Hide

End Sub

Private Sub Form_Load()
GoSystemTray
End Sub

Håber du kan bruge det
loke

hmm... hvordan laver man så "Balloon tips"?

og Hvad er så lige "Balloon tips" ?????

Hvis du mener ToolTipsText
så er det her lille stykke.

'tooltiptext
  VBGTray.szTip = Me.Caption & vbNullChar

??????

http://tigerwebdesign.dk/e/balloon.gif dette er et balloon tip

Hvordan laver man en menu når man klikker på programmet i tastbaren`?

Tror der er noget her:
http://www.planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=68&lngWId=10

http://www.swissdelphicenter.ch/torry/showcode.php?id=1164

Det er til delphi, men tror ikke det er så svært at oversætte.

I modul:

Public Type NOTIFYICONDATA
  cbSize As Long
  hWnd As Long
  uID As Long
  uFlags As Long
  uCallbackMessage As Long
  hIcon As Long
  szTip As String * 128
  dwState As Long
  dwStateMask As Long
  szInfo As String * 256
  uTimeout As Long
  szInfoTitle As String * 64
  dwInfoFlags As Long
End Type

Public nf_IconData As NOTIFYICONDATA

Public Const NOTIFYICON_VERSION = 3
Public Const NOTIFYICON_OLDVERSION = 0

Public Const NIM_ADD = &H0
Public Const NIM_MODIFY = &H1
Public Const NIM_DELETE = &H2

Public Const NIM_SETFOCUS = &H3
Public Const NIM_SETVERSION = &H4

Public Const NIF_MESSAGE = &H1
Public Const NIF_ICON = &H2
Public Const NIF_TIP = &H4

Public Const NIF_STATE = &H8
Public Const NIF_INFO = &H10

Public Const NIS_HIDDEN = &H1
Public Const NIS_SHAREDICON = &H2

Public Const NIIF_NONE = &H0
Public Const NIIF_WARNING = &H2
Public Const NIIF_ERROR = &H3
Public Const NIIF_INFO = &H1
Public Const NIIF_GUID = &H4

Public Const WM_MOUSEMOVE = &H200
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_LBUTTONUP = &H202
Public Const WM_LBUTTONDBLCLK = &H203
Public Const WM_RBUTTONDOWN = &H204
Public Const WM_RBUTTONUP = &H205
Public Const WM_RBUTTONDBLCLK = &H206

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

her laver du Iconet til Taskbaren (systray)


With nf_IconData
        .cbSize = Len(nf_IconData)
        .hWnd = Me.Picture1.hWnd
        .uID = vbNull
        .uFlags = NIF_ICON Or NIF_INFO Or NIF_MESSAGE Or NIF_TIP
        .uCallbackMessage = WM_MOUSEMOVE
        .hIcon = Me.Picture1.Picture
        .szTip = "tiger_webdesign´s Ballon" & vbNullChar
        .dwState = 0
        .dwStateMask = 0
  End With

  Shell_NotifyIcon NIM_ADD, nf_IconData

her laver du Balloon tips Banditten.

With nf_IconData
        .cbSize = Len(nf_IconData)
        .hWnd = Me.Picture1.hWnd
        .uID = vbNull
        .uFlags = NIF_ICON Or NIF_INFO Or NIF_MESSAGE Or NIF_TIP
        .uCallbackMessage = WM_MOUSEMOVE
        .hIcon = Me.Picture1
        .szTip = "Balloon Maker" & vbNullChar
        .dwState = 0
        .dwStateMask = 0
        .szInfo = "Hallo tiger_webdesign" & Chr(0)
        .szInfoTitle = "Balloon Tip" & Chr(0)
        .dwInfoFlags = NIIF_INFO
        .uTimeout = 1000
  End With
 
  Shell_NotifyIcon NIM_MODIFY, nf_IconData

og denne sletter det

  Shell_NotifyIcon NIM_DELETE, nf_IconData

tak for svaret...