| Вопрос: Как преобразовать переменную из String в Object ? | Добавлено: 10.04.05 09:40 |
Автор вопроса:  mistershem | Web-сайт: inf.susu.ac.ru/~shem_a
|
| Как преобразовать переменную из String в Object ? |
| Ответы | Всего ответов: 7 |
|
Номер ответа: 1 Автор ответа:  mistershem Вопросов: 8 Ответов: 16 |
Web-сайт: Профиль | | #1 | Добавлено: 10.04.05 10:07 |
| Я читаю из базы данных имена элементов (они находятся в строковом поле), эти элементы подставляются в переменную соответственно текстовую, как мне переделать их в тип OBJECT. Если это ваще возможно. | ||
|
Номер ответа: 2 Автор ответа: GSerg Вопросов: 0 Ответов: 1876 
|
Профиль | | #2 | Добавлено: 10.04.05 12:42 |
Сначала бы узнать зачем 
|
||
|
Номер ответа: 3 Автор ответа: ПавелАдминистратор ICQ: 326066673 Вопросов: 368 Ответов: 5968 |
Web-сайт: Профиль | | #3 | Добавлено: 10.04.05 13:18 |
|
Если имеется в виду .NET, то
Dim str As String = "abc" Dim obj As Object = CObj(str) |
||
|
Номер ответа: 4 Автор ответа: mistershemВопросов: 8 Ответов: 16 |
Web-сайт: Профиль | | #4 | Добавлено: 12.04.05 16:16 |
|
To GSerg: Сначала бы узнать зачем
------------------------------------ Чтобы много раз руками не вводить инфу в текстовые поля (введем их один раз и все), берем из БД имена полей и вводим автоматически. Для этого надо. |
||
|
Номер ответа: 5 Автор ответа: mistershemВопросов: 8 Ответов: 16 |
Web-сайт: Профиль | | #5 | Добавлено: 12.04.05 16:17 |
|
To Павел: Если имеется в виду .NET, то
Dim str As String = "abc" Dim obj As Object = CObj(str) ----------------------------------------------- Спасибо, но увы имелось ввиду не .NET, а Visual Basic 6.0 |
||
|
Номер ответа: 6 Автор ответа: MorpheusВопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #6 | Добавлено: 12.04.05 16:29 |
|
Пытался... короче ерунда какая то получилася... может кто нибудь знает, как можно исправить следующий код, или он в корне неверный?
Dim s As String 'textbox name
Dim t As String 'var pod text Private Sub Command1_Click() s = "Text1" 'TextBoxName t = "It works!!!" 'znachenie SetTextAAA s, t End Sub Sub SetTextAAA(ByRef sOb As TextBox, txt As String) sOb.text = txt 'zadaem text End Sub |
||
|
Номер ответа: 7 Автор ответа: MorpheusВопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #7 | Добавлено: 12.04.05 16:30 |
| (Забыл написать- ByRef-это я зря сделал, но и без него тоже не пашет!) | ||
Страница: 1 |