تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ترتيب الكود داخل محرر الفيجوال بيسك
#1
السلام عليكم ورحمة الله وبركاته

بعض الاحيان اجد بعض الاكواد غير مرتبة مثل هذا الكود
مثلا لوقمت بنسخة ووضعه داخل محرر الفيجوال بيسك راح يطلع لك اخطاء بسبب ان الكود صار بسطرين وغير مرتب ولكي يعمل لابد من اعادة ترتيبه من جديد
PHP كود :
Private Sub Populate(ByVal path As String) Try ListView1.Items.Clear() ComboBox1.Text path Dim lb As New ListBox For Each str As String In My.Computer.FileSystem.GetDirectories(pa­thlb.Items.Add(strNexFor Each str As String In My.Computer.FileSystem.GetFiles(pathlb.Items.Add(strNext ListView1.Items.Add("...") For Each item In lb.Items Dim NewItem As New ListViewItem If My.Computer.FileSystem.FileExists(item.T­oStringThen Dim info As New System.IO.FileInfo(item.ToStringNewItem.Text item.ToString NewItem.SubItems.Add(info.LengthNewItem.SubItems.Add(info.CreationTimeNewItem.SubItems.Add(info.LastWriteTime) Else Dim info As New System.IO.DirectoryInfo(item.ToStringNewItem.Text item.ToString NewItem.SubItems.Add("Directory&quo­t;) NewItem.SubItems.Add(info.CreationTime) NewItem.SubItems.Add(info.LastWriteTime) End If ListView1.Items.Add(NewItem) Next ComboBox1.Items.Add(path) Catch ex As Exception If path.EndsWith("My Documents") Then path = My.Computer.FileSystem.SpecialDirectorie­s.MyDocuments Populate(path) ElseIf path.EndsWith("My Pictures") Then path = My.Computer.FileSystem.SpecialDirectorie­s.MyPictures Populate(path) ElseIf path.EndsWith("My Music") Then path = My.Computer.FileSystem.SpecialDirectorie­s.MyMusic Populate(path) End If End Try End Sub Private Sub ListView1_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.DoubleClick If My.Computer.FileSystem.FileExists(ListVi­ew1.FocusedItem.Text) Then Process.Start(ListView1.FocusedItem.Text­) Else If ListView1.FocusedItem.Text = "..." Then Try Populate(My.Computer.FileSystem.GetParen­tPath(ComboBox1.Text)) Catch ex As Exception MsgBox("You can't get any farther back than a drive! (" & ComboBox1.Text & ")") End Try Else Populate(ListView1.FocusedItem.Text) End If End If End Sub Private Sub ComboBox1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ComboBox1.KeyDown If e.KeyCode = Keys.Enter Then Try Populate(ComboBox1.Text) Catch ex As Exception MsgBox(ComboBox1.Text & " does not exist on this system as a directory. Check spelling.") End Try End If End Sub
End Class 


السؤال هو كيف ارتب الكود واخليه منظم ويظهر هكذا ويتعرف المحرر على الكود بشكل صحيح
PHP كود :
Public Class Form1 Private Sub Form1_Load(ByVal sender As System.ObjectByVal e As System.EventArgsHandles MyBase.Load 
Populate
(ComboBox1.Text
End Sub 
اثنان لا يتعلمان المتكبر والخجول
Heart اللهم علمنا ما ينفعنا و انفعنا بما علمتنا وَ زِدْنا علماً‏ Heart
الرد }}}}
تم الشكر بواسطة:
#2
(25-12-14, 07:48 AM)silverlord كتب : السلام عليكم ورحمة الله وبركاته

بعض الاحيان اجد بعض الاكواد غير مرتبة مثل هذا الكود
مثلا لوقمت بنسخة ووضعه داخل محرر الفيجوال بيسك راح يطلع لك اخطاء بسبب ان الكود صار بسطرين وغير مرتب ولكي يعمل لابد من اعادة ترتيبه من جديد

PHP كود :
Private Sub Populate(ByVal path As String) Try ListView1.Items.Clear() ComboBox1.Text path Dim lb As New ListBox For Each str As String In My.Computer.FileSystem.GetDirectories(pa­thlb.Items.Add(strNexFor Each str As String In My.Computer.FileSystem.GetFiles(pathlb.Items.Add(strNext ListView1.Items.Add("...") For Each item In lb.Items Dim NewItem As New ListViewItem If My.Computer.FileSystem.FileExists(item.T­oStringThen Dim info As New System.IO.FileInfo(item.ToStringNewItem.Text item.ToString NewItem.SubItems.Add(info.LengthNewItem.SubItems.Add(info.CreationTimeNewItem.SubItems.Add(info.LastWriteTime) Else Dim info As New System.IO.DirectoryInfo(item.ToStringNewItem.Text item.ToString NewItem.SubItems.Add("Directory&quo­t;) NewItem.SubItems.Add(info.CreationTime) NewItem.SubItems.Add(info.LastWriteTime) End If ListView1.Items.Add(NewItem) Next ComboBox1.Items.Add(path) Catch ex As Exception If path.EndsWith("My Documents") Then path = My.Computer.FileSystem.SpecialDirectorie­s.MyDocuments Populate(path) ElseIf path.EndsWith("My Pictures") Then path = My.Computer.FileSystem.SpecialDirectorie­s.MyPictures Populate(path) ElseIf path.EndsWith("My Music") Then path = My.Computer.FileSystem.SpecialDirectorie­s.MyMusic Populate(path) End If End Try End Sub Private Sub ListView1_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.DoubleClick If My.Computer.FileSystem.FileExists(ListVi­ew1.FocusedItem.Text) Then Process.Start(ListView1.FocusedItem.Text­) Else If ListView1.FocusedItem.Text = "..." Then Try Populate(My.Computer.FileSystem.GetParen­tPath(ComboBox1.Text)) Catch ex As Exception MsgBox("You can't get any farther back than a drive! (" & ComboBox1.Text & ")") End Try Else Populate(ListView1.FocusedItem.Text) End If End If End Sub Private Sub ComboBox1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ComboBox1.KeyDown If e.KeyCode = Keys.Enter Then Try Populate(ComboBox1.Text) Catch ex As Exception MsgBox(ComboBox1.Text & " does not exist on this system as a directory. Check spelling.") End Try End If End Sub
End Class 


السؤال هو كيف ارتب الكود واخليه منظم ويظهر هكذا ويتعرف المحرر على الكود بشكل صحيح

PHP كود :
Public Class Form1 Private Sub Form1_Load(ByVal sender As System.ObjectByVal e As System.EventArgsHandles MyBase.Load 
Populate
(ComboBox1.Text
End Sub 
انت وخبرتك لازم تراجع كل الاكواد وتشوف كيف ترتب بينهم
لقد اكتشفت مع الأيام أنه ما من فعلٍ مغايرٍ للأخلاق, وما من جريمة بحق المجتمع إلا ولليهود والنصارى يداً فيها  Idea

الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  فتح ملف PDF في الفيجوال بيسك anasmoner 8 402 منذ 5 ساعة مضت
آخر رد: umy
  كيفية تشغيل وإغلاق الادوات الذكية لويندوز 7 عن طريق الكود رمضان محمد 1 83 28-05-17, 06:53 PM
آخر رد: رمضان محمد
  [VB.NET] برجاء المساعدة فى تعديل هذا الكود (htmlDocument.DocumentNode.SelectNodes) الماجيك مسعد 16 307 28-05-17, 05:21 PM
آخر رد: alma2
  كيفية عمل تضبيط الفلتر من داخل فلتر اخر khaled12345 4 91 28-05-17, 04:50 AM
آخر رد: khaled12345
  [VB.NET] اريد طريقة لتشفير اكواد الفيجوال بيسك طارق سليمان 0 65 24-05-17, 05:14 PM
آخر رد: طارق سليمان
  [VB.NET] كيف اوضع ProgressBar في هذا الكود e-coder 0 55 23-05-17, 07:43 PM
آخر رد: e-coder
  [VB.NET] احتاج تعديل الكود يخص تشغيل Button حسب user domin hglogtd 4 111 22-05-17, 09:25 AM
آخر رد: hglogtd
  البحث او الفلتر باكثر من اسم من داخل عمود Name khaled12345 2 69 21-05-17, 08:18 AM
آخر رد: khaled12345
  [VB.NET] اريد وضع مؤقت بدون تايمر داخل هذا الكود + المشروع بالكامل e-coder 0 53 19-05-17, 04:09 PM
آخر رد: e-coder
  [VB.NET] كيف اضع وقت في هذا الكود e-coder 4 133 18-05-17, 08:07 AM
آخر رد: e-coder

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم