Visual Basic+TextBox+Module

[Leonidas]

Есть проект с 10-ю формами. На каждой форме 1 Textox  и
одна кнопка. Если кнопка на форме нажимается ,в Texfboxe  пишется "выбор".Видна всегда только одна форма.Как при помощи модуля сделать так, чтобы на каждой форме (при ее открытии) в ТеxtBox  стояло :"Уже  выбрано".  Спасибо!

[bigm]

Есле я правильно понял то ты просто напиши в коде каждой кнопки типа на этой форме TextBox ВЫБРАНО, а в других уже выбрано.
:)

[melix]

Как я понял, сообщение "Уже выбрано" должно присутствовать на данной форме, если предварительно была нажата кнопка на другой форме, тогда надо объявить в модуле логическую переменную, скажем vibor:

Public vibor As Boolean

а в button_click:

If vibor=true then
 txtBox.text="Уже выбрано"
else
 vibor=true
end if

[Vavanchik]

Да, а если vibor заявить как integer и при нажатии каждой кнопки vibor'у присваивать значения 1,2,3 и т.д., то можно текст-боксах ещё и указывать, что именно выбранно. Изначально vibor=0 (при загрузке первой формы, например)

Public vibor as integer
Public kind as string
.
.
Private button1_click sub()
* *if i then
* * * Select case i
* * * * * * case 1
* * * * * * * * * s="мясо"
* * * * * * case 2
* * * * * * * * * s="рыба"
.
.
* * * *end select
* * * *textBox.text="Уже выбрано - " & s
* *else
* * * *vibor=1 (или 2,3.. в зависимости от того, какая кнопка нажата)
* *end if
.
.
End sub
:biglaugh: