Τρόπος κλήσης λειτουργίες με τη δέσμη ενεργειών ελέγχου

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

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

Περίληψη

Αυτό το άρθρο παρέχει δείγμα κώδικα για το στοιχείο ελέγχου δεσμών ενεργειών που παρουσιάζει διάφορες μεθόδους για την κλήση συναρτήσεων δέσμης ενεργειών της Visual Basic.

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

ΣΗΜΑΝΤΙΚΟ: Microsoft παρέχει παραδείγματα προγραμματισμού μόνο για επεξήγηση, χωρίς να παρέχει καμία εγγύηση, είτε σιωπηρή είτε ρητή, περιλαμβανομένων, ενδεικτικά, τις σιωπηρές εγγυήσεις εμπορευσιμότητας ή/και καταλληλότητας για συγκεκριμένο σκοπό. Αυτό το άρθρο προϋποθέτει ότι είστε εξοικειωμένοι με τη γλώσσα προγραμματισμού που παρουσιάζεται, καθώς και με τα εργαλεία που χρησιμοποιούνται για τη δημιουργία και τον εντοπισμό σφαλμάτων διαδικασιών.

Το στοιχείο ελέγχου της δέσμης ενεργειών μπορεί να φιλοξενήσει VBScript, JavaScript και οποιαδήποτε άλλη συμβατή γλώσσα δέσμης ενεργειών, έτσι ώστε οι χρήστες να δέσμης ενεργειών εφαρμογής σας με τρόπο παρόμοιο με τη χρήση της VBScript ή JavaScript για την παροχή πρόσθετης λειτουργικότητας για ιστοσελίδες.

Το ακόλουθο άρθρο της Γνωσιακής Βάσης της Microsoft περιγράφει τον τρόπο λήψης του στοιχείου ελέγχου της δέσμης ενεργειών:
184739: ΠΛΗΡΟΦΟΡΙΕΣ: θέση για την εξασφάλιση της δέσμης ενεργειών ελέγχου

Η δέσμη ενεργειών ελέγχου παρέχει τέσσερις μέθοδοι για την κλήση ρουτίνας και λειτουργιών δέσμης ενεργειών ρουτίνες:
  • Eval: Αξιολογεί μια παράσταση συμβολοσειράς κειμένου.
  • Εκτέλεση: Εκτελεί μια καθορισμένη διαδικασία Sub ή Function.
  • Εκτέλεση: Εκτελεί μια εντολή δέσμης ενεργειών.
  • Ως μια μέθοδο ενός αντικειμένου της λειτουργικής μονάδας.

Υπολογισμού

Η συνθήκη κλήσης είναι:
  Result = ScriptControl.Eval("some text expression")

				
Μπορείτε να χρησιμοποιήσετε αυτήν τη μέθοδο για να καλέσετε και οι δύο συναρτήσεις εγγενή δέσμης ενεργειών, καθώς και συναρτήσεις χρήστη. Ορίσματα της συνάρτησης μεταβιβάζονται ως τιμές κειμένου στο κείμενο της παράστασης και να είναι μόνιμη ή αποτελείται από μια μεταβλητή.

ΣΗΜΕΙΩΣΗ: Αυτή η μέθοδος δεν μπορεί να χρησιμοποιηθεί για την κλήση υπορουτινών.

Εκτέλεση

Η συνθήκη κλήσης είναι:
  Result = ScriptControl.Run("Name", arg1, arg2, ... argn)

				
Μπορείτε να χρησιμοποιήσετε αυτήν τη μέθοδο για να καλέσετε υπορουτίνες, στην οποία περίπτωση το αποτέλεσμα που επιστρέφεται είναι κενή και μπορείτε να χρησιμοποιήσετε το εναλλακτικό συνθήκη κλήσης για να αγνοήσετε το αποτέλεσμα επιστροφής:
  ScriptControl.Run "Name", arg1, arg2, ... argn

				
ΣΗΜΕΙΩΣΗ: Το όνομα είναι το όνομα του Sub ή Function και arg1... είναι προαιρετικό, ανάλογα με τη διαδικασία Sub ή Function εν argn.

Εκτέλεση

Η συνθήκη κλήσης είναι:
  ScriptControl.Execute "statement text"

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

Η μέθοδος λειτουργικής μονάδας

Η συνθήκη κλήσης είναι:
   Result = ScriptControl.Modules(modulename).functionname(arg1, arg2, ...)
   ScriptControl.Modules(modulename).subname arg1, arg2, ...
				

