+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [عنوان معدل] مساعدة في اداة Progress Bar (/showthread.php?tid=4346)
[عنوان معدل] مساعدة في اداة Progress Bar - barakascap - 22-09-12
سلام عليكم ورحمة الله وبركاته
ارجوا المسلعدة فى ربط عملية النسخ بال progres pare
ومرفق لكم رابط التطبيق لفشلى فى رفع الملف
http://vb4arab.com/vb/showthread.php?t=108958
وبراجاء المساعدة فى عملية الفع هل هناك مشكله
دمت فى احسن صحة وفقكم الله
[عنوان معدل] مساعدة في اداة Progress Bar - Mostafa Dahab - 22-09-12
progressbar
http://social.msdn.microsoft.com/Forums/en-US/Vsexpressvcs/thread/a285bdb9-6838-48f3-b8ed-1bf0156f8c51/
[عنوان معدل] مساعدة في اداة Progress Bar - Blue Sky - 22-09-12
اخي اعطيك بعض النتائج
تنيجة 1
PHP كود :
Dim sr As New FileStream("[Input-file]", IO.FileMode.Open) Dim sw As New FileStream("[Output-file]", IO.FileMode.Create) Dim len As Long = sr.Length - 1 Dim buffer(1024) As Byte Dim bytesread As Integer
While sr.Position < len bytesread = (sr.Read(buffer, 0, 1024)) sw.Write(buffer, 0, bytesread) mainscreen.FileProgress.Value = CInt(sr.Position / len * 100) Application.DoEvents() End While
sw.Flush() sw.Close() sr.Close()
نتيجة 2
PHP كود :
Sub copyfilewithprogress() Dim path As String = Application.StartupPath & "\" Dim mediafile As String = "Amy Diamond - What's in it for me.mp3" Dim fi As New IO.FileInfo(mediafile) Dim sr As New IO.FileStream(path & mediafile, IO.FileMode.Open) 'source file Dim sw As New IO.FileStream(path & "copy of " & mediafile, IO.FileMode.Create) 'target file, defaults overwrite Dim len As Long = sr.Length - 1 For i As Long = 0 To len sw.WriteByte(sr.ReadByte) If i Mod 1000 = 0 Then 'only update UI every 1 Kb copied ProgressBar1.Value = i * 100 / len Application.DoEvents() End If Next ProgressBar1.Value = 0End Sub
[عنوان معدل] مساعدة في اداة Progress Bar - barakascap - 23-09-12
جربت ولم افلح
ولا استطيع رفع المرفقات
برجاء المساعدة