منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

[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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

RainBow