1127 lines
66 KiB
VB.net
1127 lines
66 KiB
VB.net
Imports System.IO
|
|
Public Class Form19
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
langfr()
|
|
End Sub
|
|
Sub langfr()
|
|
If ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "1" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 36
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "2" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 120
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "3" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 180
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "4" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 240
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "5" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 300
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "6" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 360
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "7" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 420
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "8" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 480
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "9" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 540
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "10" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 600
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "11" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 660
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "12" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 720
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "13" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 780
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "14" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 840
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "15" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 900
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "16" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 960
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "17" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1020
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "18" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1080
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "19" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1140
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "20" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1200
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "21" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1260
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "22" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1320
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "23" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1380
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "24" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1440
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "25" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1500
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "26" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1560
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "27" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1620
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "28" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1680
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "29" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1740
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "30" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1800
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "31" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1860
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "32" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1920
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "33" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1980
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "34" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 2040
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "35" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 2100
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "36" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 2160
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "37" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 2220
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "38" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 2280
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "39" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 2340
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "40" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 2400
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "41" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 2460
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "42" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 2520
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "43" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 2580
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "44" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 2640
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "45" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 2700
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "46" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 2760
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "47" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 2820
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "48" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 2880
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "49" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 2940
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "50" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 3000
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "51" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 3060
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "52" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 3120
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "53" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 3180
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "54" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 3240
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "55" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 3300
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "56" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 3360
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "57" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 3420
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "58" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 3480
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "59" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 3540
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "1" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 36
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "2" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 120
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "3" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 180
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "4" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 240
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "5" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 300
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "6" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 360
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "7" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 420
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "8" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 480
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "9" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 540
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "10" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 600
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "11" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 660
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "12" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 720
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "13" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 780
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "14" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 840
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "15" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 900
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "16" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 960
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "17" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1020
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "18" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1080
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "19" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1140
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "20" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1200
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "21" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1260
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "22" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1320
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "23" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1380
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "24" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1440
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "25" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1500
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "26" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1560
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "27" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1620
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "28" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1680
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "29" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1740
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "30" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1800
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "31" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1860
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "32" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1920
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "33" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1980
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "34" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 2040
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "35" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 2100
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "36" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 2160
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "37" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 2220
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "38" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 2280
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "39" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 2340
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "40" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 2400
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "41" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 2460
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "42" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 2520
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "43" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 2580
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "44" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 2640
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "45" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 2700
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "46" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 2760
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "47" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 2820
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "48" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 2880
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "49" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 2940
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "50" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 3000
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "51" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 3060
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "52" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 3120
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "53" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 3180
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "54" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 3240
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "55" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 3300
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "56" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 3360
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "57" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 3420
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "58" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 3480
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "59" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 3540
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "0" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 3600
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 3600
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "1" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 3660
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "2" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 3720
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "3" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 3780
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "4" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 3840
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "5" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 3900
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "6" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 3960
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "7" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 4020
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "8" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 4080
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "9" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 4140
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "10" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 4200
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "11" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 4260
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "12" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 4320
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "13" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 4380
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "14" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 4440
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "15" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 4500
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "16" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 4560
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "17" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 4620
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "18" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 4680
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "19" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 4740
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "20" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 4800
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "21" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 4860
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "22" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 4920
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "23" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 4980
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "24" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 5040
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "25" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 5100
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "26" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 5160
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "27" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 5220
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "28" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 5280
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "29" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 5340
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "30" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 5400
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "31" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 5460
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "32" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 5520
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "33" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 5580
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "34" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 5640
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "35" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 5700
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "36" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 5760
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "37" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 5820
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "38" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 5880
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "39" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 5940
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "40" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 6000
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "41" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 6060
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "42" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 6120
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "43" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 6180
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "44" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 6240
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "45" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 6300
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "46" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 6360
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "47" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 6420
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "48" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 6480
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "49" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 6540
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "50" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 6600
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "51" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 6660
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "52" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 6720
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "53" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 6780
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "54" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 6840
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "55" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 6900
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "56" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 6960
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "57" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 7020
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "58" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 7080
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "59" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 7140
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "0" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 7200
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 7200
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "1" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 7260
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "2" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 7320
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "3" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 7380
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "4" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 7440
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "5" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 7500
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "6" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 7560
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "7" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 7620
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "8" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 7680
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "9" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 7740
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "10" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 7800
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "11" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 7860
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "12" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 7920
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "13" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 7980
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "14" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 8040
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "15" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 8100
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "16" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 8160
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "17" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 8220
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "18" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 8280
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "19" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 8340
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "20" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 8400
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "21" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 8460
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "22" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 8520
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "23" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 8580
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "24" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 8640
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "25" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 8700
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "26" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 8760
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "27" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 8820
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "28" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 8880
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "29" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 8940
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "30" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 9000
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "31" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 9060
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "32" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 9120
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "33" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 9180
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "34" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 9240
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "35" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 9300
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "36" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 9360
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "37" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 9420
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "38" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 9480
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "39" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 9540
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "40" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 9600
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "41" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 9660
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "42" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 9720
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "43" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 9780
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "44" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 9840
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "45" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 9900
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "46" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 9960
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "47" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 10020
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "48" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 10080
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "49" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 10140
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "50" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 10200
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "51" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 10260
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "52" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 10320
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "53" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 10380
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "54" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 10440
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "55" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 10500
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "56" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 10560
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "57" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 10620
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "58" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 10680
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "59" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 10740
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 10800
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "0" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 10800
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "1" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 10860
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "2" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 10920
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "3" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 10980
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "4" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 11040
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "5" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 11100
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "6" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 11160
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "7" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 11220
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "8" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 11280
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "9" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 11340
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "10" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 11400
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "11" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 11460
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "12" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 11520
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "13" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 11580
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "14" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 11640
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "15" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 11700
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "16" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 11760
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "17" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 11820
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "18" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 11880
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "19" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 11940
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "20" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 12000
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "21" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 12060
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "22" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 12120
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "23" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 12180
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "24" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 12240
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "25" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 12300
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "26" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 12360
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "27" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 12420
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "28" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 12480
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "29" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 12540
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "30" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 12600
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "31" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 12660
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "32" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 12720
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "33" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 12780
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "34" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 12840
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "35" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 12900
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "36" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 12960
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "37" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 13020
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "38" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 13080
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "39" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 13140
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "40" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 13200
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "41" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 13260
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "42" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 13320
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "43" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 13380
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "44" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 13440
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "45" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 13500
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "46" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 13560
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "47" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 13620
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "48" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 13680
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "49" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 13740
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "50" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 13800
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "51" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 13860
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "52" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 13920
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "53" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 13980
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "54" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 14040
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "55" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 14100
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "56" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 14160
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "57" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 14220
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "58" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 14280
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "59" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 14340
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 14400
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "0" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 14400
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "1" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 14460
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "2" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 14520
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "3" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 14580
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "4" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 14640
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "5" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 14700
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "6" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 14760
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "7" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 14820
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "8" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 14880
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "9" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 14940
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "10" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 15000
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "11" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 15060
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "12" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 15120
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "13" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 15180
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "14" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 15240
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "15" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 15300
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "16" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 15360
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "17" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 15420
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "18" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 15480
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "19" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 15540
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "20" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 15600
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "21" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 15660
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "22" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 15720
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "23" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 15780
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "24" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 15840
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "25" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 15900
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "26" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 15960
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "27" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 16020
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "28" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 16080
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "29" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 16140
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "30" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 16200
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "31" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 16260
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "32" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 16320
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "33" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 16380
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "34" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 16440
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "35" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 16500
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "36" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 16560
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "37" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 16620
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "38" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 16680
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "39" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 16740
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "40" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 16800
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "41" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 16860
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "42" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 16920
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "43" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 16980
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "44" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 17040
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "45" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 17100
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "46" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 17160
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "47" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 17220
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "48" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 17280
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "49" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 17340
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "50" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 17400
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "51" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 17460
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "52" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 17520
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "53" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 17580
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "54" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 17640
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "55" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 17700
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "56" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 17760
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "57" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 17820
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "58" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 17880
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "59" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 17940
|
|
Me.Close()
|
|
ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "0" Then
|
|
Form8.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 0
|
|
Me.Close()
|
|
Else
|
|
MsgBox("Vous devez sélectionner au moins une minute", MsgBoxStyle.Information)
|
|
End If
|
|
End Sub
|
|
Private Sub Form19_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
Dim lines1a() As String = File.ReadAllLines(théme)
|
|
|
|
If lines1a(0) = 2 Then
|
|
Me.BackColor = Color.FromArgb(64, 64, 64)
|
|
Button1.BackColor = Color.FromArgb(64, 64, 64)
|
|
Button1.ForeColor = Color.White
|
|
Label1.ForeColor = Color.White
|
|
Label2.ForeColor = Color.White
|
|
ComboBox1.BackColor = Color.FromArgb(64, 64, 64)
|
|
ComboBox1.ForeColor = Color.White
|
|
ComboBox2.BackColor = Color.FromArgb(64, 64, 64)
|
|
ComboBox2.ForeColor = Color.White
|
|
ElseIf lines1a(0) = 3 Then
|
|
Me.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
Button1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
Button1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
Label1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
Label2.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
ComboBox1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
ComboBox1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
ComboBox2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
ComboBox2.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
Else
|
|
|
|
End If
|
|
End Sub
|
|
End Class |