Vraag : De Bar van de vooruitgang zal niet in brand steken terwijl de boom in vb.net vensterstoepassing laadt

Ik heb een probleem die mijn brand krijgen van de vooruitgangsbar terwijl ik een dataset laad.  Hoe ik een vooruitgangsbar aan het laden van een boom kan binden.  Ik heb mijn hieronder code vastgemaakt.  Thanks
" codeBody " 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
van 
Private SubfrmMHContactLogAll_Load (ByVal afzender als System.Object, ByVal e als System.EventArgs) Handvatten MyBase.Load
        treeload = Vals
        Connection1.Open ()
        Me.Size = Nieuwe Grootte ((Me.MdiParent.Size.Width - 50), Me.MdiParent.Size.Height - 100)
        MHIntakeID = niets
        'Als Programma () = „ClientContact“ toen
        'Me.Width = Me.MdiParent.Size.Width - 80
        'Me.Height = 300
        'Me.Top = 250
        'Anders
        'Me.Width = Me.MdiParent.Size.Width - 80
        'Me.Height = Me.MdiParent.Size.Height - 150
        'TreeView1.Height = Me.MdiParent.Size.Height - 150
        'Beëindig als
        Timer1.Enabled = Waar
       
        Me.Show ()

        'treeloadall ()

     

    Sub van het eind
 
    Privé Subtreeloadall ()
        objDS.Clear ()
        Schemerige servicetype
        servicetype = de „DIENST“
        'Als Programma = „ContactLog“ toen
        daSections = Nieuwe SqlDataAdapter (de „UITGEZOCHTE VERSCHILLENDE BOVENKANT 100 PERCENTEN zet om (varchar (10), dbo.tblMHCIntake.dtmIntake, 101) als intakedate, dtmintake, DATENAME (dw, dbo.tblMHCIntake.dtmIntake) ALS dayname VAN dbo.tblMHCIntake waar dtmintake > '01/01/2005'ORDER DOOR dbo.tblMHCIntake.dtmIntake DESC“, Connection1)
        daContent = ZET om Nieuwe SqlDataAdapter („UITGEZOCHTE VERSCHILLENDE HOOGSTE 100 PERCENTEN tblPatient.strLName + „,“ + tblPatient.strFName AANGEZIEN de naam, OMZET (varchar (10), tblMHCIntake.dtmIntake, 101) ALS intakedate, DATENAME (dw, dbo.tblMHCIntake.dtmIntake) ALS dayname, tblMHCIntake.dtmIntake, tblMHCIntake.strStaff, (varchar (10), tblPatient.dtmDOB, 101) AANGEZIEN dtmdob, tblPatient.strPatientId, tblMHCIntakeDetail.lngIntakeId VAN tblMHCIntake BINNEN tblMHCIntakeDetail OP tblMHCIntake.lngIntakeId = tblMHCIntakeDetail.lngIntakeId BINNEN ZICH AANSLUITEN bij tblLUMHCData OP tblMHCIntakeDetail.lngDataId = tblLUMHCData.lngDataID TOETREDEN JUISTE BUITEN ZICH bij tblPatient OP tblMHCIntake.lngPatientId = tblPatient.lngPatientId WAAR (tblMHCIntake.dtmIntake > „1/1/2005“) ORDE DOOR tblMHCIntake.dtmIntake DESC“, Connection1) AANSLUIT
        datype = Nieuwe SqlDataAdapter („UITGEZOCHTE VERSCHILLENDE BOVENKANT 100 PERCENTEN tblMHCIntakeDetail.lngIntakeId, tblMHCIntakeDetail.lngDataId, tblLUMHCData.strData VAN tblMHCIntake BINNEN TREEDT tblMHCIntakeDetail toe OP tblMHCIntake.lngIntakeId = tblMHCIntakeDetail.lngIntakeId BINNEN AANSLUIT zich bij tblLUMHCData OP tblMHCIntakeDetail.lngDataId = tblLUMHCData.lngDataID JUISTE BUITEN ZICH bij tblPatient OP tblMHCIntake.lngPatientId = tblPatient.lngPatientId WAAR (tblMHCIntake.dtmIntake > „1/1/2005“) en tblLUMHCData.strtype = „“ & servicetype & „“ „, Connection1) AANSLUIT


        'Anders
        „daContent = ZET om Nieuwe SqlDataAdapter („UITGEZOCHTE VERSCHILLENDE HOOGSTE 100 PERCENTEN tblPatient.strLName +“, „+ tblPatient.strFName AANGEZIEN de naam, OMZET (varchar (10), tblMHCIntake.dtmIntake, 101) ALS intakedate, tblMHCIntake.dtmIntake, tblMHCIntake.strStaff, (varchar (10), tblPatient.dtmDOB, 101) AANGEZIEN dtmdob, tblPatient.strPatientId, tblMHCIntakeDetail.lngIntakeId VAN tblMHCIntake BINNEN tblMHCIntakeDetail OP tblMHCIntake.lngIntakeId = tblMHCIntakeDetail.lngIntakeId BINNEN ZICH AANSLUITEN bij tblLUMHCData OP tblMHCIntakeDetail.lngDataId = tblLUMHCData.lngDataID TOETREDEN JUISTE BUITEN ZICH bij tblPatient OP tblMHCIntake.lngPatientId = tblPatient.lngPatientId WAAR tblPatient.lngPatientId =“ „& SqlParametersDB.Name.lngpatientid &“ 'DOOR tblMHCIntake.dtmIntake DESC " OPDRACHT GEVEN tot, Connection1 AANSLUIT)
        „datype = Nieuwe SqlDataAdapter („UITGEZOCHTE VERSCHILLENDE BOVENKANT 100 PERCENTEN tblMHCIntakeDetail.lngIntakeId, tblMHCIntakeDetail.lngDataId, tblLUMHCData.strData VAN tblMHCIntake BINNEN TREEDT tblMHCIntakeDetail toe OP tblMHCIntake.lngIntakeId = tblMHCIntakeDetail.lngIntakeId BINNEN AANSLUIT zich bij tblLUMHCData OP tblMHCIntakeDetail.lngDataId = tblLUMHCData.lngDataID JUISTE BUITEN ZICH bij tblPatient OP tblMHCIntake.lngPatientId = tblPatient.lngPatientId WAAR tblPatient.lngPatientId =“ „& SqlParametersDB.Name.lngpatientid &“ „en tblLUMHCData.strtype =“ „& servicetype &“ '„, Connection1 AANSLUIT)
        „daSections = Nieuwe SqlDataAdapter („de UITGEZOCHTE VERSCHILLENDE BOVENKANT 100 PERCENTEN zet om (varchar (10), dbo.tblMHCIntake.dtmIntake, 101) als intakedate, dtmintake, DATENAME (dw, dbo.tblMHCIntake.dtmIntake) ALS dayname VAN dbo.tblMHCIntake WAAR dbo.tblMHCIntake.lngPatientId =“ „& SqlParametersDB.Name.lngpatientid &“ 'DOOR dbo.tblMHCIntake.dtmIntake DESC ", Connection1 OPDRACHT GEVEN tot)



        'Beëindig als
        Probeer
            daSections.Fill (objDS, „dtSections“)
        Vang ex als Uitzondering
            Ex MsgBox (. Bericht)

        Het eind probeert

        Probeer
            daContent.Fill (objDS, „dtContent“)
        Vang ex als Uitzondering
            Ex MsgBox (. Bericht)

        Het eind probeert

        Probeer
            Verduister counttype
            counttype = datype. Vul (objDS, „dtType“)

        Vang ex als Uitzondering
            Ex MsgBox (. Bericht)

        Het eind probeert
        Als Programma = „contactLog“ toen
            System.Threading.Thread.Sleep (100000)
        Eind als
        objDS.Relations.Add („SectionToContent“, _
        objDS.Tables („dtSections“). Kolommen („dtmIntake“), _
        objDS.Tables („dtContent“). Kolommen („dtmIntake“))


        objDS.Relations.Add („SectionToType“, _
              objDS.Tables („dtContent“). Kolommen („lngIntakeId“), _
              objDS.Tables („dtType“). Kolommen („lngIntakeId“))




        nodenew = Nieuwe TreeNode
        nodenew. De tekst = „leidt tot het nieuwe Contact van de Cliënt…“
        nodenew. Markering = „nieuw“
        TreeView1.Nodes.Add (nodenew)

        Voor Elke rowSupp in objDS.Tables („dtSections“). Rijen

            nodeSupp = Nieuwe TreeNode
            nodeSupp.Text = rowSupp („dtmIntake“) &“ - „& rowSupp („dayname“)
            nodeSupp.Tag = de „Datum van de Opname“
            Schemerige dotw
            nodeSupp.Expand ()
            TreeView1.Nodes.Add (nodeSupp)
            Voor Elke rowProd in rowSupp.GetChildRows („SectionToContent“)
                nodeProd = Nieuwe TreeNode
                nodeProd.Text = rowProd („intakedate“) &“ - „& rowProd („strStaff“) &“ - „& rowProd („naam“) &“ - „& rowProd („dtmdob“) &“ - „& rowProd („strPatientid“)
                nodeProd.Tag = rowProd („lngIntakeID“)

                nodeSupp.Nodes.Add (nodeProd)
                Voor Elke rowType in rowProd.GetChildRows („SectionToType“)
                    nodetype = Nieuwe TreeNode
                    nodetype. Tekst = rowType („strData“)
                    nodeProd.Nodes.Add (nodetype)

                Daarna

            Daarna

        Daarna


        'TreeView1.ExpandAll ()
        'TreeView1.SelectedNode = TreeView1.Nodes.Item (2)
        TreeView1.Focus ()
        pageload = Waar
    Sub van het eind

Antwoord : De Bar van de vooruitgang zal niet in brand steken terwijl de boom in vb.net vensterstoepassing laadt

Waarom verandert de progressbar waarde is in Timer1_Tick? U zou het in de belangrijkste code zelf moeten doen:
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

ProgressBar1.maximum = zal rowSupp.GetChildRows.count 'dit de maximum waarde plaatsen om de fout te vermijden u voordien werd

 Voor Elke rowProd in rowSupp.GetChildRows („SectionToContent“)
                nodeProd = Nieuwe TreeNode
                nodeProd.Text = rowProd („intakedate“) &“ - „& rowProd („strStaff“) &“ - „& rowProd („naam“) &“ - „& rowProd („dtmdob“) &“ - „& rowProd („strPatientid“)
                nodeProd.Tag = rowProd („lngIntakeID“)

                nodeSupp.Nodes.Add (nodeProd)
                Voor Elke rowType in rowProd.GetChildRows („SectionToType“)
                    nodetype = Nieuwe TreeNode
                    nodetype. Tekst = rowType („strData“)
                    nodeProd.Nodes.Add (nodetype)
                Daarna

                Application.DoEvents () rij

ProgressBar1.value+=1 'dit zal de waarde na elk voltooid voorwerp verhogen
            Daarna
Andere oplossingen  
 
programming4us programming4us