| Вопрос: Вопрос ! | Добавлено: 03.05.04 11:28 |
Автор вопроса:  Hi
|
|
Люди помогите!!! Подскажите пожалуйста как передать строковую переменную из одного UserControl в другой ???? |
| Ответы | Всего ответов: 7 |
|
Номер ответа: 1 Автор ответа: dNW Вопросов: 30 Ответов: 683 |
Профиль | | #1 | Добавлено: 03.05.04 12:25 |
| В смысле UserControl. ActiveX твой самопальный что-ль? | ||
|
Номер ответа: 2 Автор ответа:  sne Разработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #2 | Добавлено: 03.05.04 14:12 |
|
Как Public объяви какое-нить служебное свойство/функцию/процедуру, и присваивай/передавай строку... |
||
|
Номер ответа: 3 Автор ответа:  Hi Вопросов: 3 Ответов: 8 |
Профиль | | #3 | Добавлено: 03.05.04 15:20 |
|
Хм чета не выходит с Public. Написал Public strok as string в перовм UC, присвоил ей значение,а в другом UC написал , что если значение строки такое-то, то делаем то-то: но ничего не выходит У меня обычный проект Project1.vbp и в нем несколько UserControl вот на пример как в формах Form1.text1.text=Form2.text1.text но в UC такого не могу сделать, там пишу имя и никакой реакции не знаю, может я чего-то не понял... |
||
|
Номер ответа: 4 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #4 | Добавлено: 03.05.04 15:44 |
|
Значит стоит попробовать объявить ее в модуле, объявить у UserControl'a, Public Proprty Get Text as String, Proprty Let Text (in Str as String)... |
||
|
Номер ответа: 5 Автор ответа: HiВопросов: 3 Ответов: 8 |
Профиль | | #5 | Добавлено: 03.05.04 16:14 |
|
всеравно ни как, ведь строка еще и менятся должна =0 кароче ченить придумаю, мож еще раз попробую. Sne все-таки большое спасиба за помощь! |
||
|
Номер ответа: 6 Автор ответа:  Дмитрий ЩаповВопросов: 71 Ответов: 321 |
Профиль | | #6 | Добавлено: 03.05.04 17:39 |
|
Не, ты чего-то недопонял or не так сделал. Вот я потратил 2 минуты своей драгоценной жизни и всё нормально получается... Короче создал контрол , на негог кинул Button и TextBox и Timer - ну это всё для проверки. Ну и написал (одну * 19) строчку: А, да. Ещё на форму кинул три(3) таких экземпляра. ээээээээээээээээээээээээээээээээээээээээээээээээ Public St As String Option Explicit Private Sub ИзменяемВсёНах(НовоеЫмя As String) 'Ну, это короче изменять в др контролах Dim Obj As Object For Each Obj In UserControl.Parent If TypeOf Obj Is UserControl1 Then Obj.St = НовоеЫмя End If Next End Sub Private Sub Command1_Click() ИзменяемВсёНах Text1 End Sub Private Sub Timer1_Timer() Cls Print St End Sub |
||
|
Номер ответа: 7 Автор ответа: HiВопросов: 3 Ответов: 8 |
Профиль | | #7 | Добавлено: 03.05.04 19:50 |
|
Dimm ага спасиба, вроде работает |
||
Страница: 1 |