12. Присвоение значений свойства List элемента ListBox массиву
Далее нам предстоит дописать код, с помощью которого значения массива nameSubj( ) будут изменяться на новые, откорректированные пользователем с помощью действий над lstSubject. Все новые значения хранятся в элементе lstSubject в свойстве List. Наша задача – перенести их в массив nameSubj( ).Очистим массив от предыдущих значений, т.е. присвоим каждому элементу массива значение пустой строки. Это можно сделать в отдельной процедуре, скажем, в первой форме. Назовем ее Clear( ).Составьте для нее код.
Private Sub Clear( )
End Sub
Теперь присвоим всем элементам массива nameSubj( ) значения, находящиеся в свойстве List элементаlstSubject. Сделаем это в коде командной кнопки cmdOut, которую поместим на первую форму. СвойствуCaption присвоим значение “Готово”. Сначала выполним процедуру Clear, затем выясним количество элементов в свойстве List элемента lstSubject, после чего присвоим элементам массива соответствующие строки lstSubject.
Private Sub cmdOut_Click( )
Dim k,i As Integer
Call Clear
k= lstSubject.ListCount
For i = 0 To k - 1
nameSubj(i) = lstSubject(i)
Next i
Call Passage
End Sub
В последней строке кода вызывается процедура Passage( ), в которой первая форма выгружается, а вторая загружается и показывается. Составим ее код.
Private Sub Passage( )
UnLoad frmStandartSubj
Load frmMySubj
frmMySubj . Show
End Sub
Поскольу массив nameSubj( ) глобальный, его значения будут видимы во второй форме. Итак мы закончили работу с первой формой. Вот как она может выглядеть в работе:
13. Печать измененных значений массива на второй форме
Нам осталось распечатать на второй форме значения измененного массива nameSubj( ).Сделаем это в коде командной кнопки, помещенной на вторую форму со значением свойства Caption “Распечатайте названия предметов”. Составьте код самостоятельно:
Private Sub Command1_Click( )
End Sub
Вторая форма в работе проекта может выглядеть приблизительно так:
14. Проверка количества элементов lstSubject, откорректированного пользователем
Возможен случай, что откорректированный список в элементе lstSubject содержит большее количество строк, чем объявленный массив. Чтобы избежать появление ошибки, перед присвоением элементов откорректированного списка lstSubject, нужно убедиться, что количество элементов списка не превышает 16. Если это не так, нужно сообщить об этом пользователю и дать ему возможность исправить ситуацию. Доделайте это самостоятельно.
Лабораторная работа № 25 анимация в visual basic
Цель работы: научиться создавать анимацию на форме.
Задачи: Описать компоненты программы, задать его свойства и определить работу каждого компонента.
Ход работы:
1. Простейшие приемы “малой” анимации
Во многих проектах оказывается уместной “малая” анимация, позволяющая сделать более наглядным для пользователя ход некоторого процесса или изменение некоторого состояния.
Принцип анимации был известен еще до изобретения кинематографа и с тех пор не изменился. Чтобы привести картинку в движение (анимировать, т.е. “оживить” ее), необходимо быстро продемонстрировать последовательность картинок, изображающих фазы движения. Средства Visual Basic предоставляют для этого широкие возможности. Можно перемещать по экрану текст или графику, анимировать точечные рисунки путем последовательной смены фаз, можно анимировать командную кнопку. Общий принцип не меняется. Он заключается в том, что либо изменение некоторых параметров объекта (например, его координат на форме), либо последовательная смена его содержимого (точечного рисунка на поверхности кнопки или в элементе Image) производится по событиям таймера. И, собственно анимацию, таким образом, всегда выполняет процедура обработки события Timer.