03-07-16, 01:04 PM
(آخر تعديل لهذه المشاركة : 13-07-16, 11:33 AM {2} بواسطة غزوان خليل.)
السلام عليكم
اريد كود فتح سواقةعندي كودولكن ليس صحيح
وكود المفضلة عندي كودولكن ليس صحيح
اريد كود فتح سواقةعندي كودولكن ليس صحيح
PHP كود :
Try
Dim retvalue As Object
Dim returnstring As Object
retvalue = mciSendString("set CDAudio door open", returnstring, 127, 0)
Catch ex As Exception
MessageBox.Show(ex.Message & ex.Source)
End Try
وكود المفضلة عندي كودولكن ليس صحيح
PHP كود :
Private Sub ListBox1_DragDrop(sender As Object, e As DragEventArgs) Handles ListBox1.DragDrop
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
End If
Dim filePaths As String() =
CType(e.Data.GetData(DataFormats.FileDrop), String())
For Each s As String In filePaths
Next
Dim FI As New IO.FileInfo(s)
Dim exten As String =
FI.Name.Substring(FI.Name.LastIndexOf(".") + 1, FI.Name.Length -
(FI.Name.LastIndexOf(".") + 1))
If exten = "mp3" Or exten = "wmv" Then
ListBox1.Items.Add(s)
End If
Try
Catch ex As Exception
End Try
MessageBox.Show("Some error occur so can't play media",
"Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Sub
Private Sub ListBox1_DragEnter(sender As Object, e As DragEventArgs) Handles ListBox1.DragEnter
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
e.Effect = DragDropEffects.Copy
Else
e.Effect = DragDropEffects.None
End If
Try
Catch ex As Exception
End Try
MessageBox.Show("Some error occur so can't play media",
"Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Sub
Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
Dim Filename As String = ListBox1.SelectedItem
AxWindowsMediaPlayer.URL = Filename
AxWindowsMediaPlayer.Ctlcontrols.play()
End Sub
