Nasýl yapýlýr: iþlevler, komut dosyasý denetimi kullanmayý arama

• Eval: metin bir ifade olarak deðerlendirilir.
• Çalýþma: adlandýrýlmýþ bir Sub veya Function'ný çalýþtýrýr.
• Execute: bir komut dosyasý deyimi çalýþtýrýr.
• Bir <a0>modül</a0> nesnesinin bir yöntemini.

Üste

Eval

  Result = ScriptControl.Eval("some text expression")

				

Üste

Çalýþma

  Result = ScriptControl.Run("Name", arg1, arg2, ... argn)

				

  ScriptControl.Run "Name", arg1, arg2, ... argn

				

Üste

Yürütme

  ScriptControl.Execute "statement text"

				

Üste

Modül yöntemi

   Result = ScriptControl.Modules(modulename).functionname(arg1, arg2, ...)
   ScriptControl.Modules(modulename).subname arg1, arg2, ...
				

   Result = ScriptControl.Modules(GlobalModule).MyFunction(5)
   ScriptControl.Modules(GlobalModule).MySub 5, "A"
				

Üste

ÖRNEK

1. Visual Basic'te, yeni bir proje oluþturun. Varsayýlan olarak, Form1 oluþturulur.
2. Proje menüsünde Bileþenleri'ni týklatýn ve sonra "Microsoft komut dosyasý denetimi 1.0" onay kutusunu seçin.
3. Bir forma, bir komut düðmesi (Command1) komut dosyasý denetimi (ScriptControl1) ve (Metin1) bir <a0>metin kutusu ekleyin. Çok satýrlý metin kutusunu özelliðini true olarak ayarlayýn.
4. Form1'e aþaðýdaki kodu ekleyin:

         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. Form1'ný çalýþtýrýn ve hata ayýklama penceresini açýn.
6. Aþaðýdaki komut dosyasý metin kutusuna yazýn:

         Sub Hello(YourName)
           MsgBox "Hello " & YourName
         End Sub
   
         Function AddTwo(X1, X2)
           AddTwo = X1 + X2
         End Function
   
   						

7. KomutDüðmesi Ek Yardým düðmesini týklatýn.
   
   Not: Aþaðýdaki iki ifade bir çýkýþ iþlevin dönüþ kaybolur ve kod herhangi diðer araçlarla, genel bir deðiþken veya ileti kutusu gibi bir sonuç çýktýsý üreten deðil:

         .Run "AddTwo", 4, 6
         .ExecuteStatement "AddTwo 9,18"
   
   						

Üste