TechyDenZ Ответов: 3

Как получить 8-е число на textbox1 ?


Как мне получить 8-й номер в textbox1? Мне нужно написать что-то вроде этого.

If 8th number on textbox1 = 0 then
   msgbox("OK")
else
   msgbox("INVALID")
end if



Пожалуйста помочь. Спасибо.

3 Ответов

Рейтинг:
8

TechyDenZ

Спасибо Вам за советы, ребята. Решить ее. Вот что я сделал.

Dim x как строка
x = TextBox1. Text
txttype.Text = Mid$(x, 8, 1)

Если txttype.Тогда Text = "1"
TextBox3. Text = " ОК"
Ещё
TextBox3. Text = " не в порядке"
Конец, Если


Рейтинг:
1

Maciej Los

Как Ричард Маккатчан[^] как уже упоминалось, это довольно просто.

VB.NET использование Строка.Метод Подстроки (Система)[^] чтобы получить часть строки.

Попробуй!

Для получения дополнительной информации о манипуляциях со строками см.: Сводка По Манипуляциям Со Строками (Visual Basic)[^]


Рейтинг:
0

Richard MacCutchan

Это не совсем сложно:

Dim numbers as String
numbers = textbox1.Text
if numbers.length = 8 And numbers(7) = '0' Then
    msgbox("OK")
// etc.


Maciej Los

Что ж... Пожалуйста, исправьте свой код и замените его && с And (или AndAlso) в связи с соответствующим VB.NET синтаксис.
Другая проблема заключается в том, что VB, NET использует () вместо [] для ссылки на элемент в массиве.

Richard MacCutchan

Спасибо. Неудивительно, что мой C# VB.NET обращение было не очень хорошим.