Automatyzacja OLE: procedura GetInclude

GetInclude( itemNumber )

  • itemNumber miejsce elementu na liście, który ma zostać pobrany, gdzie 1 oznacza pierwszą pozycję listy.

    Zwraca łańcuch zawierający określenie pliku, lub pusty łańcuch, jeśli itemNumber jest większy niż liczba plików na liście.

    •

    Przykład:

    List1.Clear
Dim nCount As Integer
Dim sPath As String
    nCount = 1
    While nCount
    sPath = wilbur.GetInclude(nCount)
nCount = nCount + 1
If sPath <> "" Then
    List1.AddItem (sPath)
    Else
    nCount = 0
    End If
    Wend

    Przykład powyższy wypełni listę rozwijalną wszystkimi pozycjami z listy plików do uwzględnienia.

    Copyright (c) 1999 RedTree Development Inc. Wszelkie prawa zastrzeżone.
    Informacje zawarte w tym dokumencie mogą ulec zmianie bez ostrzeżenia.
    Nazwy innych produktów i firm wzmiankowane w tym dokumencie są znakami towarowymi lub zastrzeżonymi znakami handlowymi odnośnych firm lub właścicieli tychże znaków towarowych.