Τρόπος χρήσης του συστήματος κασέτα απευθείας από τη Visual Basic

Μεταφράσεις άρθρων Μεταφράσεις άρθρων
Αναγν. άρθρου: 176085 - Δείτε τα προϊόντα στα οποία αναφέρεται το συγκεκριμένο άρθρο.
Ανάπτυξη όλων | Σύμπτυξη όλων

Σε αυτήν τη σελίδα

Περίληψη

Αυτό το άρθρο επιδεικνύει τον τρόπο να αξιοποιήσετε πλήρως την κασέτα συστήματος των Windows ή περιοχή ειδοποιήσεων στη γραμμή εργασιών, χρησιμοποιώντας τη Visual Basic. Τοποθετεί ένα εικονίδιο της επιλογής σας στην περιοχή ειδοποιήσεων γραμμής εργασιών που θα εμφανίζει μια επεξήγηση εργαλείου της επιλογής σας, όταν το ποντίκι είναι rested επάνω του, θα γίνει επαναφορά της εφαρμογής, όταν κάνετε κλικ σε αυτό και θα εμφανιστεί ένα αναδυόμενο μενού όταν right-clicked. Πρόκειται για όλες τις πιθανές εξαιτίας της Visual Basic ικανότητα χειρισμού απευθείας τις επιστροφές κλήσης, επομένως αξιοποίηση πλήρη της συνάρτησης Shell_NotifyIcon που εξάγεται από το αρχείο Shell32.dll.

Περισσότερες πληροφορίες

Στο παρακάτω παράδειγμα, μπορούν να προστεθούν σε οποιαδήποτε Visual Basic Project που έχει τουλάχιστον μια φόρμα και μια τυπική λειτουργική μονάδα.

Παράδειγμα βήμα προς βήμα

  1. Προσθέστε τον ακόλουθο κώδικα στην ενότητα "δηλώσεις" από μια τυπική λειτουργική μονάδα στο έργο σας:
          '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. Προσθέστε τον ακόλουθο κώδικα σε οποιαδήποτε μορφή στο έργο σας που θέλετε να απαντήσετε εικονιδίου κασέτα συστήματος ή στο εικονίδιο ειδοποίησης, για την εφαρμογή σας:
          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. Κάντε τις ακόλουθες ρυθμίσεις ιδιότητας της ίδιας φόρμας στο οποίο έχετε προσθέσει τον παραπάνω κώδικα:
       Property         Required Setting for Taskbar Notification Area example
       -----------------------------------------------------------------------
       Icon           = The icon you want to appear in the system tray.
       Minbutton      = True
       ShownInTaskbar = False
    					
  4. Προσθέστε τα παρακάτω στοιχεία μενού στην ίδια φόρμα, χρησιμοποιώντας το πρόγραμμα επεξεργασίας μενού:
       Caption      Name          Enabled   Visible   Position
       ---------------------------------------------------------
       &SysTray     mPopupSys      True      False    Main Level
       &Restore     mPopRestore    True      True     Inset one
       &Exit        mPopExit       True      True     Inset one
    					
Μπορείτε να προσθέσετε επιπλέον μενού στοιχείων όπως απαιτείται.

Ευέλικτος περιοχή ειδοποιήσεων της γραμμής εργασιών

Μπορείτε να τροποποιήσετε τη συμβουλή εργαλείου που εμφανίζεται επάνω από την ειδοποίηση για το εικονίδιο, αλλάζοντας την ακόλουθη γραμμή στη διαδικασία Form_Load:
   .szTip = "Your ToolTip" & vbNullChar
				
Αντικατάσταση "Της συμβουλής εργαλείου" με το κείμενο που θέλετε να εμφανίζεται.

Μπορείτε να αλλάξετε το εικονίδιο που εμφανίζεται στην περιοχή ειδοποιήσεων στη γραμμή εργασιών, αλλάζοντας την ακόλουθη γραμμή στη διαδικασία Form_Load:
   .hIcon = Me.Icon
				
