[silverlight]

'طريقة اخري

كود :

Dim number As String = "123456"
       Dim requiredLength As Integer = 3
       Dim result As String = If(number IsNot Nothing, String.Join(CType(Nothing, String), number.Take(requiredLength)), CType(Nothing, List(Of Char)))

او الأفضل تحويل الكود اعلاه الي دالة تسترد منها العدد  المطلوب

كود :

   Private Function GetPartOfString(s As String, length As Integer) As String
       Dim result As String = CType(Nothing, String)
       If Not String.IsNullOrWhiteSpace(s) AndAlso Char.IsDigit(s, length) Then
           result = If(s IsNot Nothing, String.Join(CType(Nothing, String), s.Take(length)), CType(Nothing, List(Of Char)))
       End If
       Return result
   End Function

كيف تستخدم الدالة

كود :

  ' عرض الناتج في اي كونترول
       Label1.Text = GetPartOfString("1234567", 3)