Imports System.Runtime.CompilerServices
Imports System.Text
 
Module MyStringExtension
 
   <Extension()> _
   Public Function AddCountValue(ByVal s As String, ByVal count As Integer, _
   ByVal value As String) As String
      If count <= 0 Then Return s
 
      Dim sb As New StringBuilder(s)
      For x As Integer = 0 To count - 1
         sb.Append(value)
      Next
 
      Return sb.ToString
   End Function
 
End Module

   ' Entweder so....
   Dim s As String = "1234".AddCountValue(3, "ABC")
 
   ' oder so...
   Dim s2 As String = "AAA"
   s2 = s2.AddCountValue(5, "B")
 
   Debug.WriteLine(s)
   Debug.WriteLine(s2)

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control