Teď jste offline a čekáte, až se znova připojí internet.

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

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
Tento článek byl archivován. Je nabízen v takovém stavu, v jakém je, a nebude již nadále aktualizován.
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
Zásobník systému

Upozornění: Tento článek je přeložený automaticky

Vlastnosti

ID článku: 149276 - Poslední kontrola: 02/28/2014 22:03:50 - Revize: 3.1

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

  • kbnosurvey kbarchive kbmt kbapi kbhowto KB149276 KbMtcs
Váš názor