منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] طلب مساعده - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] طلب مساعده (/showthread.php?tid=37229)



طلب مساعده - asmarsou - 19-12-20

السلام عليكم اخواني
اريد كود للانتقال الى وقت معين من زمن تشغيل ملف صوتي او فيديو مثلا (الانتقال الى الدقيقه الاولى و عشر ثواني من زمن التشغيل)


RE: طلب مساعده - سعود - 20-12-20

وعليكم السلام ورحمة الله و بركاته
حاول تعرف المطلوب من هذا المثال  او هذا.
او قد ننتظر احد الاخوة يكتب الكود مباشرة لاني لا اتذكره.


RE: طلب مساعده - asmarsou - 20-12-20

مشكور اخي سعود على الايضاح
ولكن ليس ذلك ما اصبو اليه
الكود المراد تعديله هو
Public Class الانتقال_الى
Private Sub go_to_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles go_to.Tick
TextBox1.Text = Form1.AxWindowsMediaPlayer1.currentMedia.durationString
End Sub
Private Sub الانتقال_الى_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
go_to.Start()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
go_to.Stop()
Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Try
Form1.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = TextBox2.Text
Timer1.Stop()
Catch ex As Exception
End Try
End Sub
End Class
المشكله هي كيف اكتب الوقت بالثواني و الدقائق في التكست بوكس الثاني للانتقال الى الوقت المراد علما ان التكست بوكس لا يقبل الوقت الا بالميلي ثانيه
ارجو انكم فهمتم قصدي


RE: طلب مساعده - has123 - 20-12-20

(20-12-20, 07:17 AM)asmarsou كتب : مشكور اخي سعود على الايضاح
ولكن ليس ذلك ما اصبو اليه
الكود المراد تعديله هو
Public Class الانتقال_الى
   Private Sub go_to_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles go_to.Tick
       TextBox1.Text = Form1.AxWindowsMediaPlayer1.currentMedia.durationString
   End Sub
   Private Sub الانتقال_الى_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       go_to.Start()
   End Sub
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       go_to.Stop()
       Timer1.Start()
   End Sub
   Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
       Try
           Form1.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = TextBox2.Text
           Timer1.Stop()
       Catch ex As Exception
       End Try
   End Sub
End Class
المشكله هي كيف اكتب الوقت بالثواني و الدقائق في التكست بوكس الثاني للانتقال الى الوقت المراد علما ان التكست بوكس لا يقبل الوقت الا بالميلي ثانيه
ارجو انكم فهمتم قصدي

عدل السطر الموجود في time1_tick ولازم تكتب الوقت في textbox2 بهذا الشكل 00:01:10 يعني الساعه والدقيقه والثانيه
PHP كود :
Form1.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition Timespan.parse(TextBox2.Text).totalSeconds 



RE: طلب مساعده - asmarsou - 20-12-20

(20-12-20, 09:11 AM)has123 كتب :
(20-12-20, 07:17 AM)asmarsou كتب : مشكور اخي سعود على الايضاح
ولكن ليس ذلك ما اصبو اليه
الكود المراد تعديله هو
Public Class الانتقال_الى
   Private Sub go_to_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles go_to.Tick
       TextBox1.Text = Form1.AxWindowsMediaPlayer1.currentMedia.durationString
   End Sub
   Private Sub الانتقال_الى_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       go_to.Start()
   End Sub
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       go_to.Stop()
       Timer1.Start()
   End Sub
   Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
       Try
           Form1.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = TextBox2.Text
           Timer1.Stop()
       Catch ex As Exception
       End Try
   End Sub
End Class
المشكله هي كيف اكتب الوقت بالثواني و الدقائق في التكست بوكس الثاني للانتقال الى الوقت المراد علما ان التكست بوكس لا يقبل الوقت الا بالميلي ثانيه
ارجو انكم فهمتم قصدي

عدل السطر الموجود في time1_tick ولازم تكتب الوقت في textbox2 بهذا الشكل 00:01:10 يعني الساعه والدقيقه والثانيه
PHP كود :
Form1.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition Timespan.parse(TextBox2.Text).totalSeconds 

تمام التمام اخي   [b]اتم الله عليك بوافر الخير          has123[/b]