تحويل كود مكتوب بلغة الفيجول بيسك 6 الى الدوت نت

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

حاولت تشغيل الرابط بس ما زبط, المهم حاولت بنفسي والحمدلله قدرت اطبع جميع عناصر ال TreeView بنفس التنسيق ولك هذا الكود

فقط تحتاجي اداه ال PrintDocument

VB Helper كتب:

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

حاولت تشغيل الرابط بس ما زبط, المهم حاولت بنفسي والحمدلله قدرت اطبع جميع عناصر ال TreeView بنفس التنسيق ولك هذا الكود

Public Class Form1

Dim row As Integer = 0

Dim col As Integer = 0

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

PrintDocument1.Print()

End Sub

Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage

row += 25

e.Graphics.DrawString(TreeView1.Nodes(0).Text, New Font("Arial", 14), New SolidBrush(Color.Black), New PointF(10, row))

PrintAllNodes(TreeView1.Nodes(0), e.Graphics)

End Sub

Sub PrintAllNodes(ByVal currentNode As TreeNode, ByVal g As Graphics)

If currentNode IsNot Nothing Then

col += 25

For Each node As TreeNode In currentNode.Nodes

row += 25

g.DrawString(node.Text, New Font("Arial", 14), New SolidBrush(Color.Black), New PointF(col, row))

PrintAllNodes(node, g)

Next

col -= 25

End If

End Sub

End Class

فقط تحتاجي اداه ال PrintDocument

أشكرك أخي الكريم شكرا جزيلاً ، وأعتذر لعدم كتابة الرابط بالشكل الصحيح ، ولكن عندي تشغيلي للكود طبع محتويات ال التري دون الخطوط التي تفصلهم ، أي أنني أود لو تظهر التري تماما كما هي وليست فقط محتوياتها .

هذا الرابط قد يوضح الفكره :

http://www.planet-source-code.com

com/vb...24627&lngWId=1

وإن لم يفتح ، فهذا الكود المكتوب بلغة الvb6 ويقوم بطباعة الخطوط العموديه والأفقيه بين محتويات التري ، ولكنه للأسف مكتوب بلغة ال vb6 وليس الدوت نت

Dim FName As String ' FileName of the html file

Dim LeftX As Integer ' Global x coordinate for the nodes in html

Dim TopY As Integer ' Global Y coordinate for nodes in html

Dim totalHTML As String ' this variable holds the HTML code generated throughout the program

Const TopIncrement = 20 ' the number of pixels of difference between nodes

Const LeftIncrement = 30

Public Function WriteTextFileContents(TeXt As String, FileName As String)

' Simple Function writes text to a file

' Used for outputing to html format

Dim fNum As Integer, isOpen As Boolean

On Error GoTo ErrHandle

fNum = FreeFile()

Open FileName For Output As #fNum

isOpen = True

Print #fNum, TeXt

ErrHandle:

If isOpen Then Close #fNum

End Function

Public Function ReadTextFileContents(FileName As String) As String

' Simply Reads a text file

Dim fNum As Integer, isOpen As Boolean

On Error GoTo ErrHandle

fNum = FreeFile()

Open FileName For Input As #fNum

isOpen = True

ReadTextFileContents = Input(LOF(fNum), fNum)

ErrHandle:

If isOpen Then Close #fNum

End Function

Private Function horizontalline(top, x1, x2)

' Returns VML (Vector Markup language) equivalent

' Of a horizontal line

Dim width

If x1 > x2 Then width = x1 - x2 Else width = x2 - x1

horizontalline = "<v:rect style='position:absolute;left:" & x1 & ";top:" & top & ";width:" & width & "px;height:1px;Z-INDEX: 0;'></v:rect>"

End Function

Private Function verticalline(left, y1, y2)

' Returns VML (Vector Markup language) equivalent

' Of a vertical line

Dim height

If y1 > y2 Then height = y1 - y2 Else height = y2 - y1