Η προεπιλεγμένη λειτουργική μονάδα έχει δοθεί στη σταθερά GlobalModule, όπως:
   Result = ScriptControl.Modules(GlobalModule).MyFunction(5)
   ScriptControl.Modules(GlobalModule).MySub 5, "A"
				

Για περισσότερες πληροφορίες σχετικά με τις λειτουργικές μονάδες ScriptControl, ανατρέξτε στο ακόλουθο άρθρο της Γνωσιακής Βάσης της Microsoft:
184745: Τρόπος χρήσης δέσμης ενεργειών ελέγχου μονάδες και οι συλλογές διαδικασιών

Παράδειγμα

  1. Στη Visual Basic, δημιουργήστε ένα νέο έργο. Φόρμα1 δημιουργείται από προεπιλογή.
  2. Κάντε κλικ στην επιλογή στοιχείων από το μενού ' έργο ' και στη συνέχεια επιλέξτε το πλαίσιο ελέγχου "Έλεγχος 1.0 δέσμης ενεργειών της Microsoft".
  3. Προσθήκη του στοιχείου ελέγχου της δέσμης ενεργειών (ScriptControl1), ένα πλαίσιο κειμένου (Text1) και ένα κουμπί εντολής (Command1) σε μια φόρμα. Ορίστε την ιδιότητα στο πλαίσιο κειμένου πολλών γραμμών σε True.
  4. Προσθέστε τον ακόλουθο κώδικα Φόρμα1:
          Private Sub Command1_Click()
            With ScriptControl1
              ' Set script language (VBScript is the default).
              .Language = "VBScript"
              ' Set UI interaction (TRUE is the default).
              .AllowUI = True
              ' Copy the script to the control.
              .AddCode Text1.Text
              ' Demonstrate the Eval method.
              Debug.Print .Eval("AddTwo(5,7)")
              ' Demonstrate the Run method both with and without return values.
              .Run "Hello", "Jane Doe"
              Debug.Print .Run("Hello", "James Smith")
              .Run "AddTwo", 4, 6
              Debug.Print .Run("AddTwo", 7, 8)
              ' Demonstrate the ExecuteStatement method.
              .ExecuteStatement "Hello ""Sue Smith"""
              .ExecuteStatement "AddTwo 9,18"
              .ExecuteStatement "MsgBox CStr(AddTwo(3,8))"
              .Modules(GlobalModule).Hello "Jane Doe"
              Dim oMod As Object
              Set oMod = .Modules(GlobalModule)
              Debug.Print oMod.AddTwo 12, 24
              Set oMod = Nothing
            End With
          End Sub
    
    						
  5. Εκτελέστε Φόρμα1 και ανοίξετε το παράθυρο "Εντοπισμός σφαλμάτων".
  6. Πληκτρολογήστε την ακόλουθη δέσμη ενεργειών στο πλαίσιο κειμένου:
          Sub Hello(YourName)
            MsgBox "Hello " & YourName
          End Sub
    
          Function AddTwo(X1, X2)
            AddTwo = X1 + X2
          End Function
    
    						
  7. Κάντε κλικ στο στοιχείο CommandButton.

    ΣΗΜΕΙΩΣΗ: Οι ακόλουθες δύο εντολές δεν παράγουν ένα αποτέλεσμα επειδή η λειτουργία επαναφοράς θα χαθεί και ο κωδικός εξόδου δεν το αποτέλεσμα με οποιαδήποτε άλλα μέσα, όπως μια καθολική μεταβλητή ή ένα πλαίσιο μηνύματος:
          .Run "AddTwo", 4, 6
          .ExecuteStatement "AddTwo 9,18"
    
    						

Αναφορές

Για πληροφορίες σχετικά με τη λήψη του στοιχείου ελέγχου της δέσμης ενεργειών, ανατρέξτε στο ακόλουθο άρθρο της Γνωσιακής Βάσης της Microsoft:
184739: ΠΛΗΡΟΦΟΡΙΕΣ: θέση για την εξασφάλιση της δέσμης ενεργειών ελέγχου

(c) Microsoft Corporation 1998, όλα τα δικαιώματα κάθε νόμιμου δικαιώματος.
ΕΙΣΦΟΡΕΣ με Malcolm Φρέιτας, Microsoft Corporation

Ιδιότητες

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

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

 

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