Visual Basic. Практика. Ищенко В.А - 7 стр.

                                         7
 Private Sub Form_Load()
 Randomize Timer ‘С л у ча йн ым обра зом ра спол а га ет ф игу ру н а ф орм е
 Shape1.Top = Int (Rnd* (Form1.ScaleHeight – Shape1. Height))
 Shape1.Left = Int (Rnd* (Form1.ScaleWidth – Shape1. Width ))
 ‘С войст ва м Top и Left присва ива ются сл у ча йн ые зн а чен ия, чтобы
 ф игу ра сл у ча йн ым обра зом ра спол а га л а сь н а ф орм е.
  ‘С войст ва ScaleHeight (вн у т рен н яя ширин а ) и ScaleWidth (вн у т рен -
 н яя высота ) позвол яют ф игу ре н е попа д а т ь в сл у ж ебн ые обл а сти окн а
 End Sub

5. Записа т ь програ м м н ый код д л я событ ия MouseMove (Д виж ен ие
   м ыши), при котором бу д ет м ен ят ь ся строка сост оян ия:

 Private Sub Form_MouseMove (Button As Integer, Shift As Integer, X
 As Single, Y As Single)
 X1 = ABS(X – (Shape1.Left + Shape1.Width /2))
 Y1 = ABS(X – (Shape1.Top + Shape1.Height /2))
 ‘X1 и Y1 О пред ел яет ра сстоян ие от у ка за т ел я м ыши д о серед ин ы ф и-
 гу ры от л евого верхн его у гл а ф орм ы
 Z = X1
 If X1 < Y1 then Z = Y1 ‘Выбира ет из д ву х ра сст оян ий бол ь шее.
 Select Case Z
 ‘О пред ел яет зон у , в кот ору ю попа д а ет зн а чен ие перем ен н ой Z
 Case Is > 2000
 StatusBar1.SimpleText = “Х олодно”
 Case Is > 500
 StatusBar1.SimpleText = “Т епло”
 Case Is > 67
 StatusBare1.SimpleText = “Г орим !”
 Shape1.FillStyle = vbFSsolid
 ‘Д ел а ет скрыт ый объект вид им ым , есл и у ка за т ел ь м ыши н а вед ен н а
 объект
 End Select
 End Sub

6. Запу ст ит ь проект н а выпол н ен ие и проверить пра вил ь н ост ь ра боты
   програ м м ы.
7. С охра н ит ь в своей па пке ф орм у и проект соот вет ст вен н о под им ен а -
   м и М оя ф игу ра. frm и М оя ф игу ра. Vbp.
8. Р езу л ь т а т ом ра бот ы прил ож ен ия явл яется ф орм а , привед ен н а я н иж е.