Nasıl Yapılır: Excel and .NET Framework 3.5'te Özel Tanıyıcılarla Akıllı Etiketler Oluşturma

Makale
08/01/2011

.NET Framework 3.5'u hedefleyen Excel projelerinde, Microsoft.Office.Tools.Excel.SmartTag sınıfını türeterek ve Recognize yöntemini geçersiz kılarak Excel'in belgelerdeki akıllı etiketleri nasıl tanıdığını denetleyebilirsiniz.

Akıllı etiketi çalıştırmak için son kullanıcılar akıllı etiketleri etkin hale getirmelidirler. Daha fazla bilgi için bkz. Nasıl Yapılır: Word ve Excel'de Akıllı Etiketleri Etkinleştirme.

Uygulama alanı: Bu konudaki bilgiler Excel 2007'nin belge düzeyi projelerine ve uygulama düzeyi projelerine yöneliktir. Daha fazla bilgi için bkz. Office Uygulamalarında Kullanılabilir Özellikler ve Proje Türü.

Excel çalışma kitabına özel tanıyıcı ile akıllı etiket eklemek için

Excel 2007 için yeni bir belge veya uygulama düzeyi projesi oluşturun. Daha fazla bilgi için bkz. Nasıl Yapılır: Visual Studio'da Office Projeleri Oluşturma.
Başvuru Ekle iletişim kutusunun .NET sekmesinden Microsoft.Office.Interop.SmartTag derlemesine (12.0.0.0 sürümü) bir başvuru ekleyin.
Projeye sınıf dosyası ekleyin ve Microsoft.Office.Tools.Excel.SmartTag'den devralan bir sınıf oluşturun.
Yeni sınıfta akıllı etiketler için eylemleri oluşturun. Eylemler akıllı etiketler menüsünde gözüken öğelerdir. Action türünün örneklerini ekleyerek sınıfınızın Actions koleksiyonunda eylemler oluşturun.
SmartTagBase.Recognize yöntemini kendi özel tanıma davranışınızı uygulamak üzere geçersiz kılın.

Recognize yönteminin yeni hali Microsoft.Office.Tools.Excel.SmartTag.PersistTag yöntemini Excel'in akıllı etiketleri tanımasını sağlamak için çağırmalıdır.
Oluşturduğunuz eylemlerin Click olayını ve isteğe bağlı olarak BeforeCaptionShow olayını yanıtlaması için olay işleyicileri oluşturun.
Proje çalışma kitabı için olan kod dosyasında, ThisWorkbook sınıfının ( belge düzeyi projeleri için) VstoSmartTags özelliğine veya ThisAddIn sınıfının (uygulama düzeyi projeleri için) VstoSmartTags özelliğine akıllı etiket örneği ekleyin.

Örnek

Aşağıdaki kod örneğinde Excel çalışma kitaplarındaki özel akıllı etiketlerin nasıl oluşturulduğu gösterilmektedir. Örnek, sales ve organization terimlerini tanımak için Recognize yöntemini geçersiz kılar. Recognize yöntemi, akıllı etiketler için anahtarlı özellikler koleksiyonuna anahtar ve değer çifti ekler. Yöntem, daha sonra akıllı etiketi tanımak ve yeni akıllı etiket özelliğini kaydetmek için PersistTag yöntemini çağırır.

Örneği test etmek için, sales ve organization kelimelerini çalışma kitabındaki farklı hücrelere yazın ve sonra akıllı etiket eylemlerini deneyin. Bir eylem, tanınmış terim için ilgili özellik değerini görüntülerken diğer eylem akıllı etiket isim-uzayını ve başlığını görüntüler.

Imports Microsoft.Office.Tools.Excel
Imports Microsoft.Office.Interop.SmartTag

Public Class CustomSmartTag
    Inherits SmartTag

    ' Declare Actions for this SmartTag
    WithEvents Action1 As New Action("Display property value")
    WithEvents Action2 As New Action("Display smart tag details")

    Public Sub New()
        MyBase.New("https://www.contoso.com/Demo#DemoSmartTag", _
            "Custom Smart Tag")
        Me.Terms.AddRange(New String() {"sales", "organization"})
        Actions = New Action() {Action1, Action2}
    End Sub

    Protected Overrides Sub Recognize(ByVal text As String, _
        ByVal site As ISmartTagRecognizerSite, _
        ByVal tokenList As ISmartTagTokenList)

        ' Determine whether each smart tag term exists in 
        ' the document text.
        Dim Term As String
        For Each Term In Me.Terms

            ' Search the cell text for the first instance of 
            ' the current smart tag term.
            Dim index As Integer = Me.CellText.IndexOf(Term, 0)

            If (index >= 0) Then

                ' Create a smart tag token and a property bag for the 
                ' recognized term.
                Dim propertyBag As ISmartTagProperties = _
                    site.GetNewPropertyBag()

                ' Write a new property value.
                Dim key As String = "Key1"
                propertyBag.Write(key, DateTime.Now)

                ' Attach the smart tag to the term in the document
                Me.PersistTag(propertyBag)

                ' This implementation only finds the first instance
                ' of a smart tag term in the cell. 
                Exit For
            End If
        Next
    End Sub

    ' This action displays the property value for the term.
    Private Sub Action1_Click(ByVal sender As Object, _
        ByVal e As ActionEventArgs) Handles Action1.Click

        Dim propertyBag As ISmartTagProperties = e.Properties
        Dim key As String = "Key1"
        MsgBox("The corresponding value of " & _
            key & " is: " & propertyBag.Read(key))
    End Sub

    ' This action displays smart tag details.
    Private Sub Action2_Click(ByVal sender As Object, _
        ByVal e As ActionEventArgs) Handles Action2.Click

        MsgBox("The current smart tag caption is '" & _
            Me.Caption & "'. The current smart tag type is '" & _
            Me.SmartTagType & "'.")
    End Sub
