![]() |
FlowFact - Entwicklungstools |
![]() |
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 |