Ako používať systémovom priamo z programu Visual Basic

DÔLEŽITÉ: Tento článok bol preložený pomocou softvéru na strojový preklad od spoločnosti Microsoft, nie prekladateľom. Spoločnosť Microsoft ponúka články preložené prekladateľmi aj strojovo preložené články, vďaka čomu máte možnosť prístupu ku všetkým článkom databázy Knowledge Base vo svojom jazyku. Strojovo preložený článok však nie je vždy perfektný. Môže obsahovať chyby týkajúce sa slovnej zásoby, syntaxe alebo gramatiky, podobne ako cudzinec môže robiť chyby, keď rozpráva vašim jazykom. Spoločnosť Microsoft nenesie zodpovednosť za akékoľvek nepresnosti, chyby alebo škody spôsobené akýmkoľvek nepresným prekladom obsahu alebo jeho použitím zo strany zákazníkov. Spoločnosť Microsoft softvér na strojový preklad pravidelne aktualizuje.

Pokiaľ chcete vidieť anglickú verziu článku, kliknite sem:176085
Tento článok bol archivovaný. Je publikovaný v aktuálnej podobe a už nebude aktualizovaný.
SUHRN
Tento článok ukazuje ako plne využiť Systému Windows zásobník alebo Taskbar Notification Area, pomocou jazyka Visual Basic. To umiestni ikonu podľa vášho výberu do oblasti oznámení panela úloh, ktoré bude Zobraziť ToolTip podľa vášho výberu, keď myš je odpočinul nad ním, obnoví uplatňovanie keď klikli a zobrazí forgot keď klikol pravým tlačidlom myši. Je to všetko možné kvôli schopnosť Visual Basic priamo spracovávať spätné volania, preto plne využiť funkciu Shell_NotifyIcon že je vyvezený Shell32.dll.
DALSIE INFORMACIE
V nasledujúcom príklade môžu byť pridané do akéhokoľvek jazyka Visual Basic Projekt, ktorý má aspoň jeden formulár a štandardný modul.

