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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيف اربط الوورد مع الفيجوال بيسك انوار القصيم 7 1,289 17-02-17, 01:18 PM
آخر رد: محمد عمار
  [VB.NET] مشكلة نقل الكود من Form2 الي Form1 3asfa~mdmra 2 70 17-02-17, 02:44 AM
آخر رد: الماجيك مسعد
  توليد الادوات في FlowLayoutPanel بواسطة الكود وحذفها (تم ارفاق المشروع) اليوم مبتدئة وغداً محترفة 16 316 13-02-17, 07:43 AM
آخر رد: اليوم مبتدئة وغداً محترفة
  ما الفرق بين اضافة قاعدة البيانات عن طريق الكود و اضافى قاعدة البيانات عن طريق add ne noway 1 47 12-02-17, 08:06 PM
آخر رد: مساعدة
  [سؤال] استفسار داخل List box عبدالرحمن المكاوي 10 151 31-01-17, 05:32 PM
آخر رد: عبدالرحمن المكاوي
Thumbs Up [VB.NET] ادراج صور وملفات داخل ال sql باستخدام vb khallak86 0 60 31-01-17, 11:40 AM
آخر رد: khallak86
  هل يكون فيجوال بيسك 6 أقوى احيانا؟ abudawoodd 9 174 30-01-17, 01:19 AM
آخر رد: abudawoodd
Information [VB.NET] مساعده في الفيجوال بيسك هل اقدر اسوي اكثر من فورم a_abdullah 5 250 28-01-17, 02:14 PM
آخر رد: أسامة السالمي
  كيف يمكن تثبيت رقم داخل مربع النص والنموذج فى وضع العرض السيد الجوهري 5 88 28-01-17, 02:25 AM
آخر رد: السيد الجوهري
  [VB.NET] تعديل بيسط على الكود ليصيح جاهزآ 3asfa~mdmra 0 56 27-01-17, 06:01 PM
آخر رد: 3asfa~mdmra

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


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