İçerikler
Dizin 🔎︎

# İletişim Öğesi Denetimleri için Programlama Örnekleri. . .

Aşağıdaki örnekler "Dialog1" adında yeni bir iletişim öğesi içindir. İletişim öğesini oluşturmak ve şu kontrolleri eklemek için iletişim ögesi düzenleyici içindeki Araç Kutusu çubuğu üzerindeki araçları kullanın: "CheckBox1" adında bir Onay Kutusu, "Label1" adında bir Etiket Alanı, "CommandButton1" adında bir Düğme, ve "ListBox1" adında bir Liste Kutusu.

Bir nesne değişkenine kontrol eklediğinizde büyük harf - küçük harf konusunda tutarlı olun.

### İletişim Öğelerinin Yüklenmesi için Genel İşlev

    Function LoadDialog(Libname as String, DialogName as String, Optional oLibContainer)
    Dim oLib as Object
    Dim oLibDialog as Object
    Dim oRuntimeDialog as Object
        If IsMissing(oLibContainer) Then
            oLibContainer = DialogLibraries
        End If
        oLibContainer.LoadLibrary(LibName)
        oLib = oLibContainer.GetByName(Libname)
        oLibDialog = oLib.GetByName(DialogName)
        oRuntimeDialog = CreateUnoDialog(oLibDialog)
        LoadDialog() = oRuntimeDialog
    End Function

### İletişim Öğesi Görüntüler

    REM değişkenlerin genel tanımları
    Dim oDialog1 AS Object
    Sub StartDialog1
        BasicLibraries.LoadLibrary("Tools")
        oDialog1 = LoadDialog("Standard", "Dialog1")
        oDialog1.Execute()
    End Sub

### Programdaki Kontrollerin Özelliklerini Oku veya Düzenle

    Sub Sample1
        BasicLibraries.LoadLibrary("Tools")
        oDialog1 = LoadDialog("Standard", "Dialog1")
        REM iletişim öğesi modeli al
        oDialog1Model = oDialog1.Model
        REM Label1 metnini göster
        oLabel1 = oDialog1.GetControl("Label1")
        MsgBox oLabel1.Text
        REM Label1 kontrolü için yeni metin ayarla
        oLabel1.Text = "Yeni Dosyalar"
        REM CheckBox1 kontrolü için model özelliklerini göster
        oCheckBox1Model = oDialog1Model.CheckBox1
        MsgBox oCheckBox1Model.Dbg_Properties
        REM kontrol kipi için CheckBox1'e yeni durum ayarla
        oCheckBox1Model.State = 1
        REM CommandButton1 kontrolü için model özelliklerini göster
        oCMD1Model = oDialog1Model.CommandButton1
        MsgBox oCMD1Model.Dbg_Properties
        REM CommandButton1 kontrolünün özelliklerini göster
        oCMD1 = oDialog1.GetControl("CommandButton1")
        MsgBox oCMD1.Dbg_Properties
        REM iletişim öğesini yürüt
        oDialog1.Execute()
    End Sub

### Liste Kutusuna yeni bir Girdi ekle

    Sub AddEntry
        BasicLibraries.LoadLibrary("Tools")
        oDialog1 = LoadDialog("Standard", "Dialog1")
        REM ListBox'a yeni giriş ekler
        oDialog1Model = oDialog1.Model
        oListBox = oDialog1.GetControl("ListBox1")
        Dim iCount as integer
        iCount = oListbox.ItemCount
        oListeKutusu.additem("Yeni öğe" & iSayim,0)
    End Sub

### Liste kutusundan bir Girdi kaldır

    Sub RemoveEntry
        BasicLibraries.LoadLibrary("Tools")
        oDialog1 = LoadDialog("Standard", "Dialog1")
        REM ListBox'tan ilk girişi sil
        oDialog1Model = oDialog1.Model
        oListBox = oDialog1.GetControl("ListBox1")
        oListbox.removeitems(0,1)
    End Sub

İlgili Konular

İletişim ögeleri düzenleyicisinde denetim özelliklerini değiştirme

Temel İletişim Öğesi Oluştur

iletişim düzenleyicisinde kontrol oluşturma

Program Kodu ile Pencere Açılışı