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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم لغة الفيجوال بيسك VB.NET > قسم اسئلة VB.NET > تصحيح هذا الكود
نسخة كاملة : تصحيح هذا الكود
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2

Mohamed20

22-07-16, 08:07 PM
كود :
                   Listview1.Items.Add(New ListViewItem() With {Key.ImageIndex = imgIndex, Key.Text = list})
هذا الكود فى الاساس كان
كود :
listView1.Items.Add(New ListViewItem() {ImageIndex = imgIndex, Text = list});
و هذا 
كود :
double prog = 0;
                   prog += temp;
                   (sender as BackgroundWorker).ReportProgress((Int32)prog);

كود :
                 Dim prog As Double = 0 
prog += temp
               TryCast(sender, BackgroundWorker).ReportProgress(DirectCast(prog, Int32))

LoveVb

22-07-16, 08:09 PM
هل تقصد تحويل الكود من سي شارب الى VB.NET
اذا كان نعم تفضل
ListView1.Items.Add(New ListViewItem() With {.ImageIndex = 0, .Text = ""})

Mohamed20

22-07-16, 08:12 PM
(22-07-16, 08:09 PM)LoveVb كتب : [ -> ]هل تقصد تحويل الكود من سي شارب الى VB.NET
اذا كان نعم تفضل
       ListView1.Items.Add(New ListViewItem() With {.ImageIndex = 0, .Text = ""})

اجل هذا ما اقصدة تم تصحيح الكود الاول شكرآ

هل يمكن تصحيح هذا الكود ؟
كود :
double prog = 0;
                   prog += temp;
                   (sender as BackgroundWorker).ReportProgress((Int32)prog);

                 Dim prog As Double = 0
prog += temp
               TryCast(sender, BackgroundWorker).ReportProgress(DirectCast(prog, Int32))

LoveVb

22-07-16, 08:17 PM
اسف لا افهم لغة السي شارب جيدا
مثل :    (sender as BackgroundWorker).ReportProgress((Int32)prog);
ومتغير prog بجانب قوس  Huh  وحدث في كود  Big Grin
انتظر الاخوهـ ^^

الوادي

22-07-16, 08:32 PM
يبدو أنك حولت الكود عن طريق مواقع التحويل
وغالبا المواقع تضيف Key فينبغي حذفها مع الاحتفاظ بالنقطة
PHP كود :
ListView1.Items.Add(New ListViewItem() With {.ImageIndex = imgIndex, .Text = List}) 

وتحويل أنواع الأرقام غير ضروري في الفجوال بيسيك
PHP كود :
TryCast(sender, BackgroundWorker).ReportProgress(prog) 

ولكن إذا أردتها بالتحويل فهكذا يكون
PHP كود :
TryCast(sender, BackgroundWorker).ReportProgress(CType(prog, Integer)) 

Mohamed20

22-07-16, 09:30 PM
(22-07-16, 08:32 PM)الوادي كتب : [ -> ]يبدو أنك حولت الكود عن طريق مواقع التحويل
وغالبا المواقع تضيف Key فينبغي حذفها مع الاحتفاظ بالنقطة
PHP كود :
ListView1.Items.Add(New ListViewItem() With {.ImageIndex = imgIndex, .Text = List}) 

وتحويل أنواع الأرقام غير ضروري في الفجوال بيسيك
PHP كود :
TryCast(sender, BackgroundWorker).ReportProgress(prog) 

ولكن إذا أردتها بالتحويل فهكذا يكون
PHP كود :
TryCast(sender, BackgroundWorker).ReportProgress(CType(prog, Integer)) 

شكرآ عندى مشكلة اخرى

كود :
               DownloadWorker.DoWork += new DoWorkEventHandler(DownloadWorker_DoWork);
               DownloadWorker.ProgressChanged += new ProgressChangedEventHandler(DownloadWorker_ProgressChanged);
               DownloadWorker.RunWorkerCompleted += new RunWorkerCompletedEventHandler(DownloadWorker_RunWorkerCompleted);

               DownloadWorker.RunWorkerAsync();

الى

           AddHandler DownloadWorker.DoWork, New DoWorkEventHandler(AddressOf DownloadWorker_DoWork)
           AddHandler DownloadWorker.ProgressChanged, New ProgressChangedEventHandler(AddressOf DownloadWorker_ProgressChanged)
           AddHandler DownloadWorker.RunWorkerCompleted, New RunWorkerCompletedEventHandler(AddressOf DownloadWorker_RunWorkerCompleted)

           DownloadWorker.RunWorkerAsync()
لاكن الكود لا يعمل

الوادي

22-07-16, 09:34 PM
جربها هكذا
PHP كود :
AddHandler DownloadWorker.DoWork, AddressOf DownloadWorker_DoWork
AddHandler DownloadWorker.ProgressChanged, AddressOf DownloadWorker_ProgressChanged
AddHandler DownloadWorker.RunWorkerCompleted, AddressOf DownloadWorker_RunWorkerCompleted

DownloadWorker.RunWorkerAsync() 
وإلا فضع مشروعك

Mohamed20

22-07-16, 09:57 PM
(22-07-16, 09:34 PM)الوادي كتب : [ -> ]جربها هكذا
PHP كود :
AddHandler DownloadWorker.DoWork, AddressOf DownloadWorker_DoWork
AddHandler DownloadWorker.ProgressChanged, AddressOf DownloadWorker_ProgressChanged
AddHandler DownloadWorker.RunWorkerCompleted, AddressOf DownloadWorker_RunWorkerCompleted

DownloadWorker.RunWorkerAsync() 
وإلا فضع مشروعك
يعمل شكرآ هل يمكن ان تشرح لى ما الفرق بين هذا الكود و كود C# لاننى اريد ان اتعلم

الوادي

22-07-16, 10:05 PM
لا يوجد فرق بينهم من ناحية العمل

ولكن ما هي الفكرة التي تريدها؟

Mohamed20

22-07-16, 10:20 PM
(22-07-16, 10:05 PM)الوادي كتب : [ -> ]لا يوجد فرق بينهم من ناحية العمل

ولكن ما هي الفكرة التي تريدها؟

ان من ناحية السى شارب يتم استخدام المود على هذا الشكل
كود :
               DownloadWorker.DoWork += new DoWorkEventHandler(DownloadWorker_DoWork);
               DownloadWorker.ProgressChanged += new ProgressChangedEventHandler(DownloadWorker_ProgressChanged);
               DownloadWorker.RunWorkerCompleted += new RunWorkerCompletedEventHandler(DownloadWorker_RunWorkerCompleted);
يتم استخدام += new event و فى الدوت نت يتم استخدام AddHandler
الصفحات : 1 2
منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم لغة الفيجوال بيسك VB.NET > قسم اسئلة VB.NET > تصحيح هذا الكود