[Admiral]

Тоже что и комбинация Ctrl+Z в большинстве программ, возвращает предыдущие значение.
Только я, когда с примера переписывал, ошибся. Это свойство нужно применять к RichTextBox1, после того как всё найдено и подкрашено, что б убрать покраснение.

[Uzvern]

Что делает эта функция :

Код:

CStr()

[Admiral]

CStr Function
Функция CStr

[Uzvern]

Сорри. Затупил

[Uzvern]

Как прописать в тексе ковычки " ?

Все. Разобрался -)

Код:

***.Text = """"

Как можно сделать прозрачный цвет у формы?

И как можно написать самое6 просто приложение : Клиент - Клиент, клиент - сервер

[mrcnn]

Аж четыре кавычки. Нормально реализовать изобреаттелям языка было видимо лень. Лучше бы в виде эскейп последовательностей сделали а не в виде какой-то фигни. Эскейп-последовательности гораздо важнее подсветки синтаксиса и синтаксической проверки на лету. В бейсике все через ж. Лучше на асме писать, чем на бейсике. Там хоть и муторно, но нет таких дбл конструкций как в бейсике и компиляторы нормальная и среда, которая не делает дбл почерки и подчерки. .




Второй способ вставить кавычку Chr(34) этот способ предпочтительнее

Третий способ использовать хак: (replace(string,"'","''"))

Четвертый способ:
Подключить регулярные выражения

Imports System.Text.RegularExpressions
Regex.Escape("\"")

[Admiral]

Ну почему же сразу не придумали? Просто VB программисту проще, наверное, действовать методом проб и ошибок: ага две кавычке как служебные, три как ошибка, ну а на четыре компиллер наконец поймёт чего надобно.
Есть конечно же эстетическое решение: с помощью функции Char у которой есть метод ConvertFromUtf32, перевода ASCII кода в соответствующий табличный стиль. Кто таблицу не помнит, здесь всё же участник помнил, есть функция Asc, которая возвращает код символа согласно таблице ASCII. Да придётся ещё раз забомбить четыре раза кавычки, что б узнать ответ - MsgBox(Asc("""")), кому понравились они и хочется писать запутанный код и вовсе может использовать что-то на подобии MsgBox(Char.ConvertFromUtf32(Asc(""""))), а эстетам всё же предложу MsgBox(Char.ConvertFromUtf32(34)), где 34 это код кавычек.

mrcnn, для C# (скрин из которого был в этой теме) по подчёркиваниям решение уже найдено в теме.

[Uzvern]

Помогите плз. Вообщем необходимо вывести сообщение с первой буквой из каждой строки.

Код:

Public Class Form1
    Dim i1 As String
    Dim i2 As Long = -1
    Dim i3 As String
    Dim i4 As String
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        i1 = RichTextBox1.Text
        Do Until i2 = RichTextBox1.Lines.Length
            i2 = i2 + 1
            i3 = RichTextBox1.Lines(i2).Substring(0, 1)
            i4 = i3 & Chr(13)
        Loop
        MsgBox(i4)
    End Sub
End Class

Не могу понять почему не хочет. + Со списком жестких дисков такое же.

Код:

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim h As Integer = -1
        Do Until h = My.Computer.FileSystem.Drives.Count
            h = h + 1
            RichTextBox1.Text = RichTextBox1.Text & My.Computer.FileSystem.Drives(h).Name
        Loop
    End Sub
End Class

[Admiral]

Dim h As Integer = -1 »

Из каких соображений -1?
-1 всё же нужно, но в другом месте

Код:

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim h As Integer = 0 REM а вдруг дисков вообще нет :), из концепции безопасного кода
        Do Until h = My.Computer.FileSystem.Drives.Count - 1 REM нумерация с нуля, так что на один элемент меньше
            h = h + 1
            RichTextBox1.Text = RichTextBox1.Text & My.Computer.FileSystem.Drives(h).Name
        Loop
    End Sub

[Uzvern]

REM »

Это что такое?

Кстати, как можно определить состояник курсора в строке, т.е. в какой он позиции.