вопрос по переменным

[bevaine2000]

может и встречался этот вопрос, но я не знаю по какие ключевым словам искать. Как присвоить названию переменной значение из другой переменной?
например:

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

A = "VAR1"
А = "VAR2" ' тоесть получается VAR1 = "VAR2"


[Konst_One]

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

Dim var1 as string
Dim var2 as string

var1="A"
var2="B"

debug.Print "var1=" & var1 & vbtab & "var2=" & var2

var1=var2

debug.Print "var1=" & var1 & vbtab & "var2=" & var2

[uhm]

Konst_One, мимо.


bevaine2000, непонятно, зачем такое может понадобиться в собственной программе, но, если уж нужно, работающий способ указан здесь: http://bbs.vbstreets.ru/viewtopic.php?p=128416#128416
Не знаю, правда, подойдет ли в твоем случае.

[Konst_One]

тогда коллекция с именованным индексом

[uhm]

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

[RayShade]

А зачем это вообще?

[bevaine2000]

тогда коллекция с именованным индексом

так и зделал
но вот другая проблема, на ивент не откликается:

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


Private WithEvents sss As CommandButton

Private Sub sss_Click()
   MsgBox "This is a dynamically added button."
End Sub

Private Sub Command1_Click()
Dim sss(100) As CommandButton
For d = 1 to 10
Set sss(d) = Controls.Add("VB.CommandButton", "sss" & d)
With sss(d)
   .Caption = "dddddddddddddd"
   .Visible = True
   .Width = 2000
   .Height = 615
   .Top = 500
   .Left = 500
End With
Next
End Sub



[tyomitch]

WithEvents массивы контролов не бывают.

[bevaine2000]

WithEvents массивы контролов не бывают.

без WithEvents тоже не работает, люди дайте пожалуйста рабочий пример

[tyomitch]

Рабочий пример в поиске.

Комментарий: ты хоть осознаёшь, что sss(100) в Sub Command1_Click и sss на форме -- это две разные, совершенно никак не связанные переменные?

[bevaine2000]

не найду ни как рабочий пример , по идеи sss это будет массив кнопок, и по идеи должен реагировать на:

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

Private Sub sss_Click(Index As Integer)


но не работает не фига.

[alibek]

Дубль два.
WithEvents массивы контролов не бывают.

[vvs_adm]

Делай одну кнопку в дизайнере с индексом 0 и не мучайся. Потом динамически подгружай через Load(...). И будут они у тебя прекрасно на эвенты откликаться.

[bevaine2000]

Делай одну кнопку в дизайнере с индексом 0 и не мучайся. Потом динамически подгружай через Load(...). И будут они у тебя прекрасно на эвенты откликаться.

я не понял как через load добавлять новые кнопки на форму, можно примерчик

[Viper]

Как то так:

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

Load btnMyButton(i)

З.Ы. А что, справку и MSDN отменили?