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

(28-05-16, 01:56 PM)khodor1985 كتب : [ -> ]الله يعطيك العافية، إلى الأمام يا بدر التمام

(30-05-16, 10:01 PM)mohamed haroon كتب : [ -> ]

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

كود :

Dim o As New OpenFileDialog
       With o
           .Filter = "all files|*.*|sound files|*.mp3;*.wav"
           If .ShowDialog = Windows.Forms.DialogResult.OK Then
                              IO.File.Copy(.FileName, IO.Path.ChangeExtension(.FileName, InputBox("add extantion", "", "example .wav")))
               MsgBox("done")
           End If
       End With

(28-05-16, 01:54 PM)CLARO كتب : [ -> ]

السلام عليكم ورحمة الله وبركاته 

احببت ان اشارككم هاذا الموضوع 

لطريقة انشاء برنامج لتحويل صيغ المقاطع 

بسم الله نبدأ 

المتطلبات :

TextBox عدد 2

Button عدد 2

RadioButton عدد 6 

OpenFileDialog عدد 1

الشرح :

اولا نقوم بتغيير اسم الRadioButton الى انواع الصيغ التي سنحول لها 

ثانيا نقوم بتسمية الButton1 بـ: اختيار المقطع

و نقوم بتسمية الButton2 بـ: بتحويل

كود Button1 الخاص باختيار المقطع الصوتي :

كود :

OpenFileDialog1.ShowDialog()

كود Button2 الخاص بتحويل المقطع الصوتي :

كود :

Dim Type As String = TextBox2.Text
       If TextBox2.Text = "" Then
           MsgBox("قم باختيار الصيغه")
       End If
       If TextBox1.Text = "" Then
           MsgBox("قم باختيار الفيديو")

       End If
       MsgBox("تم التحويل" & TextBox1.Text)
       Dim OldFile As String = Mid(TextBox1.Text, 1, Len(TextBox1.Text) - 4)
       File.Copy(TextBox1.Text, OldFile + Type)

ننقر علىOpenFileDialog وندخل الكود الاتي:

كود :

       Dim File As String = OpenFileDialog1.FileName
       TextBox1.Text = File

والان بما اننا قمنا بوضع 6 من  RadioButton  الان نضع الكود الاتي  :

كود :

   Private Sub RadioButton6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton6.CheckedChanged
       TextBox2.Text = ".Avi"
   End Sub

   Private Sub RadioButton5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton5.CheckedChanged
       TextBox2.Text = ".Flv"
   End Sub

   Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged
       TextBox2.Text = ".M4v"
   End Sub

   Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
       TextBox2.Text = ".Wav"
   End Sub

   Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
       TextBox2.Text = ".Mp3"
   End Sub

   Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
       TextBox2.Text = ".Mp4"
   End Sub

       

و الان انتهينا من البرنامج الشكل النهائي مع التعديل و تزيينه :

لتحميل البرنامج من هنـــــــــــــــــــــــــــــــــــــا