Вы хотите сохранить первый символ, поэтому вы можете использовать oldString.Chars(0)
, чтобы получить его.
Вам нужен остаток строки: oldString.Substring(1)
, и вы можете дополнить его до требуемой ширины. с персонажем по вашему выбору с PadLeft
, например:
Dim newString = oldString.Chars(0) & oldString.Substring(1).PadLeft(9, "0"c)
Было бы неплохо проверить, что oldString
имеет длину не менее 1 символа, прежде чем делать это, иначе .Chars(0)
будетвыдает ошибку.
В качестве альтернативы вы можете вставить новую строку необходимого количества «0»:
Dim newString = oldString.Insert(1, New String("0"c, 10 - oldString.Length))
Хорошее место для выполнения форматирования будетбыть в элементе управления Validating . (Обработчик событий TextChanged не будет подходящим местом, поскольку он будет мешать вводу пользователя.)
Refs: