Excel Medya Player!

[mahzunikaya]

Excelde bir medya player yaptım. Ama Textbos'a maus'un sag tuşunu kulanamıyorum urlyi elnen yazdıgımda medya player çalıyor. Textbosa mausla sag tuşu tıkladıgımda kopyala yapıştır özeligini kulanmak istiyorum nasıl yapacagım. Yada butona tıkladıgımda direk göz at gibi müzigi seçe bilme özeligi nasıl verilir!

 

[halit3]

Excelde bir medya player yaptım. Ama Textbos'a maus'un sag tuşunu kulanamıyorum urlyi elnen yazdıgımda medya player çalıyor. Textbosa mausla sag tuşu tıkladıgımda kopyala yapıştır özeligini kulanmak istiyorum nasıl yapacagım. Yada butona tıkladıgımda direk göz at gibi müzigi seçe bilme özeligi nasıl verilir!

Bu kodu denermisiniz.

Private Sub CommandButton1_Click()
a = Application.GetOpenFilename("müzik dosyaları (*.mp3), *.mp3")
If a = False Then
MsgBox "Dosya seçme işlemini yapmadınız.", vbInformation, "DİKKAT"
Exit Sub
Else
End If
Sheets("Sayfa1").TextBox1.Text = a
WindowsMediaPlayer1.URL = Sheets("Sayfa1").TextBox1.Text
End Sub

 

[halit3]

MediaPlayer eski sürümü için kod

Private Sub CommandButton1_Click()
a = Application.GetOpenFilename("müzik dosyaları (*.mp3), *.mp3")
If a = False Then
MsgBox "Dosya seçme işlemini yapmadınız.", vbInformation, "DİKKAT"
Exit Sub
Else
End If
Sheets("Sayfa1").TextBox1.Text = a
MediaPlayer1.Filename = Sheets("Sayfa1").TextBox1.Text
End Sub

 

[mahzunikaya]

MediaPlayer eski sürümü için kod

Private Sub CommandButton1_Click()
a = Application.GetOpenFilename("müzik dosyaları (*.mp3), *.mp3")
If a = False Then
MsgBox "Dosya seçme işlemini yapmadınız.", vbInformation, "DİKKAT"
Exit Sub
Else
End If
Sheets("Sayfa1").TextBox1.Text = a
MediaPlayer1.Filename = Sheets("Sayfa1").TextBox1.Text
End Sub

Kardeşim kod işe yaradı teşekürler