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

نسخة كاملة : اريد اضافة بعض الميزات للبرنامج
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2
السلام عليكم ورحمة الله وبركاتة
اني ابرمج برنامج مشغل صوت وفيديو
واريد اضافة بعض الميزات للبرنامج
اريد كود القائمة وكود فتح السواقة واضافة ملف وحذف ملف
كيفية تنسيق واجهة البرنامج وتجميل مظهره مثل واجة الوين اب او جيت اوديو
لكم مني كل الاحترام والتقدير
وشكرا

شكرا على موضعك التي ستفيدي سأجربها واعلمك بنتيجة
غزوان خليل كتب :شكرا على موضعك التي ستفيدي سأجربها واعلمك بنتيجة

بالتوفيق ربي يحفظك
السلام عليكم
لفتح السوقة[url="http://www.absba.org/showthread.php?t=482867"]
http://www.absba.org/showthread.php?t=482867[/url]
لكن لااعرف لماذا يظهر عندي خطا اخضر
محمود اكرم كتب :السلام عليكم
لفتح السوقة[url="http://www.absba.org/showthread.php?t=482867"]
http://www.absba.org/showthread.php?t=482867[/url]
لكن لااعرف لماذا يظهر عندي خطا اخضر

بالنسبة للون الاخضر فهو ليس خطأ
شكرا لك لكن ارجوا ان تنسق لي العملية لكي تتضح الفكرة
اساتذتي الأفاضل بالنسبة للبرنامج هناك بعض المشاكل التي واجهتي وارجوا المساعدة
[ATTACH=CONFIG]3621[/ATTACH][ATTACH=CONFIG]3622[/ATTACH]

وعندي كود القائمة لكنه يضيف ملف واحد وان واريده ان يضيف عدة ملفات
PHP كود :
OpenFileDialog1.FileName ""
        
OpenFileDialog1.ShowDialog()
        If 
Not OpenFileDialog1.FileName "" Then
            Form1
.AxWindowsMediaPlayer1.settings.autoStart False
            Form1
.Timer1.Enabled True
            Form1
.AxWindowsMediaPlayer1.URL OpenFileDialog1.FileName
            Form1
.Label1.Text Form1.AxWindowsMediaPlayer1.currentMedia.name
            Form1
.AxWindowsMediaPlayer1.mediaCollection.add(Form1.AxWindowsMediaPlayer1.URL)
            
ListBox1.Items.Add(Form1.AxWindowsMediaPlayer1.currentMedia.name)
            
urlArray(Font) = OpenFileDialog1.FileName
            mediaArray
(Font) = Form1.AxWindowsMediaPlayer1.currentMedia.name

            Me
.ListBox1.Text Form1.AxWindowsMediaPlayer1.currentMedia.name 

واريد كود احذف ملف لنفس القائمة

يطهر لي كلام لااعرف مالمقصود به ولكنه لايؤثر على المشروع

