Visual Basic'te MEDİA PLAYER YAPMAK

tarafından **K.R.M** Çarş. Ekim 06, 2010 1:21 am

" arkadaşlar forma eklemeniz gereken;
formumuza
bir tane label
bir tane slider(mscomctl.ocx)
bir tane de mmcontrol eklemek(MCI32.ocx)
bu kadar sonrada programımıza aşağıdaki kodları ekleyelim.. "

Private Declare Function waveOutSetVolume Lib "Winmm" (ByVal wDeviceID As Integer, ByVal dwVolume As Long) As Integer 'BU İKİSİ SES KISIP AÇMAK İÇİN
Private Declare Function waveOutGetVolume Lib "Winmm" (ByVal wDeviceID As Integer, dwVolume As Long) As Integer
Private Sub Form_Load()
MMControl1.Notify = False
MMControl1.Wait = True
MMControl1.Shareable = False
MMControl1.FileName = "şarkınızın ismi.mp3"
MMControl1.Command = "Open"
Text1.Text = MMControl1.Track
Label1.Caption = MMControl1.FileName & " "
Slider1.Max = 100
End Sub
Private Sub Slider1_Scroll()
Dim a, i As Long
Dim tmp, vol As String
Slider1.Min = 0
Slider1.Max = 100
vol = Slider1.Value * 650
Text1 = Slider1.Value
tmp = Right((Hex$(vol + 65536)), 4)
vol = CLng("&H" & tmp & tmp)
a = waveOutSetVolume(0, vol)
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Mid(Label1.Caption, 2) + Left(Label1.Caption, 1)
End Sub