verticalline = "<v:rect style='position:absolute;left:" & left & ";top:" & y1 & ";width:1px;height:" & height & "px;Z-INDEX: 0;'></v:rect>"

End Function

Public Function SaveAllChildrenOf(indexOfNodeToBePrinted As Integer, htmlFileName As String)

' The main public function . Does three things

' Firstly, Initializes the program and the html file

Initialise htmlFileName

' Secondly calls the recursive function to convert the nodes to html

PrintNode indexOfNodeToBePrinted

' This statement to write the html to a file

WriteTextFileContents totalHTML, htmlFileName

End Function

Private Function PrintNode(NodeIndex As Integer)

' First one of the two recursive functions that go through the tree

TopY = TopY + TopIncrement ' this topY variable maintains the Y coordinates of the nodes in html

Form1.Tree.Nodes(NodeIndex).Tag = TopY 'Storing the Y coordinates in the Tag part of the treeview control so that they can be refrenced later by their last children

WriteHTML Form1.Tree.Nodes(NodeIndex).TeXt ' This functions just produces html at the current x and y coordinates and increments the y coordinate

If NodeIndex <> 1 Then ' SInce the first node would not have parent

If Form1.Tree.Nodes(NodeIndex).index = Form1.Tree.Nodes(NodeIndex).Parent.Child.LastSibling.index Then ' This means if this is the last child of its parent then

totalHTML = totalHTML & verticalline(LeftX - LeftIncrement + 3, Int(Form1.Tree.Nodes(NodeIndex).Parent.Tag) + 7, TopY + 7) ' then draw a vertical line from parents y (as stored in tag property(see Above)) coordinate to its Y coordinate (A shift of 7 pixels is given to improve looks)

End If

End If

PrintAllChildren (NodeIndex) ' this function goes through all the children of this node and calls the current method for each children.

End Function

Private Function PrintAllChildren(index As Integer)

' What this function does is that it calls the above function for all the children of the node specified

' So these two functions basically call each other to go through the whole tree

If Form1.Tree.Nodes(index).Children = 0 Then Exit Function ' No use of the function if it doesnt even have children

LeftX = LeftX + LeftIncrement ' The children should be a little to the left of the parent. Dont you think?

Dim curIndex As Integer 'This would be the Index of the current child

curIndex = Form1.Tree.Nodes(index).Child.index 'getting its childs index

For f = 1 To Form1.Tree.Nodes(index).Children ' for all children

PrintNode (curIndex) 'call the above function

If f <> Form1.Tree.Nodes(index).Children Then curIndex = Form1.Tree.Nodes(curIndex).Next.index ' if we are not at the last child then goto next child

Next

LeftX = LeftX - LeftIncrement ' after all the children have been displayed (And their children have been displayed), back to the old X coordinate

End Function

Private Function WriteHTML(TeXt As String)

' Simple function to use <div> tags and style sheets to put the node at a specific x and y coordinate in the web page

totalHTML = totalHTML & "<div style='{BACKGROUND-COLOR: white;color:black;Z-INDEX: 1;position:absolute;top=" & TopY & ";left=" & LeftX & ";}'>" & TeXt & "</div>" & horizontalline(TopY + 7, LeftX - LeftIncrement + 3, LeftX + 3)

End Function

Private Function Initialise(FileName As String)

' Initalizing variables

FName = FileName ' The FileName

LeftX = 10 ' Left Margin. Change this to change the left margin

TopY = 10 ' Top Margin. Change this to change the top margin

totalHTML = "<font face='courier new'><html xmlns:v='urn:schemas-microsoft-com:vml'><head> <style> v\:* { behavior: url(#default#VML); } </style> </head><pre>" ' Html to Initialise XML VML stuff

End Function

............................

أرجو منك تكملة معروفك معي ... فقط أُجهدت بهذا الموضوع كثيرا

وجزاك الله عني كل الخير

