تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] اريد كود فتح سواقة والمفضلة
#1
السلام عليكم

اريد كود فتح سواقةعندي كودولكن ليس صحيح

PHP كود :
Try
            Dim retvalue As Object
            Dim returnstring 
As Object
            retvalue 
mciSendString("set CDAudio door open"returnstring1270)
        Catch ex As Exception
            MessageBox
.Show(ex.Message ex.Source)
        End Try 

وكود المفضلة عندي كودولكن ليس صحيح

PHP كود :
 Private Sub ListBox1_DragDrop(sender As ObjectAs DragEventArgsHandles ListBox1.DragDrop
        
If e.Data.GetDataPresent(DataFormats.FileDropThen

        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(".") + 1FI.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.OKMessageBoxIcon.Error)
    End Sub

    
Private Sub ListBox1_DragEnter(sender As ObjectAs DragEventArgsHandles ListBox1.DragEnter
        
If e.Data.GetDataPresent(DataFormats.FileDropThen
            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.OKMessageBoxIcon.Error)
    End Sub

    
Private Sub ListBox1_SelectedIndexChanged(sender As ObjectAs EventArgsHandles ListBox1.SelectedIndexChanged

        Dim Filename 
As String ListBox1.SelectedItem
        AxWindowsMediaPlayer
.URL Filename
        AxWindowsMediaPlayer
.Ctlcontrols.play()
    End Sub 
الرد }}}}
تم الشكر بواسطة:
#2
مشروعي متوقف
ارجوا منكم مساعدتي
الرد }}}}
تم الشكر بواسطة:
#3
يا غزوان،

جرب هذا الكود
PHP كود :
mciSendString("set cdaudio door open"000

مدري ايش تقصد بالمفضلة؟


شاهد هذا الفيديو يمكن يفيدك
https://www.youtube.com/watch?v=a79-nTOjeHk
الرد }}}}
تم الشكر بواسطة:
#4
كود السواقة لم يعمل
اما بالنسبة للقائمة
   
الرد }}}}
تم الشكر بواسطة:


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


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