Podrobný príklad

  1. Pridať nasledujúci kód do sekcie vyhlásenia Štandardný modul v svojom projekte:
          'user defined type required by Shell_NotifyIcon API call      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      'constants required by Shell_NotifyIcon API call:      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      Public Const WM_MOUSEMOVE = &H200      Public Const WM_LBUTTONDOWN = &H201     'Button down      Public Const WM_LBUTTONUP = &H202       'Button up      Public Const WM_LBUTTONDBLCLK = &H203   'Double-click      Public Const WM_RBUTTONDOWN = &H204     'Button down      Public Const WM_RBUTTONUP = &H205       'Button up      Public Const WM_RBUTTONDBLCLK = &H206   'Double-click      Public Declare Function SetForegroundWindow Lib "user32" _      (ByVal hwnd As Long) As Long      Public Declare Function Shell_NotifyIcon Lib "shell32" _      Alias "Shell_NotifyIconA" _      (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean      Public nid As NOTIFYICONDATA					
  2. Pridať nasledovné kód žiadnej forme v projekte odpovedaním na Ikona systémového pozadia alebo ikona upozornenia pre vaše Aplikácia:
          Private Sub Form_Load()       'the form must be fully visible before calling Shell_NotifyIcon       Me.Show       Me.Refresh       With nid        .cbSize = Len(nid)        .hwnd = Me.hwnd        .uId = vbNull        .uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE        .uCallBackMessage = WM_MOUSEMOVE        .hIcon = Me.Icon        .szTip = "Your ToolTip" & vbNullChar       End With       Shell_NotifyIcon NIM_ADD, nid      End Sub      Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)      'this procedure receives the callbacks from the System Tray icon.      Dim Result As Long      Dim msg As Long       'the value of X will vary depending upon the scalemode setting       If Me.ScaleMode = vbPixels Then        msg = X       Else        msg = X / Screen.TwipsPerPixelX       End If       Select Case msg        Case WM_LBUTTONUP        '514 restore form window         Me.WindowState = vbNormal         Result = SetForegroundWindow(Me.hwnd)         Me.Show        Case WM_LBUTTONDBLCLK    '515 restore form window         Me.WindowState = vbNormal         Result = SetForegroundWindow(Me.hwnd)         Me.Show        Case WM_RBUTTONUP        '517 display popup menu         Result = SetForegroundWindow(Me.hwnd)         Me.PopupMenu Me.mPopupSys       End Select      End Sub      Private Sub Form_Resize()       'this is necessary to assure that the minimized window is hidden       If Me.WindowState = vbMinimized Then Me.Hide      End Sub      Private Sub Form_Unload(Cancel As Integer)       'this removes the icon from the system tray       Shell_NotifyIcon NIM_DELETE, nid      End Sub      Private Sub mPopExit_Click()       'called when user clicks the popup menu Exit command       Unload Me      End Sub      Private Sub mPopRestore_Click()       'called when the user clicks the popup menu Restore command       Dim Result As Long       Me.WindowState = vbNormal       Result = SetForegroundWindow(Me.hwnd)       Me.Show      End Sub					
  3. Urobiť nasledujúcimi nastaveniami vlastností na rovnakej forme ktoré ste pridali vyššie uvedeného kódu:
       Property         Required Setting for Taskbar Notification Area example   -----------------------------------------------------------------------   Icon           = The icon you want to appear in the system tray.   Minbutton      = True   ShownInTaskbar = False					
  4. Pridať nasledujúce položky Menu na rovnakej forme pomocou Menu Editor:
       Caption      Name          Enabled   Visible   Position   ---------------------------------------------------------   &SysTray     mPopupSys      True      False    Main Level   &Restore     mPopRestore    True      True     Inset one   &Exit        mPopExit       True      True     Inset one					
Podľa potreby môžete pridať ďalšie položky.

Úloh oznámenia oblasti flexibilitu

Môžete upraviť názov tlačidla, zobrazenú nad oznámenia ikona zmenou nasledujúci riadok v Form_Load postupu:
   .szTip = "Your ToolTip" & vbNullChar				
"Your ToolTip" nahraďte text, ktorý chcete zobraziť.

Môžete zmeniť ikonu, zobrazenú v oblasti oznámení panela úloh podľa zmena nasledujúci riadok v Form_Load postupu:
   .hIcon = Me.Icon				
Nahradiť Me.Icon ikony v projekte.

Môžete zmeniť žiadne nastavenia Taskbar Notification Area kedykoľvek po použití NIM_ADD konštanta pridelenie hodnoty v premennej nid a potom pomocou Táto zmena Shell_NotifyIcon API hovor:
   Shell_NotifyIcon NIM_MODIFY, nid.				
Avšak, ak chcete inú formu prijímať volania, potom budú musieť najskôr odstráňte súčasná ikona pomocou „Shell_NotifyIcon NIM_Delete, nid"ako funkcia NIM_Modify neprijme nové Hwnd, alebo budete musieť pridať inú ikonu systray pre nový formulár pomocou "Shell_NotifyIcon NIM_ADD, nid"po dopĺňanie nid typu s novým tvorí Hwnd. Môžete tiež vyhlásiť samostatné kópie nid typu pre každý formulár, ktorý chcete zobraziť ikonu v systémovej lište Windows a ich zmeniť v každej forme aktivovať udalosti pomocou postupnosť NIM_DELETE a NIM_ADD.
ODKAZY
Ďalšie informácie týkajúce sa pomocou oblasti oznámení panela úloh z Visual Basic 4.0 alebo staršej systémovom alebo po kliknutí na nasledovné číslo článku databázy Microsoft Knowledge Base:
149276Ako používať ikony s Windows 95/98/Me oblasti oznámení panela úloh
Panel úloh

Upozornenie: Tento článok bol preložený automaticky.

Vlastnosti

ID článku: 176085 – Posledná kontrola: 12/05/2015 08:09:13 – Revízia: 2.0

Microsoft Visual Basic 6.0 Professional Edition, Microsoft Visual Basic Control Creation Edition, Microsoft Visual Basic 5.0 Learning Edition, Microsoft Visual Basic 5.0 Professional Edition, Microsoft Visual Basic 5.0 Enterprise Edition

  • kbnosurvey kbarchive kbbug kbhowto kbmt KB176085 KbMtsk
Pripomienky