14-03-13, 08:37 PM
(آخر تعديل لهذه المشاركة : 14-03-13, 08:53 PM {2} بواسطة abdullahsami.)
[COLOR="#FF0000"]
لقد نسيت ان اضع هذا فى المثال
قم ب وضع timer وى اجعله True
ثم ضع هذا الكود
ثم هذا الكود فى التيمر
[COLOR="#FFD700"]
[COLOR="#40E0D0"][COLOR="#FF0000"]ارجو ان ينال اعجابكم
الملفات الممسوحة[/COLOR][/COLOR] bin فقط[/COLOR]
[/COLOR][COLOR="#40E0D0"][COLOR="#FF0000"]ارجو ان ينال اعجابكم
الملفات الممسوحة[/COLOR][/COLOR] bin فقط[/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