Практическая работа 6. Метод Move

Date: 2015-10-07; view: 431.

Cинтаксис метода: object.Move left, top, width, hight,

1. Создать на форме 3 элемента управления Image (при вставке рисунков (используется свойство Picture) использовать файлы Bfly1 и Bfly2, см. ), 2 объекта CommandButton и объект Timer,

2. установить значения свойств элементов управления, ; ввести код, данный ниже.

Таблица 1.5. Свойства используемых объектов
Объект, свойство	Значение свойства
Image1 (на рисунке в центре)	img1
Stretch	True
Visible	False
Picture	(Bitmap) - бабочка со сложенными крыльями
Image2 (на рисунке вверху)
Name	Img2
Stretch	True
Visible	False
Picture	(Bitmap)	- бабочка с раскрытыми крыльями
Image3 (на рисунке внизу)
Name	Img3
Stretch	True
Visible	True
Picture	(Bitmap)	- бабочка с раскрытыми крыльями
Command1
Caption	End
Command2
Caption	Geschwindigkeit
Timer1
Interval
Form1
BackColor	Палитра белый цвет

(General) (Declarations)Dim pr As Boolean, i As Boolean Private Sub Form_Load()' переменным типа Boolean присвоить значение Truei= True pr = TrueEnd Sub Private Sub Timer1_Timer() ' использовать метод Move img3.Move img3.Left + 50, img3.Top - 10 ' если i истино, то использовать объект - бабочка с ' раскрытыми крыльямиIf i Then img3.Picture = img2.Picture' иначе использовать объект - бабочка со сложенными ' крыльямиElse img3.Picture = img1.Pictureimg3.Move img3.Left + 50, img3.Top - 10End If'логический оператор Not изменяет знак своего операнда' на противоположныйi = Not i End Sub ' изменить скорость движения объекта Private Sub Command2_Click() If pr = True ThenTimer1.Interval = 100pr = FalseCommand2.Caption = "Schnell"Else: Timer1.Interval = 0pr = TrueCommand2.Caption = "Langsam"End IfEnd SubPrivate Sub Сommand1_Click()EndEnd Sub

3. стартовать проект, сделать щелчок на кнопке Сommand2 - скорость движения увеличивается; сделать повторный щелчок на этой кнопке.

Рис. 1.9.Метод Move

<== previous lecture	\|	next lecture ==>
Практическая работа 5. Типы данных (Long, Single, Currency); ошибка вычислений	\|	Операторы

lektsiopedia.org - 2013 год. | Page generation: 0.091 s.