منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم ورحمه الله وبركاته
عايزه كود او مكتبه dll يضيفلي اداه جريد فيو حديثه

ممكن رد ياجماعه

وعليك السلام ورحمة الله وبركاته

يمكنك عمل نسخة معدلة لاي اداة تريدينها وبالخصائص التي ترغبين ولعمل هذا يمكنك اضافة UserControl او Component
ولكن اعتقد انك لاتعرفين الطريقة لذا يمكنك اخباري بالخصائص التي تريدينها في الاداة وسأحاول عملها لك

طيب ممكن تشرح لي بالاكواد ازاي اضيف خاصيه في الجريد فيو تصدير بياناتها لاي امتداد يعني اشرحلي عموما

الاخت منه

استخدمي الكود التالي لتصدير البيانات الموجوده في DataGridView الى ملف نصي

ملاحظة : قومي بتغيير اسم ومسار وامتداد الملف الى الاسم والامتداد الذي ترغبين فيه

كود :

If DataGridView1.RowCount = 0 Then

            MessageBox.Show("the datagridview is emptly")

        Else

            If Directory.Exists("C:\Foldertxt") = False Then 

                Directory.CreateDirectory("C:\Foldertxt")

            End If

            Dim sFile As String = "C:\Foldertxt\file.txt"

Dim count As Integer = 1

Dim fileNameOnly As String = Path.GetFileNameWithoutExtension(sFile)

Dim extension As String = Path.GetExtension(sFile)

Dim path__1 As String = Path.GetDirectoryName(sFile)

Dim newFullPath As String = sFile

While File.Exists(newFullPath)

Dim tempFileName As String = String.Format("{0}({1})", fileNameOnly, System.Math.Max(System.Threading.Interlocked.Increment(count),count - 1))

newFullPath = Path.Combine(path__1, tempFileName & extension)

End While

            Using f As New IO.StreamWriter(newFullPath, True)

                Dim col As String = ""

                Dim row As String = ""

                Dim i As Integer = 0

                For Each r As DataGridViewRow In DataGridView1.Rows

                    For Each c As DataGridViewColumn In DataGridView1.Columns

                        row = row & "'" & Convert.ToString(r.Cells(c.HeaderText).Value) & "' "

                    Next

                    If i < DataGridView1.Rows.Count - 1 Then row &= Environment.NewLine

                Next

                f.WriteLine(row)

                MessageBox.Show("file created")

            End Using

        End If

تفضلي اخت منه

هذا مشروع عملت فيه داتاقريد فيو مخصصة وجعلتها تقرا البيانات من قاعدة بيانات Northwind واضفت خاصية التصدير الى ملف

فعند الضغط على زر تصدير يتم حفظ بيانات الداتاقريد الى المسار التالي D:\x.txt

طبعا اكيد لن يكون هذا المشروع هو ماتحتاجينه بالضبط لكن لو عدلتي فيه قليلا سيكون جيد لك

وفي حال احتجتي الى مساعدة او توضيح لاتترددي

[attachment=24905]

طيب ممكن تشرح لي كيفيه التعامل مع user control

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

منه

منه

معاند الحظ

منه

معاند الحظ

معاند الحظ

منه