[كود] ممكن شرح بعض الاكواد - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=3131) |
ممكن شرح بعض الاكواد - xebrahimx - 07-06-14 السلام عليكم ممكن شرح هذه الاكود اولا موديول كود : Imports System.Data الفورم كود : Imports System.Data.OleDb هذا المشروع عبارة عن عرض البيانات فى treeview باستخدام ado لاكن ممكن احد يشرحلى الاكواد او تبسيط الاكواد بحيث استغنى عن الموديول RE: ممكن شرح بعض الاكواد - a_almisery - 07-06-14 لا اعتقد انك تريد شرح كل هذا الكود حدد اكواد خاصه اذا لم تفهمها ليتم شرحها لك اخي ... لان هذه الاكواد كثيره RE: ممكن شرح بعض الاكواد - xebrahimx - 07-06-14 اول الموديو ======== Imports System.Data Imports System.Data.OleDb Imports System.Management هذه دوال يتم استيرادها من خلال الفيجول =============================== ublic ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\sys322.dll;Persist Security Info=True;Jet OLEDBatabase Password=omar911" هذا الكونكشن استرينج للاتصال بقاعدة البيانات ========================================================== Public Conn As New OleDbConnection(ConStr) Public AccountDataSet1 As New DataSet 'tre Public AccountDataSet2 As New DataSet 'low5 Public AccountDataSet3 As New DataSet 'low6 Public AccountDataSet4 As New DataSet 'sharh Public SQLstr As String = "SELECT * FROM tre" ما فهمته من هذا الكود انه بيفتح الجداول التى فى قاعدة البيانات اسماء الجداول ( tre,low5,low6,sharh ) AccountDataSet ما فهمته ان هذا متغير اسنده 4 مرات لل dataset ما المقصود بdataset ??? =============================================== Public SQLstr As String = "SELECT * FROM tre" ما المقصود بهذا الكود ؟ هل يفتح جدول tre ?? لماذا استخدم sql بارغم انه معرف فى التصريح System.Data.OleDb ================================= Public searchresults As New ArrayList Public position As Integer = 0 هذا الكود لم افهمه ؟؟ ============================ وهذه الدالة ايضا Public Function FindInternal(ByVal key As String, ByVal searchAllChildren As Boolean, ByVal treeNodeCollectionToLookIn As TreeNodeCollection, ByVal foundTreeNodes As ArrayList) As ArrayList If ((treeNodeCollectionToLookIn Is Nothing) OrElse (foundTreeNodes Is Nothing)) Then Return Nothing End If Dim i As Integer For i = 0 To treeNodeCollectionToLookIn.Count - 1 If ((Not treeNodeCollectionToLookIn.Item(i) Is Nothing) AndAlso SafeCompareStrings(treeNodeCollectionToLookIn.Item(i).Text, key, True)) Then foundTreeNodes.Add(treeNodeCollectionToLookIn.Item(i)) End If Next i If searchAllChildren Then Dim j As Integer For j = 0 To treeNodeCollectionToLookIn.Count - 1 If (((Not treeNodeCollectionToLookIn.Item(j) Is Nothing) AndAlso (Not treeNodeCollectionToLookIn.Item(j).Nodes Is Nothing)) AndAlso (treeNodeCollectionToLookIn.Item(j).Nodes.Count > 0)) Then foundTreeNodes = FindInternal(key, searchAllChildren, treeNodeCollectionToLookIn.Item(j).Nodes, foundTreeNodes) End If Next j End If Return foundTreeNodes End Function =================== وهذه Public Function SafeCompareStrings(ByVal string1 As String, ByVal string2 As String, ByVal ignoreCase As Boolean) As Boolean If ((string1 Is Nothing) OrElse (string2 Is Nothing)) Then Return False End If Return ((string1.ToLower.Contains(string2.ToLower))) End Function End Module ==================================== RE: ممكن شرح بعض الاكواد - xebrahimx - 07-06-14 ثانيا الفورم ====== ما معنى هذا الكود Dim WithEvents oBinding As Binding Dim WithEvents oBinding3 As Binding Dim WithEvents oBinding4 As Binding ما هو Binding ؟؟؟؟ ============================================= Private Sub oBinding_Format(ByVal sender As Object, ByVal e As System.Windows.Forms.ConvertEventArgs) Handles oBinding.Format On Error Resume Next If Not e.Value = Nothing Then e.Value = Decrypt(e.Value, True) End Sub ماهو oBinding.Format ؟؟ =================================================== مهم جدا Dim datab1 As New OleDbDataAdapter(SQLstr, ConStr) AccountDataSet1.Clear() datab1.Fill(AccountDataSet1, "tre") ' Me.BindingContext(AccountDataSet1, "tre").Position = 0 هذه الكود متعلق بعرض الدتا بيز , لاكن لم افهمه ياريت احد يساعدنى ؟؟ ======================================================== ' Me.BindingContext(AccountDataSet1, "tre").Position = 4 oBinding = New Binding("Text", AccountDataSet2, "low5.text") RichTextBox1.DataBindings.Add(oBinding) وهذا ايضا ================================== Dim dv1 As DataView = AccountDataSet1.Tables("tre").DefaultView dv1.RowFilter = "parentkey ='" & CType(Node.Tag, String) & "'" dv1.Sort = "id ASC" For Each drLine As DataRowView In dv1 Dim SubNode As New TreeNode(drLine("titel")) ' SubNode.ForeColor = Color.Black SubNode.Tag = drLine("key").ToString SubNode.Name = drLine("key").ToString SubNode.ImageIndex = CType(drLine("image"), Integer) SubNode.SelectedImageIndex = CType(drLine("imageselect"), Integer) Node.Nodes.Add(SubNode) Application.DoEvents() If Not CType(Node.Tag, String) Is String.Empty Then AddSubNode(SubNode) End If Next ================================================= Dim dv1 As DataView = AccountDataSet1.Tables("tre").DefaultView dv1.RowFilter = "parentkey ='" & CType(Node.Tag, String) & "'" dv1.Sort = "id ASC" For Each drLine As DataRowView In dv1 Dim SubNode As New TreeNode(drLine("titel")) ' SubNode.ForeColor = Color.Black SubNode.Tag = drLine("key").ToString SubNode.Name = drLine("key").ToString SubNode.ImageIndex = CType(drLine("image"), Integer) SubNode.SelectedImageIndex = CType(drLine("imageselect"), Integer) Node.Nodes.Add(SubNode) Application.DoEvents() If Not CType(Node.Tag, String) Is String.Empty Then AddSubNode(SubNode) End If Next ================================= هذا الكود لملأ TREEVIEW من قاعدة البيانات ماهى DataView ؟ dv1.RowFilter = "parentkey ='" & CType(Node.Tag, String) & "'" dv1.Sort = "id ASC" parentkey = حقل فى جدول TREE RE: ممكن شرح بعض الاكواد - a_almisery - 07-06-14 إقتباس :ما المقصود بdataset ??? http://www.dotnetperls.com/dataset-vbnet إقتباس :ما المقصود بهذا الكود ؟ هل يفتح جدول tre ?? لماذا استخدم sql بارغم انه معرف فى التصريح System.Data.OleDb نعم افتح جدول tre يجب عن استخدام هذا الاستعلام لاختيار الجدول ... إقتباس :Public searchresults As New ArrayList عرف على مصفوفه جديده في متغير searchresults وعرف عن postion واعطاه قيمه 0 إقتباس :Public Function FindInternal(ByVal key As String, ByVal searchAllChildren As Boolean, ByVal treeNodeCollectionToLookIn As TreeNodeCollection, ByVal foundTreeNodes As ArrayList) As ArrayListاعتقد بان هذا الكود لملأ اداه tree اي الشجره لعرض IItems إقتباس :Public Function SafeCompareStrings(ByVal string1 As String, ByVal string2 As String, ByVal ignoreCase As Boolean) As Boolean هذا الداله اعتقد بانها تعيد اعتقد انها لتحويل الاحرف من صغير الى كبيـر مع ارسال القيمه والله اعلم .... انا لست محتـرف ولكن حـاولت ... ان شاء الله يجــوك الشباب يفــهموك اكثـر |