Ошибка синтаксиса - отсутствует

[NashRus]

Код: Выделить всё

Select Case sAction:
Case "sssss
   MsgBox(sAction)
Case "wwwww
   MsgBox(sAction)
End Select

Такая конструкция успешно компилируется в VS2010.
Это из последних улучшений, благодаря которым, в частности, можно знак переноса строки "_" не ставить?

[FireFenix]

в чём вообще проблема?

[NashRus]

Так-то закрывающих кавычек нет, а оно успешно компилируется.

[FireFenix]

Если не стоит закрывающая кавычка, то студия сама её дописывает, после перемещения каретки на другую строку

[NashRus]

Нет, не дописывает:
Снять флаг - Сервис -> Параметры -> Текстовый редактор -> Basic -> Только для VB -> Автоматическое форматирование кода

Я привел листинг, полностью воспроизводящий ситуацию, как он отображается в просмоторщике F3 Total Commander'a.

[FireFenix]

Ну если не дописывает и не ругается, значит умный компилятор сам дорисовывает

Хочешь, чтобы ругался - компиль из коммандной строки

Код: Выделить всё

Module Main
    Public Sub Main()
        Dim a As String = "456"
       
        Select Case a
            Case "123
                MsgBox(a)
        End Select
       
        MsgBox("123")
    End Sub
End Module

Код: Выделить всё

C:\>vbc.exe E:\aaa.txt
Microsoft (R) Visual Basic Compiler version 10.0.30319.1
Copyright (c) Microsoft Corporation.  All rights reserved.

E:\aaa.txt(6) : error BC30648: String constants must end with a double quote.

            Case "123
                 ~~~~
C:\>


[NashRus]

Да, кто-то закрывает.
Но не очень понятно кто.