منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
تقليص الكود - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تقليص الكود (/showthread.php?tid=45451)

تقليص الكود - aminesori - 13-02-23

السلام عليكم ممكن طريقة اخر لي تقليص حجم الكود هذا بطريقه اخرى

كود :
           If txtBoox1.Visible = True Then
               cmd.Parameters.Add(New OleDb.OleDbParameter("@monthmon1", OleDbType.VarChar)).Value = txtBoox1.Text
           ElseIf txtBoox1.Visible = False Then
               cmd.Parameters.Add(New OleDb.OleDbParameter("@monthmon1", OleDbType.VarChar)).Value = ""
           End If
           If txtBoox2.Visible = True Then
               cmd.Parameters.Add(New OleDb.OleDbParameter("@monthmon2", OleDbType.VarChar)).Value = txtBoox2.Text
           ElseIf txtBoox2.Visible = False Then
               cmd.Parameters.Add(New OleDb.OleDbParameter("@monthmon2", OleDbType.VarChar)).Value = ""
           End If

           If txtBoox3.Visible = True Then
               cmd.Parameters.Add(New OleDb.OleDbParameter("@monthmon3", OleDbType.VarChar)).Value = txtBoox3.Text
           ElseIf txtBoox3.Visible = False Then
               cmd.Parameters.Add(New OleDb.OleDbParameter("@monthmon3", OleDbType.VarChar)).Value = ""
           End If

           If txtBoox4.Visible = True Then
               cmd.Parameters.Add(New OleDb.OleDbParameter("@monthmon4", OleDbType.VarChar)).Value = txtBoox4.Text
           ElseIf txtBoox4.Visible = False Then
               cmd.Parameters.Add(New OleDb.OleDbParameter("@monthmon4", OleDbType.VarChar)).Value = ""
           End If

           If txtBoox5.Visible = True Then
               cmd.Parameters.Add(New OleDb.OleDbParameter("@monthmon5", OleDbType.VarChar)).Value = txtBoox5.Text
           ElseIf txtBoox5.Visible = False Then
               cmd.Parameters.Add(New OleDb.OleDbParameter("@monthmon5", OleDbType.VarChar)).Value = ""
           End If
           If txtBoox6.Visible = True Then
               cmd.Parameters.Add(New OleDb.OleDbParameter("@monthmon6", OleDbType.VarChar)).Value = txtBoox6.Text
           ElseIf txtBoox6.Visible = False Then
               cmd.Parameters.Add(New OleDb.OleDbParameter("@monthmon6", OleDbType.VarChar)).Value = ""
           End If
           If txtBoox7.Visible = True Then
               cmd.Parameters.Add(New OleDb.OleDbParameter("@monthmon7", OleDbType.VarChar)).Value = txtBoox7.Text
           ElseIf txtBoox7.Visible = False Then
               cmd.Parameters.Add(New OleDb.OleDbParameter("@monthmon7", OleDbType.VarChar)).Value = ""
           End If
           If txtBoox8.Visible = True Then
               cmd.Parameters.Add(New OleDb.OleDbParameter("@monthmon8", OleDbType.VarChar)).Value = txtBoox8.Text
           ElseIf txtBoox8.Visible = False Then
               cmd.Parameters.Add(New OleDb.OleDbParameter("@monthmon8", OleDbType.VarChar)).Value = ""
           End If
           If txtBoox9.Visible = True Then
               cmd.Parameters.Add(New OleDb.OleDbParameter("@monthmon9", OleDbType.VarChar)).Value = txtBoox9.Text
           ElseIf txtBoox9.Visible = False Then
               cmd.Parameters.Add(New OleDb.OleDbParameter("@monthmon9", OleDbType.VarChar)).Value = ""
           End If
           If txtBoox10.Visible = True Then
               cmd.Parameters.Add(New OleDb.OleDbParameter("@monthmon10", OleDbType.VarChar)).Value = txtBoox10.Text
           ElseIf txtBoox10.Visible = False Then
               cmd.Parameters.Add(New OleDb.OleDbParameter("@monthmon10", OleDbType.VarChar)).Value = ""
           End If
           If txtBoox11.Visible = True Then
               cmd.Parameters.Add(New OleDb.OleDbParameter("@monthmon11", OleDbType.VarChar)).Value = txtBoox11.Text
           ElseIf txtBoox11.Visible = False Then
               cmd.Parameters.Add(New OleDb.OleDbParameter("@monthmon11", OleDbType.VarChar)).Value = ""
           End If
           If txtBoox12.Visible = True Then
               cmd.Parameters.Add(New OleDb.OleDbParameter("@monthmon12", OleDbType.VarChar)).Value = txtBoox12.Text
           ElseIf txtBoox12.Visible = False Then
               cmd.Parameters.Add(New OleDb.OleDbParameter("@monthmon12", OleDbType.VarChar)).Value = ""
           End If