title image


Smiley Re: Symbol in Taskleiste
Hallo Maik, hier ist das Listing, was Du benötigst!modul1.basPublic Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As LongGlobal Const NIF_MESSAGE = &H1Global Const NIF_ICON = &H2Global Const NIF_TIP = &H4Global Const WM_MOUSEMOVE = &H200Public Type NOTIFYICONDATA cbSize As Long hWnd As Long uID As Long uFlags As Long uCallbackMessage As Long hIcon As Long szTip As String * 64End TypeGlobal t As NOTIFYICONDATAGlobal Const NIM_ADD = &H0Global Const NIM_MODIFY = &H1Global Const NIM_DELETE = &H2Sub main()Load Form1Form1.ShowEnd Submodul1.bas EndePrivate Sub Form_Load() t.cbSize = Len(t) t.hWnd = Me.hWnd t.uID = 1& t.uFlags = NIF_MESSAGE Or NIF_ICON Or NIF_TIP t.uCallbackMessage = WM_MOUSEMOVE t.hIcon = Me.Icon t.szTip = "Klick rechte Maustaste" & Chr$(O) Shell_NotifyIcon NIM_ADD, t HideDein Programmcode, der ausgeführt werden sollEnd SubPrivate Sub mnuAn_Click() mnuAn.Checked = True mnuAus.Checked = False t.hIcon = Picture1(1).Picture t.szTip = "Hier nicht anklicken!" + Chr$(0) Shell_NotifyIcon NIM_MODIFY, t ShowEnd SubPrivate Sub form_mousemove(Button As Integer, Shift As Integer, x As Single, y As Single)If Hex(x) = "1E3C" ThenMe.PopupMenu MEN_VersuchEnd IfEnd SubPrivate Sub mnuAus_Click() mnuAn.Checked = False mnuAus.Checked = True t.hIcon = Picture1(0).Picture t.szTip = "Hier nicht anklicken!" + Chr$(0) Shell_NotifyIcon NIM_MODIFY, t HideEnd SubPrivate Sub mnuSchließen_Click() Shell_NotifyIcon NIM_DELETE, t EndEnd Subhave fun!

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: