Dim s as String = "asdfasfasdfasdfasfd";
Dim half_s as String = s.Substring(0, s.Length / 2);
Длина текста в TextBox
Есть TextBox который выводит данные из таблицы access , как задать параметр что бы выводимый текст обрезался по принципу (кол-во символов выводимого текста \2) - 1 символ ? Кол-во символов всегда четное так что дробных не будет.
Код:
Imports VB = Microsoft.VisualBasic
Dim vh As Integer
vh = InStr(TextBox4.Text, "#")
If vh = 0 Then vh = Len(TextBox4.Text) + 1
TextBox4.Text = VB.Left(TextBox4.Text, vh - 1)
Dim vh As Integer
vh = InStr(TextBox4.Text, "#")
If vh = 0 Then vh = Len(TextBox4.Text) + 1
TextBox4.Text = VB.Left(TextBox4.Text, vh - 1)
если текст забит руками все работает но,только вот проблема в TextBox данные идут из БД access и данный код не работает (( кто-нибудь знает в чем загвоздка ?
То есть на выходе из текста в бд "XXXX#XXXX#" в textbox должно попасть "XXXX"
p/s как идея есть добавить еще один TextBox1 и копировать в него текст из TextBox и применять код уже к TetxBox1 (он то по идее не будет связан с бд) .....
Попробуйте создать специальный объект, который будете отображать на форме. При чтении данных из базы для каждой строки нужно будет создавать этот объект (и закидывать данные в него). Внутри него можно будет делать все что угодно с самими данными. Тем самым не придется заниматься черте чем с текстбоксами.
Цитата: hardcase
Попробуйте создать специальный объект, который будете отображать на форме. При чтении данных из базы для каждой строки нужно будет создавать этот объект (и закидывать данные в него). Внутри него можно будет делать все что угодно с самими данными. Тем самым не придется заниматься черте чем с текстбоксами.
да это понятно )) просто доделывать за других приходиться с нуля все начинать уже не доставляет.... а жизнь себе на работе упростить хочется, на нормального программиста руководство жмется ....приходиться самому.
update после шаманства с tetxbox`ми искомый результат достигнут, если кто знает путь проще поделитесь, если не трудно