| Вопрос: Передача объектов в функцию | Добавлено: 21.03.08 19:29 |
Автор вопроса:  Михаил
|
| Доброго времени суток. У меня вапрос: Как осуществить передачу объектов в функцию? (В моем случае это объекты автокада) |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:    Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | | #1 | Добавлено: 21.03.08 19:53 |
|
Private Sub Form_Load()
Call MyFunc(Me) End Sub Function MyFunc(mObj As Object) MsgBox mObj.Name End Function |
||
|
Номер ответа: 2 Автор ответа: Михаил Вопросов: 3 Ответов: 1 |
Профиль | | #2 | Добавлено: 21.03.08 20:07 |
|
А вернуть обект из функции как нибудь возможно?
Function getProfPoly(cetrPoint As TPoint, angle As Double, profParam As String) As AcadLWPolyline Sub DrawProf(bgPoint As TPoint, edPoint As TPoint, ByRef PrpofLine As AcadLWPolyline) У меня такое не работает |
||
|
Номер ответа: 3 Автор ответа: Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | | #3 | Добавлено: 21.03.08 20:44 |
|
Private Sub Form_Load()
MsgBox GetObject.Name Dim A As Object Call Sdf 
MsgBox A.Name End Sub Function GetObject() As Object Set GetObject = Me End Function Sub Sdf(ByRef Obj As Object) Set Obj = Me End Sub все нормально работает |
||
Страница: 1 |