FlowFact - Entwicklungstools

zurück

Sub - GetItem
Telefonnummer abfragen

  Sub GetItem(ByVal Index As Integer, ByRef strPhone1 As Variant, ByRef strPhone2 As Variant, ByRef strPhoneComment As Variant)  
 


Index: Index der Telefonnummer in der Liste
strPhone1: Vorwahl
strPhone2: Durchwahl
strPhoneComment: Kommentar


Public Sub GetItem(ByVal Index As Integer, ByRef strPhone1 As Variant, ByRef strPhone2 As Variant, ByRef strPhoneComment As Variant)
    Dim strLine As String

    strLine = m_oList.Item(Index)

    strPhone1 = help_StrList_DeleteFirst(strLine, vbTab)
    strPhone2 = help_StrList_DeleteFirst(strLine, vbTab)
    strPhoneComment = help_StrList_DeleteFirst(strLine, vbTab)
End Sub