Gewusst wie: Aufrufen von Funktionen, die mit dem Skript-Steuerelement

SPRACHE AUSWÄHLEN SPRACHE AUSWÄHLEN
Artikel-ID: 184740 - Produkte anzeigen, auf die sich dieser Artikel bezieht
Alles erweitern | Alles schließen

Auf dieser Seite

Zusammenfassung

Dieser Artikel enthält Beispielcode für das Script-Steuerelement, das verschiedenen Methoden zum Aufrufen von Skriptfunktionen aus Visual Basic veranschaulicht.

Weitere Informationen

Hinweis: Microsoft bietet Programmierbeispiele für Abbildung nur ohne Gewährleistung oder konkludent, einschließlich, aber nicht beschränkt auf konkludenten Garantien der Handelsüblichkeit und/oder Eignung für einen bestimmten Zweck. Die zur Verfügung gestellten Makro- und Programmierungsbeispiele sollen lediglich exemplarisch die Funktionsweise des Beispiels aufzeigen.

Das Script-Steuerelement kann Host VBScript, JavaScript, und alle anderen kompatiblen Skriptsprache, damit die Benutzer Ihrer Anwendung auf ähnliche Weise zusätzliche Funktionen für Webseiten bereitzustellen mit VBScript oder JavaScript Skript können.

Im folgenden Artikel der Microsoft Knowledge Base beschreibt das Skript-Steuerelement abrufen:
184739: INFO: wo erhalten Sie das Script-Steuerelement

Das Script-Steuerelement bietet vier Methoden zum Aufrufen von Sub- und Function Routinen Skript:
  • Eval: Auswerten ein Ausdrucks Text.
  • Run: Führt benannte Sub oder Function.
  • Ausführen: Führt eine Skriptanweisung.
  • Als Methode des Module-Objekt.

Eval

Die Aufrufkonvention ist:
  Result = ScriptControl.Eval("some text expression")

				
können Sie diese Methode aufrufen beide Skriptfunktionen eingebaute sowie Benutzerfunktionen. Funktionsargumente können werden als Literale Werte im Ausdruck Text übergeben und werden hart codierte oder aus einer Variable verkettet.

Hinweis: Diese Methode kann nicht zum Aufrufen von Unterroutinen verwendet werden.

Ausführen

Die Aufrufkonvention ist:
  Result = ScriptControl.Run("Name", arg1, arg2, ... argn)

				
können Sie diese Methode aufrufen von Unterroutinen, in diesem Fall das zurückgegebene Ergebnis ist leer und es können alternative Aufrufkonvention um das Rückgabeergebnis ignorieren:
  ScriptControl.Run "Name", arg1, arg2, ... argn

				
Hinweis: Name ist der Name der Sub oder Function und arg1... Argn sind abhängig von der Sub oder Funktion fragliche optional.

Ausführen

Die Aufrufkonvention ist:
  ScriptControl.Execute "statement text"

				
dieser Methode können Sie jede systeminterne Anweisung aufrufen oder Sub-Routine. Können Sie diese auch zum Aufrufen von Funktionen verwenden, aber das Rückgabeergebnis wird gelöscht.

Modul-Methode

Die Aufrufkonvention ist:
   Result = ScriptControl.Modules(modulename).functionname(arg1, arg2, ...)
   ScriptControl.Modules(modulename).subname arg1, arg2, ...
				

Das Standard-Modul wird z. B. in der Konstante GlobalModule gegeben:
   Result = ScriptControl.Modules(GlobalModule).MyFunction(5)
   ScriptControl.Modules(GlobalModule).MySub 5, "A"
				

Weitere Informationen auf ScriptControl Module Bitte finden Sie unter den folgenden Artikel der Microsoft Knowledge Base:
184745: mit Skript Control Module und Prozeduren Auflistungen

Beispiel

  1. Erstellen Sie ein neues Projekt in Visual Basic. Form1 wird standardmäßig erstellt.
  2. Klicken Sie im Menü Projekt auf Komponenten, und aktivieren Sie das Kontrollkästchen "Microsoft Skript-Steuerelement 1.0".
  3. Fügen Sie der Skript-Steuerelement (ScriptControl1), ein Textfeld (Text1) und eine Befehlsschaltfläche (Command1), zu einem Formular. Legen Sie die MultiLine-Eigenschaft des Textfelds auf True fest.
  4. Fügen Sie Form1 folgenden Code hinzu:
          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. Führen Sie Form1, und öffnen Sie das Debug-Fenster.
  6. Geben Sie das folgende Skript im Textfeld:
          Sub Hello(YourName)
            MsgBox "Hello " & YourName
          End Sub
    
          Function AddTwo(X1, X2)
            AddTwo = X1 + X2
          End Function
    
    						
  7. Klicken Sie auf die Befehlsschaltfläche.

    Hinweis: Die folgenden beiden Anweisungen nicht erzeugen eine Ausgabe, da die Funktion verloren geht und der Code nicht das Ergebnis mit anderen Mitteln, z. B. einer globalen Variablen oder Nachricht ausgeben:
          .Run "AddTwo", 4, 6
          .ExecuteStatement "AddTwo 9,18"
    
    						

Informationsquellen

Informationen zum Beziehen des Skript-Steuerelements finden Sie unter den folgenden Artikel der Microsoft Knowledge Base:
184739: INFO: wo erhalten Sie das Script-Steuerelement

(c) 1998 Microsoft Corporation, alle Rechte vorbehalten.
Beiträge von Malcolm Stewart, Microsoft Corporation

Eigenschaften

Artikel-ID: 184740 - Geändert am: Donnerstag, 15. Juli 2004 - Version: 4.2
Die Informationen in diesem Artikel beziehen sich auf:
  • 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
  • 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 for Applications 5.0
Keywords: 
kbmt kbhowto KB184740 KbMtde
Maschinell übersetzter Artikel
Wichtig: Dieser Artikel wurde maschinell und nicht von einem Menschen übersetzt. Die Microsoft Knowledge Base ist sehr umfangreich und ihre Inhalte werden ständig ergänzt beziehungsweise überarbeitet. Um Ihnen dennoch alle Inhalte auf Deutsch anbieten zu können, werden viele Artikel nicht von Menschen, sondern von Übersetzungsprogrammen übersetzt, die kontinuierlich optimiert werden. Doch noch sind maschinell übersetzte Texte in der Regel nicht perfekt, insbesondere hinsichtlich Grammatik und des Einsatzes von Fremdwörtern sowie Fachbegriffen. Microsoft übernimmt keine Gewähr für die sprachliche Qualität oder die technische Richtigkeit der Übersetzungen und ist nicht für Probleme haftbar, die direkt oder indirekt durch Übersetzungsfehler oder die Verwendung der übersetzten Inhalte durch Kunden entstehen könnten.
Den englischen Originalartikel können Sie über folgenden Link abrufen: 184740
Microsoft stellt Ihnen die in der Knowledge Base angebotenen Artikel und Informationen als Service-Leistung zur Verfügung. Microsoft übernimmt keinerlei Gewährleistung dafür, dass die angebotenen Artikel und Informationen auch in Ihrer Einsatzumgebung die erwünschten Ergebnisse erzielen. Die Entscheidung darüber, ob und in welcher Form Sie die angebotenen Artikel und Informationen nutzen, liegt daher allein bei Ihnen. Mit Ausnahme der gesetzlichen Haftung für Vorsatz ist jede Haftung von Microsoft im Zusammenhang mit Ihrer Nutzung dieser Artikel oder Informationen ausgeschlossen.

Ihr Feedback an uns

 

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