Jak používat ikony s Windows 95/98/ME panel oznamovací oblasti

Překlady článku Překlady článku
ID článku: 149276 - Produkty, které se vztahují k tomuto článku.
Tento článek byl archivován. Je nabízen v takovém stavu, v jakém je, a nebude již nadále aktualizován.
Rozbalit všechny záložky | Minimalizovat všechny záložky

Na této stránce

Souhrn

Rozhraní API Windows poskytuje možnost přidat, upravit a odebrat ikony hlavním panelu nebo panel oznamovací oblasti, k dispozici v Windows 95, Windows 98, Windows ME, Windows NT 4.0 a Windows 2000 prostředí. Tato funkce může být poskytnut pouze Shell_NotifyIcon funkce, která je exportován Shell32.dll. Tato funkce API poskytuje také možnost zadat textový řetězec popisku, který se zobrazí, když uživatel pozastaví s ukazatelem myši přes ikonu. Podrobný příklad v tomto článku vytvoří program jazyka, který demonstruje použití této funkce API.

Schopnost provádět některé akce, pokud jste klepli na ikonu v oznamovací oblasti hlavního panelu závisí na funkci zpětného volání. Protože 4.0 jazyka přímo nepodporuje funkce zpětného volání, je způsob, jak zobrazit formuláře nebo spustit některé kód pomocí výhradně 4.0 jazyka. Tato funkce byla přidána v Visual Basic 5.0 (a vyšší) s přidaným AddressOf operátor. Číslo možnosti jsou k dispozici vývojářům jazyka 4.0 poskytující funkce zpětného volání, včetně OCX Blaster zpráv OCX uvedené v článku deník systémy Microsoft uvedeno v tomto článku nebo Callback OLE serveru, které podrobně v Bruce McKinney knize Hardcore jazyka "Odkazy". Další informace o kterékoli z těchto možností naleznete v části "Odkazy". Protože tyto produkty neobsahují jazyka, nepodporuje technické podpory společnosti jejich použití.

Další informace

Následující příklad vytvoří projekt jazyka jeden formulář, který ukazuje, jak použít funkce API Shell_NotifyIcon.

Podrobný příklad

  1. Spustit jazyka. Jako výchozí je vytvořen formulář Form1.
  2. Změnit ikonu vlastnost formuláře, která má být zobrazena v oznamovací oblasti hlavního panelu ikona.
  3. Nakreslete tři CommandButtons do formuláře.
  4. V nabídce Vložit do projektu přidat jeden kód modul vyberte modul.
  5. Přidejte následující kód sestávající z funkce, typ a konstantní deklarací k Module1:
          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
    
          Global Const NIM_ADD = 0
          Global Const NIM_MODIFY = 1
          Global Const NIM_DELETE = 2
          Global Const NIF_MESSAGE = 1
          Global Const NIF_ICON = 2
          Global Const NIF_TIP = 4
    
          Declare Function Shell_NotifyIconA Lib "SHELL32" _
          (ByVal dwMessage As Long,  lpData As NOTIFYICONDATA) As Integer
    					
  6. Následující kód je funkce nutné nastavit pro typ NOTIFYICONDATA parametry a vrátí proměnné tohoto typu. Přidat Form1:
          Private Function setNOTIFYICONDATA(hWnd As Long, ID As Long, _
              Flags As Long, CallbackMessage As Long, Icon As Long, _
              Tip As String) As NOTIFYICONDATA
    
              Dim nidTemp As NOTIFYICONDATA
    
              nidTemp.cbSize = Len(nidTemp)
              nidTemp.hWnd = hWnd
              nidTemp.uID = ID
              nidTemp.uFlags = Flags
              nidTemp.uCallbackMessage = CallbackMessage
              nidTemp.hIcon = Icon
              nidTemp.szTip = Tip & Chr$(0)
    
              setNOTIFYICONDATA = nidTemp
          End Function
    					
  7. Tři postupy v tomto bloku kódu volání funkce vytvořené v kroku 5 přidat, upravit a odebrat ikony v oznamovací oblasti hlavního panelu. Přidat tento kód Form1 také:
          Private Sub Command1_Click()
              'Add an icon.  This procedure uses the icon specified in
              'the Icon property of Form1. This can be modified as desired.
    
              Dim i As Integer
              Dim s As String
              Dim nid As NOTIFYICONDATA
    
              s = InputBox("Enter string:")
              nid = setNOTIFYICONDATA(hWnd:=Form1.hWnd, _
                                      ID:=vbNull, _
                                      Flags:=NIF_MESSAGE Or NIF_ICON _
                                      Or NIF_TIP, _
                                      CallbackMessage:=vbNull, _
                                      Icon:=Form1.Icon, _
                                      Tip:=s)
    
                 i = Shell_NotifyIconA(NIM_ADD, nid)
             End Sub
    
             Private Sub Command2_Click()
                 'Modify an existing icon. This procedure uses the icon
                 'specified in the Icon property of Form1. This can be modified
                 'as desired.
    
                 Dim i As Integer
                 Dim s As String
                 Dim nid As NOTIFYICONDATA
    
                 s = InputBox("Enter string:")
                 nid = setNOTIFYICONDATA(hWnd:=Form1.hWnd, _
                                         ID:=vbNull, _
                                         Flags:=NIF_MESSAGE Or NIF_ICON _
                                         Or NIF_TIP, _
                                         CallbackMessage:=vbNull, _
                                         Icon:=Form1.Icon, _
                                         Tip:=s)
    
                 i = Shell_NotifyIconA(NIM_MODIFY, nid)
             End Sub
    
             Private Sub Command3_Click()
                 'Delete an existing icon.
    
                 Dim i As Integer
                 Dim nid As NOTIFYICONDATA
    
              nid = setNOTIFYICONDATA(hWnd:=Form1.hWnd, _
                                      ID:=vbNull, _
                                      Flags:=NIF_MESSAGE Or NIF_ICON _
                                      Or NIF_TIP, _
                                      CallbackMessage:=vbNull, _
                                      Icon:=Form1.Icon, _
                                      Tip:="")
    
              i = Shell_NotifyIconA(NIM_DELETE, nid)
          End Sub
    					
  8. Stisknutím klávesy F5 nebo Start vyberte z nabídky spuštění pro spuštění aplikace. Klepněte na první tlačítko a zadejte textový řetězec, chcete-li přidat ikonu. Druhé tlačítko Upravit existující ikonu a třetí odstranit ikonu.

