VBA

Admiral · Отправлено: **16:08, 25-06-2008** | #**141**

Самый близкий к For Each ... Next цикл For ... Next вот на примере их сравнивание и покажу разницу.
For Each ... Next удобен, когда необходимо проделать действия с каждым элементом массива, не задумываясь о количестве его элементов

Код:

Sub AddNamesToList(ByVal ParamArray NamesArray() As Object)
Dim x As Object
For Each x In NamesArray
ListBox1.Items.Add(x)
Next x
End Sub

после этого в коде пишем AddNamesToList("A", "B", ...."Пока не надоест ")
Для цикла на базе с For ... Next потребуется уточнения про количество параметров, которые передаются

Код:

Sub AddNamesToList(ByRef I As Integer, ByVal ParamArray NamesArray() As Object)
Dim x As Integer
        For x = ListBox1.Items.Count + 1 To ListBox1.Items.Count + I
        ‘ListBox1.Items.Add(NamesArray(Rem...))
        Next x
End Sub

AddNamesToList(3, "A", "B", "Теперь указанно, что три элемента ")
и намного больше времени на адаптацию самого кода добавления в список, что б получить тот же эффект что и в предыдущем коде.
С другой стороны иногда требуется сделать выборку не по всем элементам массива, тогда удобнее For ... Next. Да можно и в For Each ... Next указать через If/Select Case и т.д. какие элементы интересуют, но это уже усложнения, проще взять For ... Next, например указывая только чётные элементы

Код:

For iCounter = 0 to 10 Step 2
...
Next iCounter

Вот ещё два примера сравнений двух структур

Код:

Dim i As Integer
For i = 0 To ListBox1.Items.Count - 1
{ statements to process item ListBox1.Items(i) }
Next
...
Dim itm As Object
For Each itm In ListBox1.Items
{ process the current item, represented by the itm variable }
Next

http://www.askit.ru/custom/progr_adm...ript_loops.htm страница хоть и про VbScript но объяснение про циклы катит.

Uzvern · Конфигурация компьютера

У меня есть перменная.

Код:

Dim AllDrive() As ArrayList

Мне нужно сделать, чтобы в неё добавлялись пареметры. Как это сделать?

Admiral · Отправлено: **18:59, 26-06-2008** | #**143**

Код:

        AllDrive.Add("a")
        AllDrive.Add("b")
        AllDrive.Add("c")
'...

ArrayList.Item Property

Uzvern · Конфигурация компьютера

Код:

Debug.Print("Element {0} is ""{1}""", 2, stringList(2))

Хы, прикольная штука. А её ещё где-нить можно применить?

Как сделать, чтобы курсор был по середине кнопки?

Admiral · Отправлено: **18:18, 27-06-2008** | #**145**

http://msdn.microsoft.com/en-us/libr...ics.debug.aspx
Только в отладке разработчиком, пользователю оно не доступно.

Это когда проводишь курсором на кнопке, что б он по центру выскакивал, или когда где-то на форме и нужно указать его положение по центру кнопки?
В любом случаи команда
Windows.Forms.Cursor.Position = New System.Drawing.Point(Button1.Location.X + Me.Location.X + 50, Button1.Location.Y + Me.Location.Y + 30)
в первом случаи её нужно указать в событии на движении по нужной кнопке, а во втором по движению на форме.
Вспомогательные координаты необходимо будет подрегулировать в зависимости от размеров кнопки.

Uzvern · Конфигурация компьютера

Admiral, о, спасибо. Вот ещё задачка :

Как мне во вторую колонку добавить текст?

Код:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim ListView1 As New ListView

        Controls.Add(ListView1)
        ListView1.Dock = DockStyle.Fill
        ListView1.View = View.Details

        With ListView1.Items
            .Add("1")
            .Add("2")
            .Add("3")
            .Add("4")
            .Add("5")
        End With

        ListView1.Columns.Add("1", 70)
        ListView1.Columns.Add("2", 70)

    End Sub
End Class

На первый вопрос - решение найдено :

Как можно создать ярлык?

Admiral · Отправлено: **16:00, 28-06-2008** | #**147**

Ещё как вариант

Код:

With ListView1
            .Items(0).SubItems.Add("1")
            .Items(1).SubItems.Add("2")
            .Items(2).SubItems.Add("3")
            .Items(3).SubItems.Add("4")
            .Items(4).SubItems.Add("5")
End With

Повторное использования кода добавит указанные значения в третью колонку, при условии, что она существует. В VB.NET принято заполняют ряды, а потом разбивать их по колонкам.
ListView.Columns Property

Create shortcuts with a .NET application*

*Примечание

Uzvern · Конфигурация компьютера

Как узнать номер выделеного эллемента в ListView1?

Admiral · Отправлено: **20:24, 02-07-2008** | #**149**

ListView1.SelectedItems.Item(0)

Uzvern · Конфигурация компьютера

Admiral, этот код позволяет щелкнуть 1 раз, дальше выдает ошибку :

Код:

InvalidArgument=Value of '0' is not valid for 'index'. Parameter name: index

Код:

Public Class Form1

    Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
        Me.Text = ListView1.SelectedItems.Item(0).Text
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        With ListView1.Items
            For a As Integer = 1 To 10
                .Add(a)
            Next
        End With
    End Sub
End Class