FlowFact - Entwicklungstools

zurück

Sub - SetItem
Telefonnummer setzen

  Sub SetItem(ByVal Index As Integer, ByVal strPhone1 As String, ByVal strPhone2 As String, ByVal strPhoneComment As String)  
 


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


Public Sub SetItem(ByVal Index As Integer, ByVal strPhone1 As String, ByVal strPhone2 As String, ByVal strPhoneComment As String)
    Dim strLine As String

    strLine = strPhone1 & vbTab & strPhone2 & vbTab & strPhoneComment
    m_oList.Item(Index) = strLine
End Sub