Odkazy

Hardcore jazyka, Bruce McKinney Microsoft Press 1995.

Microsoft Win32 SDK Shell_NotifyIcon a NOTIFYICONDATA.

Deník systémy Microsoft, únor 1996 the programátora Visual stránky 93.

Dotazů a odpovědí Programmer jazyka deník března 1996 k, stránku 136.

Další informace naleznete v následujícím článku znalostní báze Microsoft Knowledge Base:
162613Jak zpracování ikony v hlavním panelu s jazyka

Vlastnosti

ID článku: 149276 - Poslední aktualizace: 28. února 2014 - Revize: 3.1
Informace v tomto článku jsou určeny pro produkt:
  • Microsoft Visual Basic 4.0 Standard Edition
  • Microsoft Visual Basic 4.0 Professional Edition
  • Microsoft Visual Basic 4.0 32-Bit Enterprise Edition
  • Microsoft Visual Basic 5.0 Learning Edition
  • Microsoft Visual Basic 6.0 Learning Edition
  • Microsoft Visual Basic 5.0 Professional Edition
  • Microsoft Visual Basic 6.0 Professional Edition
  • Microsoft Visual Basic 5.0 Enterprise Edition
  • Microsoft Visual Basic Enterprise Edition for Windows 6.0
Klíčová slova: 
kbnosurvey kbarchive kbmt kbapi kbhowto KB149276 KbMtcs
Strojově přeložený článek
Důležité: Tento článek byl přeložen pomocí software společnosti Microsoft na strojový překlad, ne profesionálním překladatelem. Společnost Microsoft nabízí jak články přeložené překladatelem, tak články přeložené pomocí software na strojový překlad, takže všechny články ve Znalostní databázi (Knowledge Base) jsou dostupné v češtině. Překlad pomocí software na strojový překlad ale není bohužel vždy dokonalý. Obsahuje chyby ve skloňování slov, skladbě vět, nebo gramatice, podobně jako když cizinci dělají chyby při mluvení v češtině. Společnost Microsoft není právně zodpovědná za nepřesnosti, chyby nebo škody vzniklé chybami v překladu, nebo při použití nepřesně přeložených instrukcí v článku zákazníkem. Společnost Microsoft aktualizuje software na strojový překlad, aby byl počet chyb omezen na minimum.
Projděte si také anglickou verzi článku:149276

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com