من قائمة Tools يوجد الأمر Upgrade Visual Basic 6 Code قم باستخدامه لتحويل الكود

الكود لن يتم تحويله بنسبة 100% لكن سيوفر عليك الكثير من الوقت والجهد

GHOST2010 كتب:

من قائمة Tools يوجد الأمر Upgrade Visual Basic 6 Code قم باستخدامه لتحويل الكود

الكود لن يتم تحويله بنسبة 100% لكن سيوفر عليك الكثير من الوقت والجهد

عملت هذه الطريقه ولكن فعلا كما قلت لم تحوله 100% وحاولت التعديل ولم استطع الوصول الى نتيجه ... الكود الذي كتبه

VB.Helper كود رائع جداً قمت بتطبيقه على امثله متعدده وعمل بشكل رائع ، ولكنه لم يحتوي على خطوط التري ، أي أنها لم تظهر الخطوط العموديه والأفقيه بين عناصر التري ،،،، :-(

أرجو منه أن يقرأ هذه المشكله ويساعدني في حلها

جزاه الله عني خيرا

أشكركم لتعاونكم

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

غيري السطرين في الكود السابق الي

e.Graphics.DrawString("- " & TreeView1.Nodes(0).Text, New Font("Arial", 14), New SolidBrush(Color.Black), New PointF(10, row))

عسى يكون زي الي تريدي, اما الكود حقك ما زال الرابط خطأ ؟!!! وبعد بحث طويل وجدته وسوف اعدله اذا لم يجدي حلي هذا

VB Helper كتب:

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

غيري السطرين في الكود السابق الي

g.DrawString("|- " & node.Text, New Font("Arial", 14), New SolidBrush(Color.Black), New PointF(col, row))

e.Graphics.DrawString("- " & TreeView1.Nodes(0).Text, New Font("Arial", 14), New SolidBrush(Color.Black), New PointF(10, row))

عسى يكون زي الي تريدي, اما الكود حقك ما زال الرابط خطأ ؟!!! وبعد بحث طويل وجدته وسوف اعدله اذا لم يجدي حلي هذا

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

أشكرك أخي على الاهتمام ... ولكن أعتقد أني لم أقم بتوضيح طلبي ... ، أرجو أن تفتح الصوره في المرفق فقد وضحت ما أريد برسمها

huda Khlefat كتب:

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

أشكرك أخي على الاهتمام ... ولكن أعتقد أني لم أقم بتوضيح طلبي ... ، أرجو أن تفتح الصوره في المرفق فقد وضحت ما أريد برسمها

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

بالصراحه كود الموقع تعبنا في التعديل قمت بتعديل كودي وان شاء الله هو المطلوب

Public Class Form1

VB Helper كتب:

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

بالصراحه كود الموقع تعبنا في التعديل قمت بتعديل كودي وان شاء الله هو المطلوب

Dim row As Integer = 0
Dim col As Integer = 0
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
PrintDocument1.Print()
End Sub

Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
row += 30
e.Graphics.DrawLine(Pens.Black, New Point(10, row + 10), New Point(40, row + 10))
e.Graphics.DrawString(TreeView1.Nodes(0).Text, New Font("Arial", 14), New SolidBrush(Color.Black), New PointF(40, row))
col += 10
PrintAllNodes(TreeView1.Nodes(0), e.Graphics)
End Sub

Sub PrintAllNodes(ByVal currentNode As TreeNode, ByVal g As Graphics)
Dim p As New Point()
If currentNode IsNot Nothing Then
col += 40
For Each node As TreeNode In currentNode.Nodes
row += 30
g.DrawLine(Pens.Black, New Point(col, row + 10), New Point(col + 30, row + 10))
If node.Index = 0 Then
g.DrawLine(Pens.Black, New Point(col, row - 10), New Point(col, row + 10))
p.X = col
p.Y = row + 10
Else
g.DrawLine(Pens.Black, New Point(p.X, p.Y), New Point(col, row + 10))
End If
g.DrawString(node.Text, New Font("Arial", 14), New SolidBrush(Color.Black), New PointF(col + 30, row))
PrintAllNodes(node, g)
Next
col -= 40
End If
End Sub
End Class

Public Class Form1

حقـــــــــــاً لقد أبليــــــــت بلاءً حسناً ، أشكرك شكراً عظيماً ،،، كود راااائـــــع ،،، تماماً كما أريـــد ، لكن لماذا لا يطبع التري كاااامله ؟؟ يطبع فقط صفحه واحده ؟!؟ كود الموقع يقوم بحفظ التري في صفحة HTML ثم عند اعطائه امر الطباعه يقوم بطباعة التري كااااامله ؟!! على أكثر من صفحه ،، بينما هنا يطبع بداية التري في صفحه واحده ولا يكمل ؟؟!؟ أعلم أني قد بالغت بطرح الأسئلة لكني حقيقةً ممنونه لك بمساعدتك لي ... جعله الله في ميزان حسناتك

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

اوكي صحيح كلامك لاننا لم نصرح ب e.HasMorePages=True لنعرف للطابعه ان هناك اوراق اخر سوف يتم طباعتها, اوكي ما عليك الان الا الاستغناء عن الكود السابق سأرفق مكتبه مع الرد فقط اكتبي

Imports Pitman.Printing

Pitman.Printing.zip

VB Helper كتب:

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

اوكي صحيح كلامك لاننا لم نصرح ب e.HasMorePages=True لنعرف للطابعه ان هناك اوراق اخر سوف يتم طباعتها, اوكي ما عليك الان الا الاستغناء عن الكود السابق سأرفق مكتبه مع الرد فقط اكتبي

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TreeView1.ExpandAll()
Dim print As New PrintHelper()
Print.PrintPreviewTree(TreeView1, "My Tree Sample")
End Sub
End Class

Imports Pitman.Printing

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

أخي الفاضل أكرر شكري لجهودك معي ،، عدلت على الكود كما تفضلت ،، ولكن اعترض البرنامج على استدعاء المكتبه

Imports Pitman.Printing

وبالتالي لم يتعرف على

Dim print As New PrintHelper

بالرغم من أني قمت بتنزيل المكتبه من المرفق الذي أضفته في ردك الأخير ، ، بحثت عن حل هذه المشكله في الانترنت وما هو البديل في الفيجول بيسك دوت نت2008 ، ولم أستطع ايجاد الحل ،،، !!!

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

يمكن ما اضفتي المكتبه للبرنامج .. اوكي مو مشكله

هذا هو البرنامج

WindowsApplication1.zip

VB Helper كتب:

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

يمكن ما اضفتي المكتبه للبرنامج .. اوكي مو مشكله

هذا هو البرنامج

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

شغلت البرنامج ولكن لم يعمل ، أنا أعمل على ال

vb.net2008

هل هذا السبب أنه لم يعمل ؟ وهل إسم المكتبه يختلف باختلاف الفيرجين ؟

أشكر تعاونك

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

VB Helper كتب:

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

يمكن ما اضفتي المكتبه للبرنامج .. اوكي مو مشكله

هذا هو البرنامج

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

..

أخي الكريم ... بارك الله فيك وزاد من أمثالك ،،، أشكرك شكراً جزيلاً,, وجزاك الله خيراً وجعله في ميزان حسناتك

لقد قمت بتطبيق البرنامج ونفذته بطريقه ممتازه ،،، كنت بستدعي المكتبه بطريقه خاطئه ،،، استدعيتها وتنفذ البرنامج ،،، لكنه فقط يعمل معاينه قبل الطباعه ولا ينفذ عملية الطباعه !! عندما قمت بتركيب الطابعه على الجهاز وضغطت على أيقونة الطابعه التي تظهر في صندوق المعاينة ،،، توقف البرنامج عن التنفيذ وأعطى رسالة خطأ :

ArgumentException was unhandled

Parameter is not valid.

!!!!!!!!!!

اذا كان بإمكانك البقاء على الكود الأول واضافة

e.Hasmorepages

فأرجو منك محاوله ذلك لأني رأيت أن الطباعه بتنفيذ الكود الأول أوضح وتمكنت أيضاً من تحويل صفحة الطباعه الى صفحة pdf ,, فكان التعامل أسهل مع ملفات الpdf ،،، لكن فقط كانت مشكلة أنه لايكمل كل التري :-(

....

أتمنى أن تتعاون معي لانه إقترب موعد تسليم هذا العمل ولم أنجزه الى الأن

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

لم انتبه لنسخه الفيجوال ستوديو, عدلت المثال الاخير للطباعه مباشره بدون عرض المعاينه

Printing Treeview.zip

VB Helper كتب:

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

لم انتبه لنسخه الفيجوال ستوديو, عدلت المثال الاخير للطباعه مباشره بدون عرض المعاينه

والله يا أخي الكريم أني قمت بتحميله ،، ولم يعمل ؟؟ فتحت الكود وقارنته بالكود السابق ،، لم أجد إختلاف ،، قد تكون قمت بإرساله نفسه بالخطأ؟؟

ملاحظه : أنا نفسي huda khlefat

لكن إضطررت للعضويه الجديده لخلل في العضويه الأولى

أرجوك حاول مساعدتي اليوم

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

ايش به البرنامج, انا عدلته بحيث يطبع بدون معاينه. متأكده حملتي اخر تحميل؟!!

أرفقت الملف من جديد مع ملف xps تشوفي في طباعه الشجره الحاليه .. شغال 100 بال 100

PrintTreeView.zip

VB Helper كتب:

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

ايش به البرنامج, انا عدلته بحيث يطبع بدون معاينه. متأكده حملتي اخر تحميل؟!!

أرفقت الملف من جديد مع ملف xps تشوفي في طباعه الشجره الحاليه .. شغال 100 بال 100

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

أعتذر أني غلبتك ،، لكن أنا متأكد اني نزلت اخر ملف بعته ،، وايضا الأن نزلت هذا الملف

يعطي رسالة خطأ يطلب فيها تنزيل :

.net framwork v.4.0.30319

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

اختي انا اشتغل عالدوت نت 2010 لذا انصحك لتجنب المشاكل, انشىء مشروع جديد قومي بإضافه الفورم الذي انشئته من Add Existing Item ومن References قومي بإضافه المكتبه من Project Tab المكتبه موجوده ضمن مجلد ال Debug

VB Helper كتب:

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

اختي انا اشتغل عالدوت نت 2010 لذا انصحك لتجنب المشاكل, انشىء مشروع جديد قومي بإضافه الفورم الذي انشئته من Add Existing Item ومن References قومي بإضافه المكتبه من Project Tab المكتبه موجوده ضمن مجلد ال Debug

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

..

أشكرك أخي ،، فقد قمت بمساعدتي ولم تقصر معي ،، قمت بتنفيذ نفس الخطوات التي طلبتها ولم تنحل المشكله لذا سؤحاول تنزيل

net framwork v4.0.30319

الخاص بتنفيذ الدوت نت 2010 وأعتقد أن المشكله ستُحل

..

أكرر شكري لك ... وفقك الله .. وسدد الى طريق الخير خطاك

VB Helper كتب:

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

اختي انا اشتغل عالدوت نت 2010 لذا انصحك لتجنب المشاكل, انشىء مشروع جديد قومي بإضافه الفورم الذي انشئته من Add Existing Item ومن References قومي بإضافه المكتبه من Project Tab المكتبه موجوده ضمن مجلد ال Debug

أشكرك أشكرك جدااا أخي الكريم ... قمت بتزيل ال

.net framework v4

وأعطى النتائج المطلوبه

...

بـــــــارك الله فيك

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

بالتوفيق ...