slm benim sorunum şöyle bir sey arkadaşlar şimdi excelde userforma media player ve command button ve text box ekleyip dosya açma yani pc mizde bulunan mp3 veya videoları mediaplayerda çalma. bu kodu kllanıyorum ve hata yok ancak ben bunu vb6 da yapmak istiyorum ama beceremedim çok acil yardımlarınızı bekliyorum şimdiden teşekkürler.
kod:
Private Sub CommandButton1_Click()
MyPath = CurDir
ChDrive "C:"
ChDir ("C:\")
MyFile = Application.GetOpenFilename("MP3 Dosyaları ,*.mp3,Wav Dosyaları ,*.wav,Avi Dosyaları ,*.avi")
If MyFile <> False Then TextBox1.Value = (MyFile)
WindowsMediaPlayer1.URL = TextBox1
End Sub
kod:
Private Sub CommandButton1_Click()
MyPath = CurDir
ChDrive "C:"
ChDir ("C:\")
MyFile = Application.GetOpenFilename("MP3 Dosyaları ,*.mp3,Wav Dosyaları ,*.wav,Avi Dosyaları ,*.avi")
If MyFile <> False Then TextBox1.Value = (MyFile)
WindowsMediaPlayer1.URL = TextBox1
End Sub