Member 13239658 Ответов: 3

Текстовое поле в combobox

- Привет !!

Я учусь vb.net 2013 год

у меня есть сомнения

у меня есть два текстовых поля, textbox1 и textbox2

имя значения, введенное в textbox1, должно отображаться в обратном порядке в textbox2

например

текстовое поле textbox1= вода

textbox2= retaw

теперь, когда я нажимаю на кнопку

значение в textbox2 должно быть в приведенном ниже методе в combobox

Р

е

т

один

в

может ли кто-нибудь, пожалуйста, провести меня через кодировку, чтобы отобразить Введенное имя в приведенном выше формате в combobox

Заранее спасибо !!

Что я уже пробовал:

Я попробовал первую часть, обратная сторона введенного текста сделана
мне нужно решение для второй части
я хочу знать, как отобразить перевернутый текст в выпадающем списке

3 Ответов

Рейтинг:
2

OriginalGriff

Легко:

private void tbUserInput_TextChanged(object sender, EventArgs e)
    {
    tbReversed.Text = new string(tbUserInput.Text.Reverse().ToArray());
    }

private void tbReversed_TextChanged(object sender, EventArgs e)
    {
    cbReversedItems.Items.Clear();
    foreach (char c in tbReversed.Text)
        {
        cbReversedItems.Items.Add(c);
        }
    }

Рейтинг:
1

User 13204940 

Dim nameWithThreeVowels As String = "aeixyz"

Dim numberOfVowels As Integer = 0
Dim vowelsFound As String = ""

' loop through each character 'c'
For cIndex As Integer = 0 To nameWithThreeVowels.Length - 1
    Dim c As String = nameWithThreeVowels(cIndex) 'get the letter at the specified position
    If vowels.Contains(c) Then
        numberOfVowels +=1
        
        vowelsFound &= c & ","
    End If
Next

' remove the last comma so you don't end up with '1,2,3,' for example
If Not vowelsFound = "" Then
    vowelsFound = vowelsFound.Substring(0, vowelsFound.Length - 2)
End If

If numberOfVowels = 3 Then
    MsgBox("3 vowels found: " & vowelsFound)
End If

Рейтинг:
0

User 13204940 

Dim vowels As String = "aeiou"
Dim alphabet As String = "abcdefghijklmnopqrstuvwxyz"

If vowels.Contains(ComboBox1.Text) Then
    TextBox1.Text = alphabet
End If

Member 13239658

это прекрасно работает. Большое спасибо
но последний вопрос
если в имени есть две или три гласные
как отобразить все гласные, разделяя их запятой
например, когда я выбираю одну гласную, она должна быть диспалирована в текстовом поле, а когда я выбираю еще одну гласную, запятая должна отделяться, и другая гласная также должна отображаться

как должно отображаться

[no name]

Dim nameWithThreeVowels As String = " aeiouxyz"

Dim numberOfVowels как целое число = 0
Тусклые гласные, найденные как струна = ""

'цикл через каждый символ 'c'
Для cIndex As Integer = 0 to nameWithThreeVowels.Длина - 1
Dim c As String = nameWithThreeVowels (cIndex) ' получить букву в указанной позиции
Если гласные.Содержит(c), то
numberOfVowels +=1

гласные &= c & ","
Конец, Если
Следующий

- уберите последнюю запятую, чтобы не получилось, например, "1,2,3".
Если нет гласных="", то
гласные = гласные.Подстрока(0, гласные найдены.Длина - 2)
Конец, Если

Если numberOfVowels = 3, то
MsgBox ("найдено 3 гласных:" & vowelsFound)
Конец, Если