VPF::создать невизуальный класс - Форум программистов

kislota

Дата 17.4.2010, 02:06 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 17.4.2010

Репутация: нет
Всего: нет

Вот описание как я делаю но не выходит

Создадим невизуальный класс, который назовем Nevizual, в поле Based On выберем Custom.
Прибавим к созданному невизуальному классу метод - Firstday
В методах класу створився новий метод і в ньому набираємо код метода что позволяет определять первый день месяца. Программа имеет вид:

Код


LOCAL my
my=CREATEOBJECT("Nevizual")
=MESSAGEBOX(my.result(3,2009))
RELEASE my

DEFINE CLASS Nevizual as Custom
    FUNCTION result(m, y as Integer)
        d=DOW(DATE(y, m, 1))
        DO CASE
            CASE d=1
                res='Неділя'
            CASE d=2
                res='Понеділок'
            CASE d=3
                res='Вівторок'
            CASE d=4
                res='Середа'
            CASE d=5
                res='Четвер'
            CASE d=6
                res='П`ятниця'
            CASE d=7
                res='Субота'
            OTHERWISE
                res='Помилка'
        ENDCASE
        RETURN res
    ENDFUNC
ENDDEFINE

И как только я ввожу текст проги и пытаюсь закрыть это окно, в котором набирала, то пишет ошибку:

Methods and events cannot contain nested procedures or class definitions.

Может я что-то не так делаю? Помогите плз!

Это сообщение отредактировал(а) kislota - 17.4.2010, 14:39

Присоединённый файл ( Кол-во скачиваний: 2 )

______________________________.doc 89,00 Kb

Cashey

Дата 22.4.2010, 09:58 (ссылка)

(нет голосов)

Загрузка ...

Бессмертный

Профиль
Группа: Завсегдатай
Сообщений: 3441
Регистрация: 13.11.2002
Где: в столице

Репутация: 13
Всего: 60

в приведенном коде ошибки нет.
какое окно вы пытаетесь закрыть и что в нем делаете?

--------------------

библия учит любить ближнего, а камасутра обучает как именно

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Foxpro/Clipper/Dbase \| Следующая тема »