Kullanım simgeleri ile Windows 95/98/Me görev çubuğu bildirim alanında nasıl

Makale çevirileri Makale çevirileri
Makale numarası: 149276 - Bu makalenin geçerli olduğu ürünleri görün.
Bu makale arşivlenmiştir. "Olduğu gibi" sunulmaktadır ve bundan sonra güncelleştirilmeyecektir.
Hepsini aç | Hepsini kapa

Bu Sayfada

Özet

Windows API eklemek, değiştirmek ve görev çubuğu bildirim alanı, Windows 95, Windows 98, Windows Me, Windows NT 4.0 ve Windows 2000 Kabuk kullanılabilir veya sistem tepsisi simgeleri kaldırma olanağı sağlar. Bu işlev yalnızca Shell32.dll tarafından verilen Shell_NotifyIcon işlevi kullanılarak sağlanabilir. Bu API işlevi, bir metin dizesi, kullanıcı fare işaretçisini simgenin üzerinde durakladığında görüntülenen araç ipucu belirtme olanağı da sağlar. Bu makaledeki hakkında adım adım örnek gösterilmiştir bu API işlevi kullanmak bir Visual Basic programı oluşturur.

Görev çubuğu bildirim alanında simge tıklatıldığında bazı eylemler gerçekleştirmeniz özelliği, bir geri arama işlevini bağlıdır. Visual Basic 4.0 geri çağrı işlevleri doğrudan desteklemediğinden, form göstermek için yalnızca Visual Basic 4.0 kullanılarak bazı kod yürütmesine yolu yoktur. Bu işlevsellik, (Visual Basic 5.0 ve sonraki sürümlerinde) eklenmiş olan birlikte AddressOf işleci. Ileti Blaster OCX Bruce McKinney'nın rehberi Hardcore Visual Basic ayrıntılı geri OLE sunucu veya bu makalenin "Başvurular" bölümünde açıklanan Microsoft Systems Journal makalede adı geçen OCX dahil olmak üzere, geri arama işlevleri sağlayan bir Visual Basic 4.0 geliştiriciler için çeşitli seçenekler kullanılabilir. Bu seçenekler hakkında daha fazla bilgi için "Başvurular" bölümüne bakın. Bu ürünler, Visual Basic eklemeyin, çünkü Microsoft Ürün Destek Hizmetleri, kullanılmasını desteklemez.

Daha fazla bilgi

Aşağıdaki örnekte gösterilmiştir Shell_NotifyIcon API işlevi kullanmak bir form bir Visual Basic projesi oluşturur.

Adım adım örnek

  1. Visual Basic başlatın. Varsayılan olarak, Form1 oluşturulur.
  2. Görev çubuğu bildirim alanında görüntülenen simgeyi formun simgesini özelliğini değiştirin.
  3. Üç CommandButtons form üzerine çizin.
  4. Bir tek bir kod modülü, projeye eklemek için Ekle menüsünden bir modül seçin.
  5. Işlev, türü ve sabit bildirimlerini, Module1 için oluşan aşağıdaki kodu ekleyin:
          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. Aşağıdaki kod, NOTIFYICONDATA türü için ayarlanması gereken bir parametre bir işlevdir ve bu türde bir değişken döndürür. Form1'e ekleyin:
          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. Üç yordamlar bu kod bloğunu ekleyin, değiştirin ve görev çubuğu bildirim alanı simgeleri kaldırmak için 5. adımda oluşturduğunuz işlevini çağırın. Bu kod Form1'e de ekleyin:
          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. F5 tuşuna basın veya bu uygulamayı çalıştırmak için Run menüsünden Başlat'ı seçin. Ilk düğmeyi tıklatın ve simge eklemek için bir metin dizesi girin. Varolan bir simge ve simge silmek için üçüncü değiştirmek için ikinci düğmesini tıklatın.

Referanslar

Hardcore Visual Basic Bruce McKinney, Microsoft Press 1995.

Microsoft Win32 SDK Shell_NotifyIcon ve NOTIFYICONDATA.

Microsoft Sistem günlüğü, Şubat 1996 The Visual Programmer sayfa 93.

Soru ve Visual Basic Programmer's Journal'da, Mart 1996, CEVAP, <a1>Sayfa</a1> 136.

Ek bilgi için, Microsoft Bilgi Bankası'ndaki makaleyi görüntülemek üzere aşağıdaki makale numarasını tıklatın:
162613Visual Basic ile sistem tepsisindeki simgeler nas?l

Özellikler

Makale numarası: 149276 - Last Review: 22 Şubat 2014 Cumartesi - Gözden geçirme: 3.1
Bu makaledeki bilginin uygulandığı durum:
  • 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
Anahtar Kelimeler: 
kbnosurvey kbarchive kbmt kbapi kbhowto KB149276 KbMttr
Machine-translated Article
ÖNEMLİ: Bu makale, bir kişi tarafından çevrilmek yerine, Microsoft makine-çevirisi yazılımı ile çevrilmiştir. Microsoft size hem kişiler tarafından çevrilmiş, hem de makine-çevrisi ile çevrilmiş makaleler sunar. Böylelikle, bilgi bankamızdaki tüm makalelere, kendi dilinizde ulaşmış olursunuz. Bununla birlikte, makine tarafından çevrilmiş makaleler mükemmel değildir. Bir yabancının sizin dilinizde konuşurken yapabileceği hatalar gibi, makale; kelime dağarcığı, söz dizim kuralları veya dil bilgisi açısından yanlışlar içerebilir. Microsoft, içeriğin yanlış çevrimi veya onun müşteri tarafından kullanımından doğan; kusur, hata veya zarardan sorumlu değildir. Microsoft ayrıca makine çevirisi yazılımını sıkça güncellemektedir.
Makalenin İngilizcesi aşağıdaki gibidir:149276

Geri Bildirim Ver

 

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