| Вопрос: А как объявить аргумент неизвестного типа в фун... | Добавлено: 05.08.03 09:43 |
Автор вопроса:  simple-den | Web-сайт: simple-den.h1.ru
|
| Я создаю функцию и хочу определить аргумент as Variant как было раньше, т.е. неопределенного типа |
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа: Tovdi ICQ: 160516960 Вопросов: 13 Ответов: 37 |
Профиль | | #1 | Добавлено: 05.08.03 10:15 |
|
Еквивалентом Variant в VB.NET стал тип Оbject |
||
|
Номер ответа: 2 Автор ответа: simple-den Вопросов: 4 Ответов: 6 |
Web-сайт: Профиль | | #2 | Добавлено: 05.08.03 10:31 |
| Однако возвращать неопределенный тип типа Object не получается | ||
|
Номер ответа: 3 Автор ответа: TovdiICQ: 160516960 Вопросов: 13 Ответов: 37 |
Профиль | | #3 | Добавлено: 05.08.03 12:17 |
|
Незнаю, у меня все ОК. Например: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim a As Integera = aa(1) End SubPublic Function aa(ByVal a As Object) As Objectaa = a + 1 End FunctionМожет кинь свой пример |
||
|
Номер ответа: 4 Автор ответа: simple-denВопросов: 4 Ответов: 6 |
Web-сайт: Профиль | | #4 | Добавлено: 05.08.03 12:22 |
|
Public Function Значение(ByVal Ряд As Integer, ByVal Кол As Integer, Optional ByVal Зн As Object = Nothing) As ObjectIf Зн = Nothing ThenReturn лист.Cells(Ряд, Кол).Value End IfIf лист.Cells(Ряд, Кол).Value() = 0 Thenлист.Cells(Ряд, Кол).Value() = Зн Elseлист.Cells(Ряд, Кол).Value() = лист.Cells(Ряд, Кол).Value() + Зн End IfReturn 1 End Function |
||
|
Номер ответа: 5 Автор ответа: simple-denВопросов: 4 Ответов: 6 |
Web-сайт: Профиль | | #5 | Добавлено: 05.08.03 12:29 |
|
While Таб.Значение(Таб.Ряд, 1) <> ""а вот здесь ругается |
||
Страница: 1 |