Имя переменной сделать её значением.

[Memfivosfey]

Люди, Доброй НОЧИ всем капец, Даже и не знаю, как тольком объяснить, надеюсь, что меня здесь с полу слова поймут

Допустим:

Dim A as string

A="text1.enable" нада енто значение программе указать как свойство и присвоить значение, Тобишь text1.text = True, и шоб в программе TextBox действительно включился. Воощем КАПЕЦ, сам не могу толком понять, шо я хочу... сорри, в поиск не лез бо голова дубовая, да и искать ненаю чё.

[tyomitch]

CallByName

[Memfivosfey]

Так, немнога разобрался, спасибо Огромное Но вот теперь возник вопрос:

А если я хочу работать не с ТекстБоксом, а непосредственно со всей формой и не одной, например в переменную A забивать значения:

A="Form1"
A="Form2"
A="Form3"

и подставляя под значение переменной A ".show" отдавать комманды разным объектам(формам)?

пока, как я понял, я могу делать это только так, есть другие варианты?

CallByName Form1, show , VbMethod
CallByName Form2, show , VbMethod
CallByName Form3, show , VbMethod


Пасиба огоромное

[tyomitch]

См. коллекцию Forms

[Memfivosfey]

Не сорьки, не разобрался подскажите плиз...

[Amed]

Forms("Form1")

[Memfivosfey]

Ребя вы меня простите, но я не могу разобратся, можно чуток кода в пример? Я просто не могу понять сам синтаксис использования CallByName, Forms("Form1") и её свойств


З.Ы.
Сорри, я думал и разбирался... Чесно старался.

[uhm]

Запутали человека Тут CallByName не нужен. Если у тебя значение переменной A = "Form1" и есть форма с таким именем, то достаточно написать

Forms(A).Show

[Memfivosfey]

Forms("Form1").Show

А он мне на это пишет Type MisMath

[Amed]

Все совсем не так

Сначала, перебрав всю коллекцию Forms, найди индекс нужной формы по ее имени, затем обращайся к ней через Forms(Index).

[Memfivosfey]

Короче, так мне никто ничего и не пояснил по конкретней... Хоть бы кто реально примерчик какой-нить... Я прост с этими весчами никада не сталкивался Сам пытался разобратся не могу, а тут такое дело, столкнулся... нада..

И ещё, мож кто подскажет такие ещё весчи:
Как можно мой "Exe" убрать из Апликаций в Диспетчере. Он у меня как утилитка висит, пусть бы в процессах отражался, а в Приложениях нет.

И ещё одно, нашёл функцию, при помощи которой выносятся ярлыки на рабочий стол, в автозагрузку и т.п. Дык когда её подключаю к проекту, стартую, ещё даже не создавая ярлыков проект вылетает с ошибкой VB совершил не допустимую операци и т.п. Вот кусок кода, который я сую в Модуль.

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

Private Declare Function fCreateShellLink Lib "VB6STKIT.DLL" _
(ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, _
ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long
---------------------------------------------------------------------------------
Function LnkToWorkTable(Path As String, Title As String) As Long
    LnkToWorkTable = fCreateShellLink("..\..\Desktop", Title, Path, "")
End Function
---------------------------------------------------------------------------------
Function LnkToMenuPrograms(Path As String, Title As String) As Long
    LnkToMenuPrograms = fCreateShellLink("..\..\Start Menu\Programs", Path, Title, "")
End Function
---------------------------------------------------------------------------------
Function LnkWindowStartUp(Path As String, Title As String) As Long
    LnkWindowStartUp = fCreateShellLink("\Startup", Title, Path, "")
End Function

Буду оч. благодарен, за любые подсказки, которые могут привести меня к результату

[Amed]

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

Private Sub Form_Load()
Load Form2
Call CallFormByName("Form2", "Show", VbMethod, vbModal)
End Sub

Private Sub CallFormByName(Name As String, ProcName As String, CallType As VbCallType, Args As Variant)
Dim frm As Form

For Each frm In Forms
    If frm.Name = Name Then
        CallByName frm, ProcName, CallType, Args
        Exit For
    End If
Next
End Sub

Тут есть косяк - я не помню, как передать ParamArray (Args) функции CallByName.

[Хакер]

И ещё, мож кто подскажет такие ещё весчи:
Как можно мой "Exe" убрать из Апликаций в Диспетчере. Он у меня как утилитка висит, пусть бы в процессах отражался, а в Приложениях нет.

App.TaskVisible = False.