PHP كود :
sham player.vshost.exe' (Managed (v2.0.50727)): Loaded 'C:\Windows\assembly\GAC_32\mscorlib\2.0.0.0__b77a5c561934e089\mscorlib.dll', Skipped loading symbols. Module is optimized and the debugger option 'Just My Code' is enabled.
'
sham player.vshost.exe' (Managed (v2.0.50727)): Loaded 'C:\Windows\assembly\GAC_MSIL\Microsoft.VisualStudio.HostingProcess.Utilities\10.0.0.0__b03f5f7f11d50a3a\Microsoft.VisualStudio.HostingProcess.Utilities.dll', Skipped loading symbols. Module is optimized and the debugger option 'Just My Code' is enabled.
'
sham player.vshost.exe' (Managed (v2.0.50727)): Loaded 'C:\Windows\assembly\GAC_MSIL\System.Windows.Forms\2.0.0.0__b77a5c561934e089\System.Windows.Forms.dll', Skipped loading symbols. Module is optimized and the debugger option 'Just My Code' is enabled.
'
sham player.vshost.exe' (Managed (v2.0.50727)): Loaded 'C:\Windows\assembly\GAC_MSIL\System\2.0.0.0__b77a5c561934e089\System.dll', Skipped loading symbols. Module is optimized and the debugger option 'Just My Code' is enabled.
'
sham player.vshost.exe' (Managed (v2.0.50727)): Loaded 'C:\Windows\assembly\GAC_MSIL\System.Drawing\2.0.0.0__b03f5f7f11d50a3a\System.Drawing.dll', Skipped loading symbols. Module is optimized and the debugger option 'Just My Code' is enabled.
'
sham player.vshost.exe' (Managed (v2.0.50727)): Loaded 'C:\Windows\assembly\GAC_MSIL\Microsoft.VisualStudio.HostingProcess.Utilities.Sync\10.0.0.0__b03f5f7f11d50a3a\Microsoft.VisualStudio.HostingProcess.Utilities.Sync.dll', Skipped loading symbols. Module is optimized and the debugger option 'Just My Code' is enabled.
'
sham player.vshost.exe' (Managed (v2.0.50727)): Loaded 'C:\Windows\assembly\GAC_MSIL\Microsoft.VisualStudio.Debugger.Runtime\10.0.0.0__b03f5f7f11d50a3a\Microsoft.VisualStudio.Debugger.Runtime.dll', Skipped loading symbols. Module is optimized and the debugger option 'Just My Code' is enabled.
'
sham player.vshost.exe' (Managed (v2.0.50727)): Loaded 'F:\vb\sham player\sham player\bin\Debug\sham player.vshost.exe', Skipped loading symbols. Module is optimized and the debugger option 'Just My Code' is enabled.
'
sham player.vshost.exe' (Managed (v2.0.50727)): Loaded 'C:\Windows\assembly\GAC_MSIL\mscorlib.resources\2.0.0.0_ar_b77a5c561934e089\mscorlib.resources.dll', Skipped loading symbols. Module is optimized and the debugger option 'Just My Code' is enabled.
'
sham player.vshost.exe' (Managed (v2.0.50727)): Loaded 'C:\Windows\assembly\GAC_32\System.Data\2.0.0.0__b77a5c561934e089\System.Data.dll', Skipped loading symbols. Module is optimized and the debugger option 'Just My Code' is enabled.
'
sham player.vshost.exe' (Managed (v2.0.50727)): Loaded 'C:\Windows\assembly\GAC_MSIL\System.Deployment\2.0.0.0__b03f5f7f11d50a3a\System.Deployment.dll', Skipped loading symbols. Module is optimized and the debugger option 'Just My Code' is enabled.
'
sham player.vshost.exe' (Managed (v2.0.50727)): Loaded 'C:\Windows\assembly\GAC_MSIL\System.Xml\2.0.0.0__b77a5c561934e089\System.Xml.dll', Skipped loading symbols. Module is optimized and the debugger option 'Just My Code' is enabled.
'
sham player.vshost.exe' (Managed (v2.0.50727)): Loaded 'C:\Windows\assembly\GAC_MSIL\System.Core\3.5.0.0__b77a5c561934e089\System.Core.dll', Skipped loading symbols. Module is optimized and the debugger option 'Just My Code' is enabled.
'
sham player.vshost.exe' (Managed (v2.0.50727)): Loaded 'C:\Windows\assembly\GAC_MSIL\System.Xml.Linq\3.5.0.0__b77a5c561934e089\System.Xml.Linq.dll', Skipped loading symbols. Module is optimized and the debugger option 'Just My Code' is enabled.
'
sham player.vshost.exe' (Managed (v2.0.50727)): Loaded 'C:\Windows\assembly\GAC_MSIL\System.Data.DataSetExtensions\3.5.0.0__b77a5c561934e089\System.Data.DataSetExtensions.dll', Skipped loading symbols. Module is optimized and the debugger option 'Just My Code' is enabled.
'
sham player.vshost.exe' (Managed (v2.0.50727)): Loaded 'C:\Windows\assembly\GAC_MSIL\Microsoft.VisualBasic\8.0.0.0__b03f5f7f11d50a3a\Microsoft.VisualBasic.dll', Skipped loading symbols. Module is optimized and the debugger option 'Just My Code' is enabled.
The thread '
vshost.LoadReference' (0xa18) has exited with code 0 (0x0).
'
sham player.vshost.exe' (Managed (v2.0.50727)): Loaded 'F:\vb\sham player\sham player\bin\Debug\sham player.exe', Symbols loaded.
'
sham player.vshost.exe' (Managed (v2.0.50727)): Loaded 'C:\Windows\assembly\GAC_MSIL\System.Runtime.Remoting\2.0.0.0__b77a5c561934e089\System.Runtime.Remoting.dll', Skipped loading symbols. Module is optimized and the debugger option 'Just My Code' is enabled.
'
sham player.vshost.exe' (Managed (v2.0.50727)): Loaded 'F:\vb\sham player\sham player\bin\Debug\AxInterop.ShockwaveFlashObjects.dll'
'
sham player.vshost.exe' (Managed (v2.0.50727)): Loaded 'F:\vb\sham player\sham player\bin\Debug\AxInterop.WMPLib.dll'
'
sham player.vshost.exe' (Managed (v2.0.50727)): Loaded 'C:\Windows\assembly\GAC_MSIL\System.Windows.Forms.resources\2.0.0.0_ar_b77a5c561934e089\System.Windows.Forms.resources.dll'
'
sham player.vshost.exe' (Managed (v2.0.50727)): Loaded 'F:\vb\sham player\sham player\bin\Debug\Interop.WMPLib.dll'
'
sham player.vshost.exe' (Managed (v2.0.50727)): Loaded 'F:\vb\sham player\sham player\bin\Debug\Interop.ShockwaveFlashObjects.dll'
The thread '
<No Name>' (0x678) has exited with code 0 (0x0).
The thread '
vshost.RunParkingWindow' (0xc58) has exited with code 0 (0x0).
The thread '
<No Name>' (0xac8) has exited with code 0 (0x0).
The program '
[3584sham player.vshost.exeManaged (v2.0.50727)' has exited with code 0 (0x0). 

واغدا سوف ارفع المشروع [اذن الله كون اليوم لم استطيع رفع
[SIZE=5]السلام عليكم
بالنسبة للسؤال الاول
اعطيك مثال
[/SIZE]
ادرج زر وlistbox
ضع في شاشة كود الزر الكود التالي
إقتباس :
Dim openFile As New OpenFileDialog()
With openFile
.Title = "استيرد ملفات فيديو"
.Filter = "Microsoft Data Base (*.Mp4)|*.Mp4"
.FilterIndex = 0
.Multiselect = True
.ShowDialog()
If .FileName = "" Then Exit Sub
' تستطيع هنا ان تحذف السطر التالي اذا اردت اضافة ملفات فيديو في كل مرة تضغط على زر الاستعراض
ListBox1.Items.Clear()

Dim file As String
For Each file In .FileNames
' Create a PictureBox for each file, and add that file to the FlowLayoutPanel.
Try
ListBox1.Items.Add(file)


Catch SecEx As SecurityException
' The user lacks appropriate permissions to read files, discover paths, etc.
MessageBox.Show("Security error. Please contact your administrator for details.\n\n" & _
"Error message: " & SecEx.Message & "\n\n" & _
"Details (send to Support):\n\n" & SecEx.StackTrace)
Catch ex As Exception
' Could not load the image - probably permissions-related.
MessageBox.Show(("Cannot display the image: " & file.Substring(file.LastIndexOf("\"c)) & _
". You may not have permission to read the file, or " + "it may be corrupt." _
& ControlChars.Lf & ControlChars.Lf & "Reported error: " & ex.Message))
End Try
Next file
End With






علما بان الكود منقول من اجل استعراض اكثر من ملف مع اضافة بعض التعديلات
ارجو ان يكون هذا هو المطلوب
O_o
شكرا لك اخي الغالي سأجربه واوفيت بالنتجية
الصفحات : 1 2