Цитата:
А вот пример (не то, что ты просил, но для начала, думаю, сойдёт):
Создай новый проект Standart EXE, перейди в режим работы с формой (форма - это заготовка окна, увидишь - поймёшь), положи на неё объект Timer (его можно выбрать слева на тулбоксе). Выставь таймеру свойства interval=100 и enabled=true. (на панели справа, если её нет, то правый клик на таймере - свойства) Теперь сделай на таймере двойной щелчок. Откроется окно редактирования кода. Уже будет автоматом создана процедура, обрабатывающая событие Timer1_Timer (у таймера бывает только событие Timer, у других элементов их больше, напр. у кнопки - "Click", "MouseMove" и прочие) Вставь следующий код между "private sub Timer1_timer" и "End Sub"
Код:static napravleniex as single
static napravleniey as single
form1.top = form1.top + napravleniey*100
form1.left = form1.left + napravleniex*100
if form1.top > screen.height - form1.height then
form1.top = screen.height - form1.height
napravleniey = -napravleniey
end if
if form1.left > screen.width - form1.width then
form1.left = screen.width - form1.width
napravleniex = -napravleniex
end if
Сделав это, нажми F5, чтобы запустить проект и посмотри что вышло.
Создай новый проект Standart EXE, перейди в режим работы с формой (форма - это заготовка окна, увидишь - поймёшь), положи на неё объект Timer (его можно выбрать слева на тулбоксе). Выставь таймеру свойства interval=100 и enabled=true. (на панели справа, если её нет, то правый клик на таймере - свойства) Теперь сделай на таймере двойной щелчок. Откроется окно редактирования кода. Уже будет автоматом создана процедура, обрабатывающая событие Timer1_Timer (у таймера бывает только событие Timer, у других элементов их больше, напр. у кнопки - "Click", "MouseMove" и прочие) Вставь следующий код между "private sub Timer1_timer" и "End Sub"
Код:static napravleniex as single
static napravleniey as single
form1.top = form1.top + napravleniey*100
form1.left = form1.left + napravleniex*100
if form1.top > screen.height - form1.height then
form1.top = screen.height - form1.height
napravleniey = -napravleniey
end if
if form1.left > screen.width - form1.width then
form1.left = screen.width - form1.width
napravleniex = -napravleniex
end if
Сделав это, нажми F5, чтобы запустить проект и посмотри что вышло.
Сделал .Получилоссь окно формы,кот имеет вверху справа 3 знака:свернуть,развернуь,закрыть.И при нажатии на любой згнак выдаётся ошибка run-time "384" Потом нажал в окне сообщения ошибки и вывелась подсвеченная строка :
Form1.Top = Form1.Top + napravleniey * 100 Похоже указывает на какую-то ошибку.
Каждый язык подходит лишь для определённого круга задач. Универсальный язык будет одинаково неблестяще справляться со всеми задачаим. ИМХО.
