![]() |
|
[سؤال] طلب مساعده - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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 كتب : مشكور اخي سعود على الايضاح عدل السطر الموجود في 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 كتب : مشكور اخي سعود على الايضاح تمام التمام اخي [b]اتم الله عليك بوافر الخير has123[/b] |