Nasıl yapılır: işlevler, komut dosyası denetimi kullanmayı arama

Makale çevirileri Makale çevirileri
Makale numarası: 184740 - Bu makalenin geçerli olduğu ürünleri görün.
Hepsini aç | Hepsini kapa

Bu Sayfada

Özet

Bu makalede, Visual Basic komut dosyası işlevleri çağırmak için çeşitli yöntemleri gösteren komut dosyası denetimi için örnek kodu sağlanır.

Daha fazla bilgi

ÖNEMLI: Microsoft, programlama örneklerini yalnızca gösterim amacıyla sağlar da dahil ancak bunlarla sınırlı, satılabilirlik ve/veya belirli bir amaca uygunluk zımni hiçbir garanti olmamak kaydıyla, örtülü veya açık garanti vermez. Bu makale, gösterilen programlama dilini ve yordamları oluşturmak ve hata ayıklamak amacıyla kullanılan araçları kullanmayı bildiğinizi varsayar.

Bu nedenle, kullanıcılarınıza Web sayfaları için ek işlevsellik sağlamak için VBScript ya da JavaScript kullanmaya benzer bir şekilde uygulamanıza komut komut dosyası denetimi VBScript, JavaScript ve tüm diğer uyumlu komut dosyası dili, ev sahipliği yapabilir.

Microsoft Knowledge Base'de aşağıdaki makaleye denetimi komut dosyası'nı nasıl elde edileceği anlatılır:
184739: BILGI: nereye komut dosyası Denetimi Al

Komut dosyası denetimi, alt ve işlev çağırmak için dört yöntem yordamlar komut sağlar:
  • 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.

Eval

Arama kuralıdır:
  Result = ScriptControl.Eval("some text expression")

				
hem içsel bir komut dosyası işlevleri çağırmak için bu yöntemi kullanabilirsiniz yan? s?ra kullanıcı işlevleri. Işlev bağımsız değişkenleri hazır bilgi değerleri ifade metin olarak geçirilir ve kodlanmış veya bir değişkeninden birleştirilmiş.

Not: Bu yöntem, Subroutines çağırmak için kullanılamaz.

Çalışma

Arama kuralıdır:
  Result = ScriptControl.Run("Name", arg1, arg2, ... argn)

				
Subroutines çağırmak için bu yöntemi kullanabilirsiniz, hangi durumda döndürülen sonuç boştur ve diğer çağırma kuralı, döndürülen sonuç yoksaymak için kullanabilirsiniz:
  ScriptControl.Run "Name", arg1, arg2, ... argn

				
Not: adı alt veya işlev ve arg1... argn isteğe bağlı söz konusu fonksiyon veya alt bağlı.

Yürütme

Arama kuralıdır:
  ScriptControl.Execute "statement text"

				
yordamına alt ya da iç herhangi bir deyimi aramak bu yöntemi sağlar. Bu işlevleri çağırmak için de kullanılabilir, ancak döndürülen sonuç bıraktı.

Modül yöntemi

Çağırma kuralı şöyledir:
   Result = ScriptControl.Modules(modulename).functionname(arg1, arg2, ...)
   ScriptControl.Modules(modulename).subname arg1, arg2, ...
				

Varsayılan modül GlobalModule sabit değer aşağıdaki gibi verilir:
   Result = ScriptControl.Modules(GlobalModule).MyFunction(5)
   ScriptControl.Modules(GlobalModule).MySub 5, "A"
				

Lütfen ScriptControl modüller hakkında daha fazla bilgi için Microsoft Knowledge Base'de aşağıdaki makaleye bakın:
184745: Kullan komut dosyası denetimi modüller ve yordamlar derlemeleri nasıl

Ö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"
    
    						

Referanslar

Komut dosyası denetimi'ni edinme hakkında daha fazla bilgi için lütfen Microsoft Knowledge Base'de aşağıdaki makaleye bakın:
184739: BILGI: nereye komut dosyası Denetimi Al

(c) Microsoft Corporation 1998, tüm hakları saklıdır.
Katkıyı Malcolm ılgaz, Microsoft Corporation

Özellikler

Makale numarası: 184740 - Last Review: 15 Temmuz 2004 Perşembe - Gözden geçirme: 4.2
Bu makaledeki bilginin uygulandığı durum:
  • 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
Anahtar Kelimeler: 
kbmt kbhowto KB184740 KbMttr
Machine-translated Article
ÖNEMLİ: Bu makale, bir kişi tarafından çevrilmek yerine, Microsoft makine-çevirisi yazılımı ile çevrilmiştir. Microsoft size hem kişiler tarafından çevrilmiş, hem de makine-çevrisi ile çevrilmiş makaleler sunar. Böylelikle, bilgi bankamızdaki tüm makalelere, kendi dilinizde ulaşmış olursunuz. Bununla birlikte, makine tarafından çevrilmiş makaleler mükemmel değildir. Bir yabancının sizin dilinizde konuşurken yapabileceği hatalar gibi, makale; kelime dağarcığı, söz dizim kuralları veya dil bilgisi açısından yanlışlar içerebilir. Microsoft, içeriğin yanlış çevrimi veya onun müşteri tarafından kullanımından doğan; kusur, hata veya zarardan sorumlu değildir. Microsoft ayrıca makine çevirisi yazılımını sıkça güncellemektedir.
Makalenin İngilizcesi aşağıdaki gibidir:184740

Geri Bildirim Ver

 

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