Αντικατάσταση Me.Icon με οποιαδήποτε εικονίδια στο έργο σας.

Μπορείτε να αλλάξετε τις ρυθμίσεις της περιοχής ειδοποιήσεων της γραμμής εργασιών ανά πάσα στιγμή μετά τη χρήση της σταθεράς NIM_ADD, επανάληψη αντιστοίχισης των τιμών στη μεταβλητή nid και, στη συνέχεια, χρησιμοποιώντας την εξής παραλλαγή η κλήση Shell_NotifyIcon API:
   Shell_NotifyIcon NIM_MODIFY, nid.
				
Ωστόσο, εάν θέλετε μια διαφορετική φόρμα για να λάβετε την επιστροφή κλήσης, τότε θα πρέπει να διαγράψετε πρώτα το τρέχον εικονίδιο χρησιμοποιώντας "NIM_Delete Shell_NotifyIcon, nid", όπως η συνάρτηση NIM_Modify δεν αποδέχεται μια νέα hWnd ή θα πρέπει να προσθέσετε το systray για τη νέα φόρμα χρησιμοποιώντας ένα άλλο εικονίδιο "Shell_NotifyIcon NIM_ADD, nid" αφού refilling τον τύπο nid με τις νέες φόρμες hWnd. Μπορείτε επίσης να δηλώσετε ξεχωριστά αντίγραφα του τύπου nid για κάθε φόρμα που θέλετε να εμφανίσετε ένα εικονίδιο για με την κασέτα συστήματος των Windows και να τις αλλάξετε σε κάθε φόρμα της ενεργοποίησης συμβάντων χρησιμοποιώντας την ακολουθία NIM_DELETE και NIM_ADD.

Αναφορές

Για περισσότερες πληροφορίες σχετικά με με την κασέτα συστήματος ή με την περιοχή ειδοποιήσεων στη γραμμή εργασιών από τη Visual Basic 4.0 ή προηγούμενη έκδοση, κάντε κλικ στον αριθμό του άρθρου παρακάτω για να προβάλετε το άρθρο της Γνωσιακής Βάσης της Microsoft:
149276Τρόπος χρήσης των εικονιδίων με τα Windows 95/98/Me γραμμής εργασιών περιοχής ειδοποιήσεων

Ιδιότητες

Αναγν. άρθρου: 176085 - Τελευταία αναθεώρηση: Σάββατο, 18 Δεκεμβρίου 2010 - Αναθεώρηση: 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
Λέξεις-κλειδιά: 
kbbug kbhowto kbmt KB176085 KbMtel
Μηχανικά μεταφρασμένο
ΣΗΜΑΝΤΙΚΟ: Αυτό το άρθρο είναι προϊόν λογισμικού μηχανικής μετάφρασης της Microsoft και όχι ανθρώπινης μετάφρασης. Η Microsoft σάς προσφέρει άρθρα που είναι προϊόντα ανθρώπινης αλλά και μηχανικής μετάφρασης έτσι ώστε να έχετε πρόσβαση σε όλα τα άρθρα της Γνωσιακής Βάσης μας στη δική σας γλώσσα. Ωστόσο, ένα άρθρο που έχει προκύψει από μηχανική μετάφραση δεν είναι πάντα άριστης ποιότητας. Ενδέχεται να περιέχει λεξιλογικά, συντακτικά ή γραμματικά λάθη, όπως ακριβώς τα λάθη που θα έκανε ένας μη φυσικός ομιλητής επιχειρώντας να μιλήσει τη γλώσσα σας. Η Microsoft δεν φέρει καμία ευθύνη για τυχόν ανακρίβειες, σφάλματα ή ζημίες που προκύψουν λόγω τυχόν παρερμηνειών στη μετάφραση του περιεχομένου ή χρήσης του από τους πελάτες της. Επίσης, η Microsoft πραγματοποιεί συχνά ενημερώσεις στο λογισμικό μηχανικής μετάφρασης.
Η αγγλική έκδοση αυτού του άρθρου είναι η ακόλουθη:176085

Αποστολή σχολίων

 

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