проблема в VB

[Max_T]

В одной проге написанной в VB возникла проблема

В TextBox в Form1 выводится “Form2.Label1” (оно выбирается произвольно)

Нужно чтобы получилась следующая строка

Form2.Label1.visible=true

или если произвольно в TextBox “выбралось” “Form2.Label2” то строка должна быть

Form2.Label2.visible=true

Как это сделать подскажите

У самого пока какая та лажа получается

[SHARKenstein]

Можно поподробнее? Что надо? Приведи кусок текста из проги, по какому действию должно что-то куда-то писаться.

Тебе надо чтобы в текстбоксе вылез текст "Form2.Label1.visible=true" или что?

и что за "если произвольно"?

Вроде всё просто должно быть, тока нифига не понятно что же тебе надо получить.

[Max_T]

в форме 2 есть 5 Label у всех visible=false

Нужно чтобы 3 произвольно (выберались каждый раз новые 3) visibel =true,

но при вводе определенного пароля в форме 1

[gvozd]

Так в чем проблема?

Например, пароль VB, жмем на кнопку, выполняется событие

If Text1.Text = "VB" Then Form2.Label1.Visible = True

А чтобы произвольно выбиралось, надо создать массив из Label, потом функцией Rnd выбирать число, а потом делать примерно так: Label(i).Visible = True

Тебе это надо?

[Max_T]

Есть вот такой кусок поги:

Text16 = Text16 + 1

If Text9 = Text25 And Text10 = Text26 then

Form2.Text2 = 1

Else

Form2.Text2 = 0

End If

Проблема !!!

необхадимо что бы цифра 2 в имени Text2 была равна Text16

На пример: Text16 = 15

If Text9 = Text25 And Text10 = Text26 then

Form2.Text15 = 1

Else

Form2.Text15 = 0

End If

как это сделать ?

[gvozd]

Max_T

Если честно, я опять ничего не понял. :D Ты хочешь поменять имя или текст? Если имя, то ты никак его не поменяешь, хотя, если тебе не их как-то отличать используй свойство Tag.

[kan]

ничего не понял, но думаю что-то вроде этого должно подойти

Private Sub Text1_Change()

Dim i%

If Text1.Text = "MY_PASS" Then

Do

Randomize

If Not form2.Label(Rnd(10)).Visible Then

form2.Label(Rnd(10)).Visible = True

i% = i% + 1

End If

Loop While i% < 3

End If

End Sub

[SHARKenstein]

Так, мне чего-то непонятно, почему у Max_T используется Text16=Text16+1 или это для сокращения он написал? ведь по идее надо Text16.Text=val(Text16.Text)+1

Max_TВместо того, чтобы нам ломать голову над тем, что же тебе нужно, может ты поставиш перед нами изначальную задачу? А то как-то непонятно...

И как это "что бы цифра 2 в имени Text2 была равна Text16"? Тебе надо чтобы Text2 превратился в Text16 чтоль? Ваапще нихрена не понятно, но разобраться хочется. Попробуй объяснить более развернуто, ничего не упуская.

Kan А ты для какой версии басика писал?

Вот точно твой же код:

Private Sub Text1_Change()If Text1.Text = "MY_PASS" Then   For i=1 to 3      Randomize      If Not form2.Label(Rnd(10)).Visible Then form2.Label(Rnd(10)).Visible = True   Next iEnd IfEnd Sub