+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=34988)
مكتبه - منه - 27-05-20
السلام عليكم ورحمه الله وبركاته
عايزه كود او مكتبه dll يضيفلي اداه جريد فيو حديثه
RE: مكتبه - منه - 27-05-20
ممكن رد ياجماعه
RE: مكتبه - معاند الحظ - 27-05-20
وعليك السلام ورحمة الله وبركاته
يمكنك عمل نسخة معدلة لاي اداة تريدينها وبالخصائص التي ترغبين ولعمل هذا يمكنك اضافة UserControl او Component
ولكن اعتقد انك لاتعرفين الطريقة لذا يمكنك اخباري بالخصائص التي تريدينها في الاداة وسأحاول عملها لك
RE: مكتبه - منه - 27-05-20
طيب ممكن تشرح لي بالاكواد ازاي اضيف خاصيه في الجريد فيو تصدير بياناتها لاي امتداد يعني اشرحلي عموما
RE: مكتبه - معاند الحظ - 27-05-20
الاخت منه
استخدمي الكود التالي لتصدير البيانات الموجوده في 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 IfRE: مكتبه - معاند الحظ - 28-05-20
تفضلي اخت منه
هذا مشروع عملت فيه داتاقريد فيو مخصصة وجعلتها تقرا البيانات من قاعدة بيانات Northwind واضفت خاصية التصدير الى ملف
فعند الضغط على زر تصدير يتم حفظ بيانات الداتاقريد الى المسار التالي D:\x.txt
طبعا اكيد لن يكون هذا المشروع هو ماتحتاجينه بالضبط لكن لو عدلتي فيه قليلا سيكون جيد لك
وفي حال احتجتي الى مساعدة او توضيح لاتترددي
[attachment=24905]
RE: مكتبه - منه - 28-05-20
طيب ممكن تشرح لي كيفيه التعامل مع user control