Что-то типа eval

[kirrun]

Похожая тема уже была вот тут: http://bbs.vbstreets.ru/viewtopic.php?t ... ight=forms

Как такое же провернуть для textbox или для переменной?

[Amed]

Почему я даже ВБ не открывал? ;/

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

Controls("text1").Visible = False

А для переменной... Заведи 2 параллельных массива. Один для переменных, второй - для их описаний. Понятна идея?

[kirrun]

1) Видимо, ВБ ты не открывал тк я не догадался нажать ф2, а ты это знал и так

2)А вот про переменные не понятна идея

[Amed]

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

Option Explicit

Private ArrayA(1 To 100) As Variant 'variable
Private ArrayB(1 To 100) As String  'description

Public Function GetVar(Description As String) As Variant
Dim i As Long

GetVar = vbNullString

For i = LBound(ArrayA) To UBound(ArrayA)
    If ArrayB(i) = Description Then
        GetVar = ArrayA(i)
        Exit For
    End If
Next i
End Function

Public Sub SetVariables()
ArrayB(1) = "Speed"
ArrayA(1) = 256
End Sub

Private Sub Form_Load()
SetVariables
Dim ret As Variant
ret = GetVar("Speed")
If ret = vbNullString Then
    MsgBox "Variable 'Speed' not found!"
Else
    MsgBox "'Speed': " & ret
End If
End Sub

[Ennor]

... Заведи 2 параллельных массива. Один для переменных, второй - для их описаний. Понятна идея?

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