Ako volať funkcie pomocou skriptu ovládania

Preklady článku Preklady článku
ID článku: 184740 - Zobraziť produkty, ktorých sa tento článok týka.
Rozbaliť všetko | Zbaliť všetko

Na tejto stránke

SUHRN

Tento článok poskytuje vzorky kód pre kontrolu skript, ktorý demonštruje rôzne metódy volanie skript funkcií z programu Visual Basic.

DALSIE INFORMACIE

DÔLEŽITÉ: Microsoft poskytuje príklady programovacieho základňa, bez záruky buď vyjadrenej alebo implicitnej záruky, vrátane, ale nie s obmedzením na implicitných záruk obchodovateľnosti a vhodnosti na konkrétny účel. Tento článok predpokladá, že ste oboznámení s programovací jazyk je preukázaná a nástroje, použité na vytvorenie a ladenie procedúr.

Skript kontroly môže hostiť VBScript, JavaScript a akékoľvek iné kompatibilné skriptovací jazyk, takže používatelia môžu skript vašej aplikácie v podobnom spôsobom používať prostredie VBScript alebo JavaScript poskytuje ďalšie funkcie pre webové stránky.

Nasledujúci článok v databáze Microsoft Knowledge Base opisuje ako získanie kontroly skript:
184739: INFO: kde možno získať kontrolu skript

Skript kontroly poskytuje štyri spôsoby volá Sub a Function skript rutiny:
  • Eval: Hodnotí výraze textu.
  • Spustiť: Beží pomenované Sub alebo Function.
  • Spustiť: Popravených skript vyhlásenie.
  • Ako metóda modul objektu.

Eval

Volajúci dohovoru je:
  Result = ScriptControl.Eval("some text expression")

				
Túto metódu môžete použiť volať oboch vnútorných skriptové funkcie, ako aj funkcie používateľov. Argumenty funkcie prechádzajú ako literálové hodnoty v výraz textu a môže byť buď pevným alebo reťazové z Premenná.

Poznámka: Táto metóda nemôže byť použitá pre volanie podprogramy.

Spustiť

Volajúci dohovoru je:
  Result = ScriptControl.Run("Name", arg1, arg2, ... argn)

				
Môžete použiť túto metódu volať podprogramy, v takomto prípade výsledok vrátené je prázdny a môžete použiť alternatívny volajúceho dohovoru ignorovať návratky výsledok:
  ScriptControl.Run "Name", arg1, arg2, ... argn

				
Poznámka: Názov je názov Sub alebo funkcia a arg1... argn sú nepovinné v závislosti od Sub alebo Function predmetné.

Spustiť

Volajúci dohovoru je:
  ScriptControl.Execute "statement text"

				
Táto metóda umožňuje volať akékoľvek vnútorné vyhlásenie alebo Sub rutina. Ste môžete tiež použiť pre volanie funkcie, ale klesli spiatočnej výsledok.

Modul metóda

Volajúci dohovoru je:
   Result = ScriptControl.Modules(modulename).functionname(arg1, arg2, ...)
   ScriptControl.Modules(modulename).subname arg1, arg2, ...
				

Štandardný modul je uvedený v GlobalModule konštanta, ako napríklad:
   Result = ScriptControl.Modules(GlobalModule).MyFunction(5)
   ScriptControl.Modules(GlobalModule).MySub 5, "A"
				

Viac informácií o ScriptControl moduly nájdete nasledujúce článok v databáze Microsoft Knowledge Base:
184745: Ako použitie skriptu riadiacich modulov a postupy zbierky

Príklad

  1. V jazyku Visual Basic, vytvoriť nový projekt. Form1 sa vytvorí na základe predvoleného nastavenia.
  2. Kliknite na položku súčasti v ponuke projekt a potom vyberte "Microsoft Skript kontrolu 1.0 "políčko.
  3. Pridať ovládací skript (ScriptControl1), blok textu (Text1), a príkaz tlačidlom (Command1) na formulár. Nastavte vlastnosť MultiLine blok textu na hodnotu True.
  4. Do Form1, pridajte nasledujúci kód:
          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. Spustiť Form1, a otvorte okno ladenia.
  6. Do textového poľa zadajte nasledujúci skript:
          Sub Hello(YourName)
            MsgBox "Hello " & YourName
          End Sub
    
          Function AddTwo(X1, X2)
            AddTwo = X1 + X2
          End Function
    
    						
  7. Kliknite na položku CommandButton.

    Poznámka: Tieto dve vyhlásenia neposkytujú výstup pretože Funkcia vrátenia sa stratí a kód nie je výstup výsledok prostredníctvom akýmikoľvek inými prostriedkami, napríklad globálna premenná alebo správy políčko:
          .Run "AddTwo", 4, 6
          .ExecuteStatement "AddTwo 9,18"
    
    						

ODKAZY

Informácie o získaní ovládací skript prosím pozrite nasledujúci článok v databáze Microsoft Knowledge Base:
184739: INFO: kde možno získať kontrolu skript

(c) Microsoft Corporation 1998, všetky práva vyhradené.
Príspevky Malcolm Stewart, Microsoft Corporation

Vlastnosti

ID článku: 184740 - Posledná kontrola: 18. októbra 2011 - Revízia: 2.0
Informácie v tomto článku sa týkajú nasledujúcich produktov:
  • 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
Kľúčové slová: 
kbhowto kbmt KB184740 KbMtsk
Strojovo preložené
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:184740

Odošlite odozvu

 

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