20-12-20, 07:17 AM
مشكور اخي سعود على الايضاح
ولكن ليس ذلك ما اصبو اليه
الكود المراد تعديله هو
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
المشكله هي كيف اكتب الوقت بالثواني و الدقائق في التكست بوكس الثاني للانتقال الى الوقت المراد علما ان التكست بوكس لا يقبل الوقت الا بالميلي ثانيه
ارجو انكم فهمتم قصدي
ولكن ليس ذلك ما اصبو اليه
الكود المراد تعديله هو
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
المشكله هي كيف اكتب الوقت بالثواني و الدقائق في التكست بوكس الثاني للانتقال الى الوقت المراد علما ان التكست بوكس لا يقبل الوقت الا بالميلي ثانيه
ارجو انكم فهمتم قصدي

