تقييم الموضوع :
  • 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 م ب / التحميلات : 133)
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طريقة تشغيل كريستال ريبورت بجميع ادارات فيجول نت abdhassan 2 317 28-05-16, 02:16 PM
آخر رد: CLARO
  موضوع الاستاذ رامي مثال \ لطريقة تفعيل برنامجك عند العميل وتغيير كلمة مرور اRamilove سعود 7 2,037 26-01-16, 08:07 PM
آخر رد: سعود
  [درس فيديو] تشغيل اوامر Run من البرنامج & مثال غلق الويندوز بعد وقت محدد باستخدام VB.net أحمد النجار 1 537 23-12-15, 04:26 AM
آخر رد: الماجيك مسعد
  [VB.NET] تشغيل Twain الخاص بسحب الصور من السكنر في حالة net framework4 ahmed saleh 4 663 25-10-15, 07:20 PM
آخر رد: عدنان الشمري
  فيديو بالعربي انشاء جملة الاتصال اثناء تشغيل البرنامج أحمد النجار 0 390 13-06-15, 09:40 AM
آخر رد: أحمد النجار
  فيديو بالعربي تبادل البيانات بين Excel و VB.net أحمد النجار 0 549 03-06-15, 10:53 PM
آخر رد: أحمد النجار
  [VB.NET] تنسيق البينات بناء على المدخلات datagridview vb net فيديو أحمد النجار 0 595 24-01-15, 07:42 PM
آخر رد: أحمد النجار
  [مقال] تشغيل برمجيات الدوت نت بدون تنصيب النت فروم ويرك m0075 13 4,113 13-02-14, 08:29 PM
آخر رد: Omar Mekkawy
  تشغيل برنامجك كمدير (administration) عند العميل برمجيا على ويندوز 7 Omar Mekkawy 5 1,810 05-01-14, 03:08 AM
آخر رد: mero5000
  مثال القراءة والكتابه على ملف تيكست Txt على الانترنت + مثال + شرح m.sami.ak 9 2,261 20-08-13, 01:12 PM
آخر رد: m.sami.ak

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


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