'СОРС ЗА ФОРМАТА

' При въвеждане на формата

Private Sub Form_Load()

MalkaForma 'Задестваме процедура за оразмеряване на формата и плеара

Form1.Height = Form1.Height + 500 ' Увеличаваме височината на формата с 500, за да се вижда панела за управление на плеара

End Sub

' Процедура за оразмеряване на формата

Private Sub MalkaForma()

Form1.WindowState = 0 ' Задаваме нормално състояние на формата

Form1.Width = Screen.Width / 3 ' Правим ширината на формата да е 1/3 от ширината на екрана

Form1.Height = Screen.Height / 3 ' Правим височината на формата да е 1/3 от височината на екрана

Form1.Player.Width = Form1.Width ' Правим ширината на плеара да колкото ширината на формата

Form1.Player.Height = Form1.Height ' правим височината на плеара колкото височината на формата

End Sub

' При натискане на бутона Избор

Private Sub Command7_Click()

On Error Resume Next ' Манипулатор на грешка

Player.Controls.stop ' Спираме плеара

Player.URL = IzbranFilm ' Задействаме функцията за избор на филм

End Sub

' При натискане на бутона Пълен екран

Private Sub Command6_Click()

On Error Resume Next ' Манипулатор на грешка

Player.fullScreen = True ' Указваме на плеарът да заеме пълен екран

End Sub

' При натискане на бутона СТАРТ

Private Sub Command3_Click()

Player.Controls.play ' Пускаме плеара

End Sub

' При натискане на бутона Пауза

Private Sub Command1_Click()

Player.Controls.pause ' Задействаме Пауза

End Sub

' При натискане на бутона Стоп

Private Sub Command4_Click()

Player.Controls.stop ' Спираме плеара

End Sub

' При натискане на бутона Скок

Private Sub Command2_Click()

Player.Controls.pause ' Паузираме

Player.Controls.currentPosition = Player.Controls.currentPosition + 10 ' Променяме позицията с 10 секунди напред

Player.Controls.play ' Пускаме отново плеара

End Sub

' При преоразмеряване на формата

Private Sub Form_Resize()

If Form1.WindowState = 2 Then ' Ако формата се разпъне на Maximize

Form1.WindowState = 0 ' Връщаме формата в нормален изглед

Command6_Click ' Сработваме бутона за FullScreen

End If

End Sub

' При кликане върху плеара

Private Sub Player_Click(ByVal nButton As Integer, ByVal nShiftState As Integer, ByVal fX As Long, ByVal fY As Long)

Player.fullScreen = False ' Излизаме от FullScreen

End Sub

' При двоен клик върху плеарът

Private Sub Player_DoubleClick(ByVal nButton As Integer, ByVal nShiftState As Integer, ByVal fX As Long, ByVal fY As Long)

Command6_Click ' Сработваме бутона за FullScreen

End Sub

' СОРС ЗА МОДУЛА Izbor

' Функция за избор на файл за отваряне

Public Function IzbranFilm()

Set objDialog = CreateObject("MSComDlg.CommonDialog")

objDialog.ShowOpen

If Len(objDialog.FileName) > 1 Then

IzbranFilm = objDialog.FileName

End If

End Function