End Class

using System;
using System.Windows.Forms;
using Microsoft.Office.Tools.Excel;
using Microsoft.Office.Interop.SmartTag;

    public class CustomSmartTag : SmartTag {

        // Declare Actions for this SmartTag
        Microsoft.Office.Tools.Excel.Action Action1 =
            new Microsoft.Office.Tools.Excel.Action("Display property value");
        Microsoft.Office.Tools.Excel.Action Action2 =
            new Microsoft.Office.Tools.Excel.Action("Display smart tag details");

        public CustomSmartTag() : base(
            "https://www.contoso.com/Demo#DemoSmartTag", 
            "Custom Smart Tag")
        {
            this.Terms.AddRange(new string[] { 
                "sales", "organization" });
            Actions = new Microsoft.Office.Tools.Excel.Action[] { Action1, Action2 };
            Action1.Click +=
                new ActionClickEventHandler(Action1_Click);
            Action2.Click += 
                new ActionClickEventHandler(Action2_Click);
        }

        protected override void Recognize(string text, 
            ISmartTagRecognizerSite site, ISmartTagTokenList tokenList)
        {
            // Determine whether each smart tag term exists in 
            // the document text.
            foreach (string term in this.Terms)
            {
                // Search the cell text for the first instance of 
                // the current smart tag term.
                int index = this.CellText.IndexOf(term, 0);

                if (index >= 0)
                {
                    // Create a smart tag token and a property bag for the 
                    // recognized term.
                    ISmartTagProperties propertyBag = 
                        site.GetNewPropertyBag();

                    // Write a new property value.                 
                    string key = "Key1";
                    propertyBag.Write(key, DateTime.Now.ToString());

                    // Attach the smart tag to the term in the document
                    this.PersistTag(propertyBag);

                    // This implementation only finds the first instance
                    // of a smart tag term in the cell. 
                    break;
                }
            }
        }

        // This action displays the property value for the term.
        private void Action1_Click(object sender, ActionEventArgs e)
        {
            ISmartTagProperties propertyBag = e.Properties;
            string key = "Key1";
            MessageBox.Show("The corresponding value of " + key +
                " is: " + propertyBag.get_Read(key));
        }

        // This action displays smart tag details.
        private void Action2_Click(object sender, ActionEventArgs e)
        {
            MessageBox.Show("The current smart tag caption is '" + 
                this.Caption + "'. The current smart tag type is '" + 
                this.SmartTagType + "'.");
        }
    }

Kodu Derleme

Başvuru Ekle iletişim kutusundaki COM sekmesinden Microsoft Smart Tags 2.0 Tür Kitaplığı'na projedeki başvuruyu ekleyin. Başvurunun Yereli Kopyala özelliğinin false olduğuna emin olun. Eğer true ise, başvuru doğru birincil birlikte çalışma derlemesine değildir ve Microsoft Office yükleme medyasından derlemeyi yüklemelisiniz. Daha fazla bilgi için bkz. Nasıl Yapılır: Office Birincil Birlikte Çalışma Derlemelerini Yükleme.
Örnek kodu CustomSmartTag isimli yeni bir dosyaya koyun.
C#'ta proje adıyla eşleşmesi için isim-uzayını değiştirin.
Sınıf dosyasının en üstündeki Microsoft.Office.Tools.Excel ve Microsoft.Office.Interop.SmartTag isim-uzayı için Imports (Visual Basic'te) veya using (C#'ta) ifadelerini ekleyin.
Projenizdeki ThisWorkbook_Startup veya ThisAddIn_Startup olay işleyicisine aşağıdaki kodu ekleyin. Bu kod çalışma kitabına özel akıllı etiket ekler.
```
Me.VstoSmartTags.Add(New CustomSmartTag())
```
```
this.VstoSmartTags.Add(new CustomSmartTag());
```

Güvenlik

Excel'de akıllı etiketleri etkinleştirmelisiniz. Varsayılan olarak onlar etkinleştirilmemiştir. Daha fazla bilgi için bkz. Nasıl Yapılır: Word ve Excel'de Akıllı Etiketleri Etkinleştirme.

Ayrıca bkz.

Aracılığıyla paylaş

Nasıl Yapılır: Excel and .NET Framework 3.5'te Özel Tanıyıcılarla Akıllı Etiketler Oluşturma

Excel çalışma kitabına özel tanıyıcı ile akıllı etiket eklemek için

Örnek

Kodu Derleme

Güvenlik

Ayrıca bkz.

Görevler

Kavramlar

Diğer Kaynaklar

Ek kaynaklar