تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيفية عمل History في ميديا بلير
#1
اريد عمل History يعمل في ميديا بلير ؟
هذا كان استخدم كود : AxWindowsMediaPlayer1.URL = "..."
حيث ان عندي ادوات :

TreeView1 : يكون فيها قنوات , واريد اي قناة تعمل في ميدابلير تسجل في ListBox1
الرد }}}}
تم الشكر بواسطة:
#2
ممكن مساعده
الرد }}}}
تم الشكر بواسطة:
#3
السلام عليكم ورحمة الله وبركاته

هذه فكرة عامة لعمل ذلك :

كود :
Public Class Form1


    Dim historyPath As String = Application.StartupPath & "\history.txt"


    Private Sub OpenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenToolStripMenuItem.Click
        Dim ofd As New OpenFileDialog
        If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
            Me.AxWindowsMediaPlayer1.URL = ofd.FileName
            Me.AxWindowsMediaPlayer1.Ctlcontrols.play()
            Add2History(ofd.FileName) ' إضافة الملف المفتوح للهيستوري
            LoadHistroy()
        End If
    End Sub


    Private Sub Add2History(ByVal fname As String) ' دالة إضافة ملف للهيستوري
        Try
            If IO.File.Exists(historyPath) = False Then
                IO.File.CreateText(historyPath).Close()  ' إذا لم يُعثر علي الملف سيتم إنشاءه ثم إغلاقه
            End If
            My.Computer.FileSystem.WriteAllText(historyPath, fname & vbCrLf, True)
        Catch ex As Exception
            MsgBox(ex.Message, 48, "Add2History")
        End Try
    End Sub


    Private Sub LoadHistroy() ' دالة تحميل ملفات الهيستوري وإضافتها لأداة الليست بوكس
        Try
            If IO.File.Exists(historyPath) = False Then
                IO.File.CreateText(historyPath).Close()  ' إذا لم يُعثر علي الملف سيتم إنشاءه ثم إغلاقه
            End If
            Dim files() As String = IO.File.ReadAllLines(historyPath) 'قراءة جميع الملفات المحفوظة في ملف الهيستوري
            If files.Length > 0 Then '
                Me.ListBox1.Items.Clear()
                For Each itm As String In files
                    If itm <> "" Then
                        Me.ListBox1.Items.Add(itm) ' إضافة الملفات لأداة الليست بوكس
                    End If
                Next
            End If
        Catch ex As Exception
            MsgBox(ex.Message, 48, "LoadHistroy")
        End Try
    End Sub


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        LoadHistroy() ' تحميل الهيستوري عند فتح النموذج
    End Sub


    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        Try ' لتشغيل الملفات الموجودة في الهيستوري
            If Me.ListBox1.Items.Count > 0 Then
                If Me.ListBox1.SelectedItems IsNot Nothing Then
                    Me.AxWindowsMediaPlayer1.URL = Me.ListBox1.SelectedItem.ToString
                    Me.AxWindowsMediaPlayer1.Ctlcontrols.play()
                End If
            End If
        Catch ex As Exception
            MsgBox(ex.Message, 48, "Play from Histroy")
        End Try
    End Sub
End Class

****
***
**
*
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد }}}}
تم الشكر بواسطة:
#4
يااخي ما يعمل الكود معي
الرد }}}}
تم الشكر بواسطة:
#5
إذا كنت بتعمل علي ويندوز 7 اعطي برنامج صلاحيات مدير النظام
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية عرض البيانات فى DataGridView فى وضع CrossTab noway 1 65 21-02-17, 09:03 PM
آخر رد: noway
  [VB.NET] مشكلة في كيفية اعادة الاتصال في TcpClient YazanOtoum 1 59 20-02-17, 01:03 PM
آخر رد: YazanOtoum
  [VB.NET] كيفية حل مشكلة Global.[String] فى ملف Settings.Designer.vb الماجيك مسعد 2 60 20-02-17, 03:08 AM
آخر رد: الماجيك مسعد
  [VB.NET] كيفية تنفيذ كود فى حدث معين على اى فورم فى المشروع ؟ الماجيك مسعد 5 136 19-02-17, 04:59 PM
آخر رد: الماجيك مسعد
  [VB.NET] كيفية الغاء شفافية زر (بوتون) ؟ + مرفق مشروع الماجيك مسعد 0 52 18-02-17, 03:32 PM
آخر رد: الماجيك مسعد
Question [سؤال] كيفية عمل أسم مستخدم وكلمة مرور لبرنامج؟ refaat130 3 90 16-02-17, 08:10 PM
آخر رد: احمد مهران
Tongue كيفية تنسيق فورمات التكست بوكس المتألق9 0 32 06-02-17, 05:03 PM
آخر رد: المتألق9
  كيفية اظهار قاءمة عند النقر بزر الفأرة الايمن على الداتا قريد فيو في فيجوال 2008 المتألق9 2 78 05-02-17, 01:43 AM
آخر رد: المتألق9
  [VB.NET] كيفية جلب برامج التنقيح من اى جهاز لو موجودة؟ الماجيك مسعد 4 97 02-02-17, 07:17 PM
آخر رد: الماجيك مسعد
  كيفية دمج جدول المبيعات والمشتريات وحساب عدد المشتريات والمبيعات والمثال مرفق كصورة max_1978 0 105 31-01-17, 12:08 AM
آخر رد: max_1978

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم