[Uzvern]

В чем различие

Код:

Next и Next(x) в цикле For(Each)(x)

Например,

Код:

        For FEE As Integer = 0 To DisplayOfValues - 1
            SB.Append(Args(FEE))
       Next

Код:

        For FEE As Integer = 0 To DisplayOfValues - 1
            SB.Append(Args(FEE))
        Next FEE

[Delirium]

НИКАКОГО просто в старых версия basic'a необходимо было писать next FEE, а потом упростили и сделали без FEE. Можно писать обоими способами

[Uzvern]

А можно как-то по быстрому заполнить ListBox значение из алфавита?
чтобы не писать вот так

Код:

            ListBox1.Items.Add("A")
            ListBox1.Items.Add("B")
            ListBox1.Items.Add("C")
            ListBox1.Items.Add("D")
            ListBox1.Items.Add("E")
            ListBox1.Items.Add("F")
            ListBox1.Items.Add("G")

или так

Код:

        With ListBox1.Items
            .Add("A")
            .Add("B")
            .Add("C")
            .Add("D")
            .Add("E")
            .Add("F")
            .Add("G")
        End With

а как-то побыстрей. там вроде как-то можно через For или чет типо того, но точно не уверен...

[Delirium]

Смотрите в сторону CHR - то есть это функция, возвращающая символ по коду. К примеру chr(65) - "а" - по моему. chr(66) - "б".
О, нашел в MSDN:

Код:

Dim associatedChar As Char
' Returns "A".
associatedChar = Chr(65)
' Returns "a".
associatedChar = Chr(97)
' Returns ">".
associatedChar = Chr(62)
' Returns "%".
associatedChar = Chr(37)

Соотв-но, надо найти коды русских букв и запулить их через for-next

Parameters CharCode Type: System..::.Int32 Required. An Integer expression representing the code point, or character code, for the character. If CharCode is outside the valid range, an ArgumentException error occurs. The valid range for Chr is 0 through 255, and the valid range for ChrW is -32768 through 65535.

______

[Uzvern]

ЗАчем их искать, если можно тупо самому их узнать

Коды всех символов всего 255

Код:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim RB As New RichTextBox
        RB.Dock = DockStyle.Fill
        Controls.Add(RB)
        For Chars As Integer = 0 To 255
            If Chars <> 255 Then
                RB.Text &= Chr(Chars) & " - " & Asc(Chr(Chars)) & Chr(13)
            Else
                RB.Text &= Chr(Chars) & " - " & Asc(Chr(Chars))
            End If
        Next
    End Sub
End Class

Об этом я знал, просто думал, что можно как-то ещё...

[Delirium]

Коды всех символов всего 255 »

valid range for ChrW is -32768 through 65535. »

ну и не 255 их, а чутка побольше

Об этом я знал, просто думал, что можно как-то ещё... »

а зачем изобретать велосипед, если все уже есть

[Uzvern]

Скажем так : я любознательный и хочу знать больше

valid range for ChrW is -32768 through 65535.»

ухух...надо бы как то их тоже достать

[Uzvern]

Почему данный код не срабатывает?

Код:

Me.Controls.AddRange(New Object() {L, TB, B, C})

[Delirium]

Почему данный код не срабатывает? »

Дык вы приведите хотя бы часть кода и описание ошибки, тогда и видно будет, почему не срабатывает

[Uzvern]

Хочу добавить на форму объекты

Error

Код:

Не удалось привести тип объекта "System.Object[]" к типу "System.Windows.Forms.Control[]".

Code

Вот так все прекрасно добавляется

Код:

        With Controls
            .Add(L)
            .Add(B)
            .Add(TB)
            .Add(C)
        End With

А вот так не хочет

Код:

    Dim L As New Label
    Dim B As New Button
    Dim TB As New TextBox
    Dim C As New CheckBox

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            Me.Controls.AddRange(New Object() {L, B, TB, C})
        Catch ex As Exception
            MsgBox(ex.Message)
            Clipboard.SetText(ex.Message)
        End Try
    End Sub

Исходя из ошибки пробовал заменить Object на Control, но тогда вообще никакой ошибки не выскакивает, но и объекты тоже не добавляются!