Ako použitie skriptu riadiacich modulov a postupy zbierky

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

Na tejto stránke

SUHRN

Tento článok ukazuje ako používať vlastnosti modulov a postupy Microsoft Script ovládacieho prvku sa kód segmentového. To tiež dokazuje, ako môžete dynamicky určiť počet argumentov a či postup je funkcia alebo Sub.

DALSIE INFORMACIE

Ovládací prvok Microsoft Script obsahuje funkcie, ktoré umožňujú hostiteľovi uplatňovanie na segmentu skripty do rôznych modulov. Predvolené modul "Globálne", je vždy prítomný. Rôznych modulov môže obsahovať postupy rovnaký názov (postup mená sa majú modul rozsahu).

Microsoft Script kontrola zahŕňa aj postup vlastnosti, ktoré umožňujú Hostiteľská aplikácia dynamicky určiť či postup Funkcia alebo čiastkovou, ako aj počet argumentov očakáva. Toto umožňuje hostiteľská aplikácia rýchle užívateľov pre správny počet hodnoty parametrov.

Vlastnosť moduly ovládacieho prvku skript je objekt, ktorý obsahuje Zbierka predmetov modul. Má nasledovné vlastnosti a metódy:
  • Počet: Počet modulov.
  • Item(x): Vráti jeden modul objekt.
  • Pridať meno: pridá prázdny modul s krstné meno.
Modul objekt má nasledujúce vlastnosti a metódy:
  • Názov: Názov modulu.
  • Postupy: Postupy objekt.
  • AddCode kód: pridá kód do modulu.
  • Spustiť meno, args: beží pomenované postupom.
Postupy objekt obsahuje kolekcia objektov, postup. Má vlastnosti a metódy:
  • Počet: Počet postupov v module.
  • Item(x): Vráti jeden objekt postup.
Postup objekt má nasledujúce vlastnosti a metódy:
  • Názov: Postup názov.
  • HasReturnValue: Označuje, či postup je Sub alebo Function.
  • NumArgs: Počet argumentov postup vyžaduje.
Poznámka: Nie všetky vlastnosti a metódy uvedené objektov sú dané, len týchto príslušných tohto článku.

Nasledujúci príklad poskytuje interaktívny program, ktorý ilustruje, ako Ak chcete použiť tieto metódy a vlastnosti:

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.

Príklad

  1. V jazyku Visual Basic, vytvoriť nový projekt (Form1 je vytvorené podľa 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ť skript kontroly (ScriptControl1), blok textu (Text1), tri príkaz tlačidlá (Command1, Command2, Command3) a dva zoznam polí (List1, List2) na Form1. Nastavte vlastnosť MultiLine bloku textu PRAVDA. Veľkosť bloku textu prispôsobiť 5 riadkov 30 znakov.
  4. Do Form1, pridajte nasledujúci kód:
          Private Sub Command1_Click()
            ScriptControl1.Modules.Add Text1.Text
            Form_Activate
          End Sub
    
          Private Sub Command2_Click()
            ScriptControl1.Modules(List1).AddCode Text1.Text
            List1_Click
          End Sub
    
          Private Sub Command3_Click()
          Dim RetVal As Variant, m As Variant
            Set m = ScriptControl1.Modules(List1.Text)
            With m.Procedures(List2.Text)
              Select Case .NumArgs
                Case 0
                  RetVal = m.Run(List2.Text)
                Case 1
                  RetVal = m.Run(List2.Text, 5)
                Case 2
                  RetVal = m.Run(List2.Text, 4, 23)
                Case Else
                  MsgBox "Procedure has too many arguments"
              End Select
              If .HasReturnValue Then
                MsgBox List2.Text & " returned: " & RetVal
              End If
            End With
          End Sub
    
          Private Sub Form_Activate()
          Dim m As Variant
            List1.Clear
            With SCriptControl1
              .Language = "VBScript"
              .AllowUI = True
              For Each m In .Modules
                List1.AddItem m.Name
              Next m
            End With
          End Sub
    
          Private Sub Form_Load()
            Command1.Caption = "Add Module"
            Command2.Caption = "Add Code"
            Command3.Caption = "Run Procedure"
          End Sub
    
          Private Sub List1_Click()
          Dim m As String, p As Variant
            m = List1
            List2.Clear
            If m = "" Then Exit Sub
            For Each p In ScriptControl1.Modules(m).Procedures
              List2.AddItem p.Name
            Next p
          End Sub
    
          Private Sub List2_Click()
          Dim m As String, p As String, r As Boolean, a As Long
            m = List1
            p = List2
            With ScriptControl1.Modules(m).Procedures(p)
              r = .HasReturnValue
              a = .NumArgs
            End With
            MsgBox m & "." & p & " has " & IIf(r, "a", "no") & _
                   " return value and " & a & " arguments"
          End Sub
    						
  5. Spustiť Form1.
  6. Vytvoriť nový modul zadaním nasledovného v bloku textu a kliknutím na Pridajte modul:
          Mod2
    
    						
  7. Do textového poľa zadajte nasledujúci skript:
          Function Calc(X)
            Calc = X * 2
          End Function
    						
  8. Vyberte Global v List1 a potom kliknite na pridať kód pridať do globálnej modul.
  9. Do textového poľa zadajte nasledujúci skript:
          Function Calc(X, Y)
            Calc = X * Y
          End Function
    
          Sub Test()
            MsgBox "The Test Sub in Module Mod2"
          End Sub
    						
  10. Vyberte Mod2 v List1 a potom kliknite na pridať kód pridať do globálnej modul.
  11. Kliknite na rôznych modulov a postupy. Keď vyberiete postup okno s hlásením zobrazí, indikačné či postup má Vráti hodnotu, ako aj počet argumentov trvá.
  12. Po výbere postup, kliknite na tlačidlo Spustiť postup na jeho spustenie. Kód Určuje počet argumentov použitie a vy uvidíte, rôznej hláseniami s výsledkami.
POZNÁMKA:
  • Globálne modul meno nemusí byť vždy "Global" v závislosti na kontrolu verzia alebo lokalizáciu. Použiť GlobalName konštanta namiesto pevného- kódovanie sa slovo "Global".
  • Neexistuje metóda odstrániť jednotlivé moduly alebo postupy. Máte používať.Jasné metóda kontroly skript na vymazanie všetkých kód. Ste môžete prepísať postup pomocou.Metóda AddCode s postupom s rovnakým názvom.

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

Ďalšie informácie a príklady na volanie postupy v Global modul, prečítajte si nasledujúci článok v databáze Microsoft Knowledge Base:
184740: Ako telefonovanie pomocou skriptu ovládania

Microsoft Script ovládanie témy Pomocníka:
   HasReturnValue Property
   NumArgs Property
   AddCode Method
   Run Method
   Modules Collection
   Procedures Collection
				

Vlastnosti

ID článku: 184745 - Posledná kontrola: 19. 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 kbscript kbmt KB184745 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:184745

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