تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مثال تشغيل ملف صوتى او فيديو
#1
[COLOR="#FF0000"]
[COLOR="#FFD700"]
[COLOR="#40E0D0"][COLOR="#FF0000"]ارجو ان ينال اعجابكم
الملفات الممسوحة[/COLOR][/COLOR] bin فقط[/COLOR]
[/COLOR]
لقد نسيت ان اضع هذا فى المثال
قم ب وضع timer وى اجعله True
ثم ضع هذا الكود
كود :
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
ثم هذا الكود فى التيمر
كود :
Private Sub HotKey_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HotKey.Tick
        On Error Resume Next
        If GetAsyncKeyState(Keys.MediaPlayPause) Then
            If Me.Player.playState = WMPLib.WMPPlayState.wmppsPlaying Then
                Play.Image = My.Resources.Style_Play_icon
                Player.Ctlcontrols.pause()
            Else
                Play.Image = My.Resources.Style_Pause_icon
                Player.Ctlcontrols.play()
            End If
        End If
        If GetAsyncKeyState(Keys.MediaNextTrack) Then
            GhostListboxLessPretty1.SelectedIndex = GhostListboxLessPretty1.SelectedIndex + 1
            GhostListboxLessPretty2.SelectedIndex = GhostListboxLessPretty2.SelectedIndex + 1
        End If
        If GetAsyncKeyState(Keys.MediaPreviousTrack) Then
            GhostListboxLessPretty1.SelectedIndex = GhostListboxLessPretty1.SelectedIndex - 1
            GhostListboxLessPretty2.SelectedIndex = GhostListboxLessPretty2.SelectedIndex - 1
        End If
        If GetAsyncKeyState(Keys.VolumeUp) Then
            ColorSlider2.Value = ColorSlider2.Value + 5
        End If
        If GetAsyncKeyState(Keys.VolumeDown) Then
            ColorSlider2.Value = ColorSlider2.Value - 5
        End If
    End Sub


الملفات المرفقة صورة/صور
   

.rar   Player.rar (الحجم : 1.63 م ب / التحميلات : 149)
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  موضوع الاستاذ رامي مثال \ لطريقة تفعيل برنامجك عند العميل وتغيير كلمة مرور اRamilove سعود 8 2,624 06-10-17, 01:43 AM
آخر رد: حمادة دراز
  [مثال] تشغيل تقارير الريبورت فيو ReportViewer على جهاز العميل او جهاز اخر محمود بكرى 0 281 06-08-17, 01:47 PM
آخر رد: محمود بكرى
  مثال القراءة والكتابه على ملف تيكست Txt على الانترنت + مثال + شرح m.sami.ak 10 2,940 29-05-17, 12:22 AM
آخر رد: أيمن الفخراني
  مثال للتعامل مع الجداول المرتبطة - عن طريق الكلاسات ابو ليلى 18 839 22-04-17, 02:27 AM
آخر رد: ابو ليلى
  طريقة تشغيل كريستال ريبورت بجميع ادارات فيجول نت abdhassan 2 747 28-05-16, 02:16 PM
آخر رد: CLARO
  [درس فيديو] تشغيل اوامر Run من البرنامج & مثال غلق الويندوز بعد وقت محدد باستخدام VB.net أحمد النجار 1 844 23-12-15, 04:26 AM
آخر رد: الماجيك مسعد
  [VB.NET] تشغيل Twain الخاص بسحب الصور من السكنر في حالة net framework4 ahmed saleh 4 1,126 25-10-15, 07:20 PM
آخر رد: عدنان الشمري
  فيديو بالعربي انشاء جملة الاتصال اثناء تشغيل البرنامج أحمد النجار 0 645 13-06-15, 09:40 AM
آخر رد: أحمد النجار
  فيديو بالعربي تبادل البيانات بين Excel و VB.net أحمد النجار 0 806 03-06-15, 10:53 PM
آخر رد: أحمد النجار
  [VB.NET] تنسيق البينات بناء على المدخلات datagridview vb net فيديو أحمد النجار 0 827 24-01-15, 07:42 PM
آخر رد: أحمد النجار

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


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