ACC2000: Παράδειγμα χρήση μιας διαδικασίας επιστροφής κλήσης με πλαίσια

Αναγν. άρθρου: 209887 - Δείτε τα προϊόντα στα οποία αναφέρεται το συγκεκριμένο άρθρο.
Μηχανικά μεταφρασμένοΠΡΟΕΙΔΟΠΟΙΗΣΗ: ΑΥΤΟ ΤΟ ΑΡΘΡΟ ΜΕΤΑΦΡΑΣΤΗΚΕ ΜΕ ΜΗΧΑΝΙΚΗ ΜΕΤΑΦΡΑΣΗ
Για προχωρημένους: Απαιτεί ειδικό κωδικοποίησης, διαλειτουργικότητας και ικανότητες πολλών χρηστών.

Αυτό το άρθρο αφορά μια βάση δεδομένων της Microsoft Access (.mdb) και ένα έργο της Microsoft Access (.adp).

Ανάπτυξη όλων | Σύμπτυξη όλων

Περίληψη

Αυτό το άρθρο περιγράφει τον τρόπο χρήσης τουΕπιστροφή κλήσηςη ιδιότητα του ενόςΜπαλόνιΓια να προσδιορίσετε ποια ελέγχου πλαίσια έναν επιλεγμένο χρήστη ή ποια ετικέτα ή κουμπί κάνει κλικ ο χρήστης, το αντικείμενο και στη συνέχεια να απαντήσετε σε αυτήν την επιλογή.

ΣΗΜΕΙΩΣΗ: Αυτό το άρθρο περιγράφει μια τεχνική επιδεικνύεται στο δείγμα αρχείου, FrmSmp00.mdb. Για πληροφορίες σχετικά με τον τρόπο απόκτησης αυτού του δείγματος αρχείου, ανατρέξτε στο ακόλουθο άρθρο της Γνωσιακής Βάσης της Microsoft:
233324
(http://support.microsoft.com/kb/233324/EN-US/ )
ACC2000: Microsoft Access 2000 δείγματος βάσης φόρμες δεδομένων είναι διαθέσιμη στο Κέντρο λήψης
Η Microsoft παρέχει παραδείγματα προγραμματισμού μόνο για λόγους επεξήγησης, χωρίς να παρέχει καμία εγγύηση, σιωπηρή ή ρητή. Σε αυτά περιλαμβάνονται, ενδεικτικά, οι σιωπηρές εγγυήσεις εμπορευσιμότητας ή/και καταλληλότητας για συγκεκριμένο σκοπό. Αυτό το άρθρο προϋποθέτει ότι είστε εξοικειωμένοι με τη γλώσσα προγραμματισμού που παρουσιάζεται, καθώς και με τα εργαλεία που χρησιμοποιούνται για τη δημιουργία και τον εντοπισμό σφαλμάτων κώδικα διαδικασιών. Οι μηχανικοί υποστήριξης της Microsoft μπορούν να σας εξηγήσουν τη λειτουργικότητα μιας συγκεκριμένης διαδικασίας, αλλά δεν θα τροποποιήσουν αυτά τα παραδείγματα, για να παράσχουν πρόσθετες λειτουργίες, ούτε θα δημιουργήσουν διαδικασίες, για να καλύψουν τις συγκεκριμένες απαιτήσεις σας.
Επιστροφή στην αρχή | Αποστολή σχολίων

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

Ένα πλαίσιο είναι η περιοχή όπου το Βοηθό του Microsoft Office εμφανίζει τις επικεφαλίδες και το κείμενο, παρόμοια με ένα πλαίσιο μηνύματος. Επιπρόσθετα με τις επικεφαλίδες και το κείμενο, ένα πλαίσιο μπορεί να περιέχουν άλλους τύπους στοιχείων ελέγχου, όπως πλαίσια ελέγχου, κουμπιά και ετικέτες, τα οποία είναι παρόμοια με τα κουμπιά επιλογής.

Για να προσδιορίσετε ποια ετικέτα ή κουμπί ένας χρήστης κάνει κλικ ή ποιες ελέγχου πλαίσια ένας χρήστης επιλέξει σε ένα πλαίσιο, πρέπει να δημιουργήσετε μια διαδικασία επιστροφής κλήσης και ορίστε τοΕπιστροφή κλήσηςη ιδιότητα στο πλαίσιο για το όνομα της διαδικασίας αυτής. Μια διαδικασία επιστροφής κλήσης είναι μια διαδικασία που εκτελείται κάθε φορά που εμφανίζεται ένα μπαλόνι μη αποκλειστική.

Για να εμφανίσετε ένα πλαίσιο με πολλά κουμπιά, ετικέτες και πλαίσια ελέγχου, ακολουθήστε τα εξής βήματα:
  1. Δημιουργία μιας λειτουργικής μονάδας και πληκτρολογήστε την ακόλουθη γραμμή στην ενότητα "δηλώσεις":
    Option Explicit
  2. Στο διακομιστήΕργαλείαμενού, κάντε κλικ στο κουμπίΑναφορές, και στη συνέχεια κάντε κλικ στο κουμπίΒιβλιοθήκη αντικειμένων Microsoft Office 9.0Για να το προσθέσετε ως σημείο αναφοράς. Εάν δεν μπορείτε να το δείτε στη λίστα, αναζητήστε τον σκληρό δίσκο για το αρχείο Mso9.dll.
  3. Πληκτρολογήστε την παρακάτω διαδικασία:
    Sub OpenBalloon()

   Dim offBalloon As Office.Balloon
   Set offBalloon = Application.Assistant.NewBalloon
   With offBalloon
      ' Show the Office Assistant.
      .Parent.Visible = True
      
      ' Set the heading and text of the balloon.
      .Heading = "Welcome to the Microsoft Office 97 Assistant!"
      .Text = "Click one or more of the check boxes below, and " _
           & "also click either a label or a button."
      
      ' Make the balloon modeless.
      .Mode = msoModeModeless
      
      ' Display the Back, Next, and Close Buttons.
      ' To determine the constants for other buttons you can place
      ' on a balloon, view the Microsoft Office 8.0 Object library
      ' in the Object Browser.
      .Button = msoButtonSetBackNextClose
      
      ' Display two check boxes.
      .Checkboxes(1).Text = "Checkbox 1"
      .Checkboxes(2).Text = "Checkbox 2"
      
      ' Display two labels.
      .Labels(1).Text = "Label 1"
      .Labels(2).Text = "Label 2"
      
      ' Define which Callback procedure to run.
      .Callback = "WhichButton"
      .Show
   End With

End Sub
  4. Ακολουθεί ένα παράδειγμα μιας διαδικασίας επιστροφής κλήσης που γράφονται για χρήση με τη διαδικασία που φαίνεται παραπάνω.

    Σημειώστε ότι η διαδικασία επιστροφής κλήσης δέχεται τρία ορίσματα:bln,iBtnANDiPriv. Όλες οι διαδικασίες της επιστροφής κλήσης που γράφετε για χρήση με τα πλαίσια πρέπει να αποδεχθείτε αυτά τα τρία ορίσματα. Το πρώτο όρισμαbln, ορίζει τοΜπαλόνιτο αντικείμενο που κλήθηκε από τη διαδικασία. Το δεύτερο όρισμα,iBtn, ορίζει την τιμή του κουμπιού ή της ετικέτας που έκανε κλικ ο χρήστης. Χρησιμοποιώντας τοiBtnτο όρισμα, μπορείτε να καθορίσετε ποιο κουμπί ή μια ετικέτα που έκανε κλικ ο χρήστης. Το τρίτο όρισμαiPriv, ορίζει την τιμή που προσδιορίζει το πλαίσιο που ονομάζεται η διαδικασία. Η διαφορά μεταξύ τουblnANDiPrivτα ορίσματα είναι ότι οι προγραμματιστές μπορούν να χρησιμοποιήσουν τοiPrivτο όρισμα για να προσδιορίζουν ποιες συννεφάκι κλήση στη διαδικασία. Αυτό επιτρέπει σε έναν προγραμματιστή για να γράψετε μια διαδικασία της επιστροφής κλήσης για χρήση με όλα τα πλαίσια, αντί να χρειάζεται να γράψετε μια ξεχωριστή διαδικασία επιστροφής κλήσης για κάθε πλαισίου.
  5. Πληκτρολογήστε την παρακάτω διαδικασία:
    Sub WhichButton(bln As Balloon, iBtn As Long, iPriv As Long)

   Dim cBox As Office.BalloonCheckbox
   bln.Close
   For Each cBox In bln.Checkboxes
      If cBox.Checked Then
         MsgBox "Selected " & cBox.Item
      End If
   Next
   Select Case iBtn
      Case 1
         MsgBox "Clicked Label 1"
      Case 2
         MsgBox "Clicked Label 2"
      Case msoBalloonButtonBack
         MsgBox "Clicked Back Button"
      Case msoBalloonButtonClose
         MsgBox "Clicked Close Button"
      Case msoBalloonButtonNext
         MsgBox "Clicked Next Button"
   End Select

End Sub
  6. Για να ελέγξετε αυτές τις διαδικασίες, πληκτρολογήστε την ακόλουθη γραμμή στο παράθυρο εντολών και κατόπιν πιέστε το πλήκτρο ENTER:
    OpenBalloon
    Σημειώστε ότι το Βοηθό του Microsoft Office εμφανίζεται με ένα νέο παράθυρο που περιέχει πολλαπλά πλαίσια ελέγχου, ετικέτες και κουμπιά.

    Κάντε κλικ σε ένα ή περισσότερα από τα πλαίσια ελέγχου και είτε ένα κουμπί ή μια ετικέτα. Σημειώστε ότι λαμβάνετε πλαίσια μηνύματος που δηλώνει τα πλαίσια ελέγχου που επιλέξατε και ποιο κουμπί ή μια ετικέτα που έχετε επιλέξει.
Επιστροφή στην αρχή | Αποστολή σχολίων

Αναφορές

Για περισσότερες πληροφορίες σχετικά με την ιδιότητα της επιστροφής κλήσης, στην επεξεργασία της Visual Basic, κάντε κλικ στο κουμπίΒοήθεια της Microsoft Visual BasicΣτο διακομιστήΒοήθεια (Help)μενού, πληκτρολογήστεΗ ιδιότητα επιστροφής κλήσηςο Βοηθός του Office ή της "Οδηγός απαντήσεων" και στη συνέχεια κάντε κλικΑναζήτησηΓια να προβάλετε το θέμα.
Επιστροφή στην αρχή | Αποστολή σχολίων

Ιδιότητες

Αναγν. άρθρου: 209887 - Τελευταία αναθεώρηση: Δευτέρα, 27 Σεπτεμβρίου 2010 - Αναθεώρηση: 2.0
Οι πληροφορίες σε αυτό το άρθρο ισχύουν για:
  • Microsoft Access 2000 Standard Edition
Λέξεις-κλειδιά: 
kbdta kbinfo kbofficeprog kbprogramming kbmt KB209887 KbMtel
Μηχανικά μεταφρασμένο
ΣΗΜΑΝΤΙΚΟ: Αυτό το άρθρο είναι προϊόν λογισμικού μηχανικής μετάφρασης της Microsoft και όχι ανθρώπινης μετάφρασης. Η Microsoft σάς προσφέρει άρθρα που είναι προϊόντα ανθρώπινης αλλά και μηχανικής μετάφρασης έτσι ώστε να έχετε πρόσβαση σε όλα τα άρθρα της Γνωσιακής Βάσης μας στη δική σας γλώσσα. Ωστόσο, ένα άρθρο που έχει προκύψει από μηχανική μετάφραση δεν είναι πάντα άριστης ποιότητας. Ενδέχεται να περιέχει λεξιλογικά, συντακτικά ή γραμματικά λάθη, όπως ακριβώς τα λάθη που θα έκανε ένας μη φυσικός ομιλητής επιχειρώντας να μιλήσει τη γλώσσα σας. Η Microsoft δεν φέρει καμία ευθύνη για τυχόν ανακρίβειες, σφάλματα ή ζημίες που προκύψουν λόγω τυχόν παρερμηνειών στη μετάφραση του περιεχομένου ή χρήσης του από τους πελάτες της. Επίσης, η Microsoft πραγματοποιεί συχνά ενημερώσεις στο λογισμικό μηχανικής μετάφρασης.
Η αγγλική έκδοση αυτού του άρθρου είναι η ακόλουθη:209887
(http://support.microsoft.com/kb/209887/en-us/ )
Επιστροφή στην αρχή | Αποστολή σχολίων

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

 
Επιστροφή στην αρχήΕπιστροφή στην αρχή