[سؤال] المرجو المساعدة كود الاضافة ليعمل في تصميم برنامج صانع الاكواد - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=19409)

المرجو المساعدة كود الاضافة ليعمل في تصميم برنامج صانع الاكواد - brioule - 25-02-17 السلام عليم ورحمة الله وبركاته  المرجو المساعدة  كود الاضافة ليعمل  في تصميم برنامج صانع الاكواد Public Sub save_All_Toolbox(txtquery As TextBox, dgvTable As DataGridView, dgvfields As DataGridView) Try Dim strTableName As String = dgvTable.CurrentRow.Cells(0).Value.ToString() txtquery.Text = "" If Search("PictureBox", dgvfields) Then keyCount = -1 For k As Integer = 0 To dgvfields.Rows.Count - 1 keyCount += 1 Convert(dgvfields) If dgvfields.Rows(keyCount).Cells("Toolbox").Value = "PictureBox" Then strSQL += "try" & Environment.NewLine & "Dim byteimage" & keyCount & "() As Byte" & Environment.NewLine strSQL += "Dim ms" & keyCount & "As New MemorrySstream()" & Environment.NewLine strSQL += dgvfields.Item("TxtName", keyCount).Value.ToString & "_" & dgvfields.Item("Column_Name", keyCount).Value.ToString & "" & dgvfields.Item("Value", keyCount).Value.ToString & ".Save(ms" & keyCount & " , " & dgvfields.Item("TxtName", keyCount).Value.ToString & "_" & dgvfields.Item("Column_Name", keyCount).Value.ToString & "" & dgvfields.Item("Value", keyCount).Value.ToString & "RawFormat)" & Environment.NewLine strSQL += "byteimage" & keyCount & " = ms" & keyCount & ".ToArray()" & Environment.NewLine End If Next strSQL &= "Insert" & strTableName & "(" keyCount = -1 For i As Integer = 0 To dgvfields.Rows.Count - 1 keyCount += 1 Convert(dgvfields) If dgvfields.Rows(keyCount).Cells("Toolbox").Value = "PictureBox" Then strSQL += "byteimage" & keyCount If keyCount < dgvfields.Rows.Count - 1 Then strSQL += "," Else strSQL += "" End If Else strSQL += dgvfields.Item("TxtName", i).Value.ToString & "_" & dgvfields.Item("Column_Name", i).Value.ToString & "" & dgvfields.Item("Value", i).Value.ToString If keyCount < dgvfields.Rows.Count - 1 Then strSQL += "," Else strSQL += "" End If End If Next strSQL += ")" & Environment.NewLine strSQL += "Catch ex As Exception" & Environment.NewLine & "MsgBox(ex.Message)" & Environment.NewLine & "End Try" txtquery.Text = strSQL & Environment.NewLine keyCount = 0 Else strSQL = "" strSQL += "Insert" & strTableName & "(" keyCount = 0 For i As Integer = 0 To dgvfields.Rows.Count - 1  'fred withEvents Toolbox keyCount += 1 Convert(dgvfields) strSQL += dgvfields.Item("TxtName", i).Value.ToString & "_" & dgvfields.Item("Column_Name", i).Value.ToString & "" & dgvfields.Item("Value", i).Value.ToString If keyCount < dgvfields.Rows.Count - 1 Then strSQL += "," Else strSQL += "" End If Next keyCount = 0 strSQL += ")" txtquery.Text += strSQL & Environment.NewLine End If Catch ex As Exception MessageBox.Show(ex.Message, "Aletr", MessageBoxButtons.OK, MessageBoxIcon.Information) End Try End Sub Public Function Search(ByVal SearchPicture As String, dgvFields As DataGridView) As Boolean Try Dim intcount As Integer = 0 For Each row As DataGridViewRow In dgvFields.Rows If dgvFields.Rows(intcount).Cells(0).Value.ToString = SearchPicture Then dgvFields.Rows(intcount).Selected = True Search = True Exit Function End If intcount += 1 Next row Search = False Catch ex As Exception MessageBox.Show(ex.Message, "Aletr", MessageBoxButtons.OK, MessageBoxIcon.Information) End Try End Function