تقييم الموضوع :
  • 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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل من الممكن العمل على قاعدة بيانات اكسل على الفيجوال بيسك خالد كامل1 4 83 24-03-24, 02:00 AM
آخر رد: خالد كامل1
  ممكن حل المشكلة فى الكود التالي - من مشاركة استاذنا القدير / عبدالله الدوسري new_programer 4 169 02-03-24, 07:36 PM
آخر رد: new_programer
  ماهو حل هذا الخطأ في الكود melad2002 7 264 25-02-24, 12:25 AM
آخر رد: justforit
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 194 20-02-24, 12:00 AM
آخر رد: Kamil
  [VB.NET] أرغب فى استخدام هذا الكود بالتحديد على الإصدار 10 AmeenRashed 3 206 19-01-24, 12:42 PM
آخر رد: Taha Okla
  الالوان في فيجوال بيسك atefkhalf2004 2 418 05-01-24, 04:38 PM
آخر رد: atefkhalf2004
  تحويل مشروع من c# الى فيجول بيسك Lathe1 4 718 05-01-24, 01:05 AM
آخر رد: HALIM ELEULMA
  ترتيب Crystal Report Sort waataanys 1 271 05-01-24, 12:40 AM
آخر رد: HALIM ELEULMA
  [سؤال] كيفية انشاء فورم داخل مشروعى عاصم النجار 2 305 05-01-24, 12:36 AM
آخر رد: HALIM ELEULMA
  حماية عمود داخل ورقة الاكسل العيدروس 3 190 05-01-24, 12:21 AM
آخر رد: HALIM ELEULMA

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


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