3D текст на форме: исправить код

@me007 · Регистрация: 23.10.2012

Студворк — интернет-сервис помощи студентам

на сайте нашел программу для 3D текста, но у меня пишет ошибку, помогите решить

заранее благодарен

1) программа для 3D
'Установите свойство формы AutoRedraw как True

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Private Sub Form_Load()   
    Dim ShadowX   
    Dim ShadowY   
    ScaleMode = 3   
    ForeColor = "&H808080"   
    ShadowY = 5   
    ShadowX = 5   
    For I = 0 To 5   
    CurrentX = ShadowX + I   
    CurrentY = ShadowY + I   
    If I = 5 Then Form1.ForeColor = vbWhite   
    Form1.Print "3D Text!!!"   
    Next   
    End Sub

2) ошибка в приложении

@proft · 16.12.2012, 13:24

Объяви переменную "а".

Добавлено через 1 минуту
Перед процедурой

Visual Basic
1
Private Sub Form_Load()

Объяви переменную "а".

Visual Basic
1
Dim a as integer

dev.Free · 16.12.2012, 14:58

Ты смотри все таки я не зря начал создавать ту тему с кодами! И вообще:

Option Explicit вредная штука, ФУ КАКА !

@me007 · 16.12.2012, 15:21 **[ТС]**

не зря

Новые блоги и статьи Все статьи Все блоги /
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .

dev.Free Заблокирован
	16.12.2012, 14:58
	Ты смотри все таки я не зря начал создавать ту тему с кодами! И вообще: Option Explicit вредная штука, ФУ КАКА ! 1

@me007 0 / 0 / 1 Регистрация: 23.10.2012 Сообщений: 135
	16.12.2012, 15:21 [ТС]
	не зря 0