Новый приём (с Dictionary)

[Filyus]

Нигде его не видел, поэтому считаю, что новый. Для использования Dictionary нужно подключить Microsoft Scripting Runtime.

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

Private Sub Form_Load()
  Dim d As New Dictionary
  d.Add "one", 1
  d.Add "two", 2
  With d
    !one = 3
    !two = !one
    MsgBox !one & " " & !two
  End With
End Sub

[ger_kar]

А в чём суть действа, если честно я нифига не понял, что есть это

[Filyus]

А в чём суть действа, если честно я нифига не понял, что есть это

Dictionary - это ассоциативный массив, то есть каждому элементу соответствует другой элемент (обычно строка, т.е. "ключ"). Сперва добавляем в массив два элемента: 1 и 2 с ключами "one" и "two" соответственно, а потом обращаемся к нему в упрощённой форме. Суть в том, что "!" (обращение к свойству по умолчанию, в котором есть один параметр-строка) можно использовать в "With".
В обычном виде это выглядело бы так:

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

Private Sub Form_Load()
  Dim d As New Dictionary
  d.Add "one", 1
  d.Add "two", 2
  d("one") = 3
  d("two) = d("one")
  MsgBox d("one") & " " & d("two)
End Sub