VB. Net VS2019 - Проблема чтения в консоли - PullRequest
Новая
       27

VB. Net VS2019 - Проблема чтения в консоли

0 голосов
/ 30 марта 2020

Я прошу вашей помощи, чтобы прочитать эти символы в консоли windows. 

Imports System.Text

Module Module1

    Sub Main()
        Dim userInput = New StringBuilder()
        Dim maxLength = 10
        While True
            ' Read, but don't output character
            Dim cki As ConsoleKeyInfo = Console.ReadKey(True)
            Select Case cki.Key
                Case ConsoleKey.Enter
                    ' Done
                    Exit While
                Case ConsoleKey.Backspace
                    ' Last char deleted
                    If userInput.Length > 0 Then
                        userInput.Remove(userInput.Length - 1, 1)
                        Console.Write(vbBack & " " & vbBack)
                    End If
                Case Else
                    ' Only append if less than max entered and it's a display character
                    If userInput.Length < maxLength AndAlso Not Char.IsControl(cki.KeyChar) Then
                        userInput.Append(cki.KeyChar)
                        Console.Write(cki.KeyChar)
                    End If
            End Select
        End While
        MsgBox("'" & userInput.ToString() & "'")
    End Sub

End Module

Я только что установил Visual Studio 2019 и вставил код для тестирования новой программы, к моему удивлению, Я столкнулся с проблемой невозможности прочитать «С» и «С». Я не знаю, что происходит, как исправить это и предотвратить его повторение.

Это очень странно, я знаю, что код должен работать (он работал на моем предыдущем P C), но это не работает сейчас; при попытке выбрать только вопросительные знаки.

Изменить с Win7 и VS 2015 на Win10 и VS 2019, что может отсутствовать в моем новом P C?

Я ценю помощь в авансовый.

...