“Оживляє” меню на стартовій формі

 

У статті Створюємо меню на стартовій формія показав як можна створити і вирівнювати створені елементи меню по середині стартової форми. Тут же надамо йому функціональність і інтерактивність.


У розділі оголошення змінних форми впишемо наступні змінні і константи:


Private Const intItemCount = 6 “кількість пунктів меню
Private Const mclngNothing = 0
Private Const mclng1 = 1
Private Const mclng2 = 2
Private Const mclng3 = 3
Private Const mclng4 = 4
Private Const mclng5 = 5
Private Const mclng6 = 6
Private Const mclngDetail = 200
Private Const mclngColorRed = 255
Private Const mclngColorGreen = 21760
Private fMouseMove As Boolean
 


Потім створюємо таку процедуру:


Private Sub HoverEffect(lngHoverEffect As Long)
“Генеруємо ефект при русі мишкою по пунктах меню
Dim I As Integer
“Ініціалізували стан пунктів меню
For I = 1 To intItemCount
    Me(“img” & I & “Up”).Visible = True
    Me(“img” & I & “Down”).Visible = False
    Me(“lbl” & I & “Title”).ForeColor = mclngColorGreen
Next

If lngHoverEffect < 200 Then
    Me(“img” & lngHoverEffect & “Up”).Visible = False
    Me(“img” & lngHoverEffect & “Down”).Visible = True
    Me(“lbl” & lngHoverEffect & “Title”).ForeColor = mclngColorRed
    fMouseMove = 0
Else
“Нічого не будемо робити і так все нормально
    fMouseMove = -1
End If
End Sub


Тепер заповнимо події переміщення мишки над картинками і над формою:


Зрозуміло, що картинки imgNUp повинні бути поверх всього набору (Формат -> На передній план)
 


Private Sub Detail_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Not fMouseMove Then
    Call HoverEffect(mclngDetail)
End If
End Sub


Private Sub img1Up_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call HoverEffect(mclng1)
End Sub
Private Sub img2Up_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call HoverEffect(mclng2)
End Sub
Private Sub img3Up_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call HoverEffect(mclng3)
End Sub
Private Sub img4Up_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call HoverEffect(mclng4)
End Sub
Private Sub img5Up_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call HoverEffect(mclng5)
End Sub
Private Sub img6Up_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call HoverEffect(mclng6)
End Sub
 


Тепер меню “заворушилося”, перейдемо до функціональності:


Private Sub Launch(lngApp As Long)
Select Case lngApp
    Case mclng1
DoCmd.OpenForm “frmНарушенія”, acNormal
    Case mclng2
DoCmd.OpenForm “frmПечатьРеестров”, acNormal
    Case mclng3
DoCmd.OpenForm “frmПечатьОтчетов”, acNormal
    Case mclng4
DoCmd.OpenForm “frmНастройкі”, acNormal
    Case mclng5
“Займаємося архівацією
    Case mclng6


        DoCmd.Quit
End Select
End Sub


І заповнимо події кліка мишкою на картинками imgNDown – вони стають Visible в момент проведення мишкою над пунктом меню


Private Sub img1Down_Click()
Launch (mclng1)
End Sub
Private Sub img2Down_Click()
Launch (mclng2)
End Sub
Private Sub img3Down_Click()
Launch (mclng3)
End Sub
Private Sub img4Down_Click()
Launch (mclng4)
End Sub
Private Sub img5Down_Click()
Launch (mclng5)
End Sub
Private Sub img6Down_Click()
Launch (mclng6)
End Sub
 


Ось і все. Тепер і у Ваших програмах, сподіваюся, буде красиве стартове меню. Набридли вже ці убогі SwitchBoard “и 😉

Схожі статті:


Сподобалася стаття? Ви можете залишити відгук або підписатися на RSS , щоб автоматично отримувати інформацію про нові статтях.

Коментарів поки що немає.

Ваш отзыв

Поділ на параграфи відбувається автоматично, адреса електронної пошти ніколи не буде опублікований, допустимий HTML: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>

*

*