Pergunta : A barra do progresso não ateará fogo quando a árvore carregar na aplicação das janelas de vb.net

Eu estou tendo um problema começ meu fogo da barra do progresso quando eu carregar uma série de dados.  Como posso eu amarrar uma barra do progresso a carregar uma árvore.  Eu uni meu código abaixo.  Thanks class= > " desobstruído " do
> do " codeSnippet " do class= do
class= " lineNumbers " do
class= do 
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:
o class= frmMHContactLogAll_Load secundário " do id= " codeSnippet810629 do 
Private " notpretty " (remetente de ByVal como System.Object, ByVal e como System.EventArgs) segura MyBase.Load
        treeload = falso
        Connection1.Open ()
        Me.Size = tamanho novo ((Me.MdiParent.Size.Width - 50), Me.MdiParent.Size.Height - 100)
        MHIntakeID = nada
        'Se programa () = “ClientContact” então
        'Me.Width = Me.MdiParent.Size.Width - 80
        'Me.Height = 300
        'Me.Top = 250
        'Mais
        'Me.Width = Me.MdiParent.Size.Width - 80
        'Me.Height = Me.MdiParent.Size.Height - 150
        'TreeView1.Height = Me.MdiParent.Size.Height - 150
        'Terminar se
        Timer1.Enabled = retificam
       
        Me.Show ()

        'treeloadall ()

     

    Submarino da extremidade
 
    Treeloadall secundário confidencial ()
        objDS.Clear ()
        Servicetype não ofuscante
        servicetype = “SERVIÇO”
        'Se programa = “ContactLog” então
        daSections = SqlDataAdapter novo (“PARTE SUPERIOR DISTINTA SELETA converso de 100 POR CENTO (varchar (10), dbo.tblMHCIntake.dtmIntake, 101) como o intakedate, dtmintake, DATENAME (dw, dbo.tblMHCIntake.dtmIntake) COMO o dayname de dbo.tblMHCIntake onde dtmintake > '01/01/2005'ORDER por dbo.tblMHCIntake.dtmIntake DESC”, Connection1)
        SqlDataAdapter daContent = novo (“PARTE SUPERIOR DISTINTA SELETA 100 POR CENTO tblPatient.strLName + “,” + tblPatient.strFName COMO o nome, CONVERSO (varchar (10), tblMHCIntake.dtmIntake, 101) COMO o intakedate, DATENAME (dw, dbo.tblMHCIntake.dtmIntake) COMO o dayname, tblMHCIntake.dtmIntake, tblMHCIntake.strStaff, CONVERSO (varchar (10), tblPatient.dtmDOB, 101) COMO o dtmdob, tblPatient.strPatientId, tblMHCIntakeDetail.lngIntakeId do tblMHCIntake INTERNO JUNTA-SE ao tblMHCIntakeDetail EM tblMHCIntake.lngIntakeId = tblMHCIntakeDetail.lngIntakeId INTERNO JUNTA-SE ao tblLUMHCData EM tblMHCIntakeDetail.lngDataId = tblLUMHCData.lngDataID PARA A DIREITA EXTERIOR JUNTA-SE a tblPatient EM tblMHCIntake.lngPatientId = tblPatient.lngPatientId ONDE (tblMHCIntake.dtmIntake > “1/1/2005”) ORDEM por tblMHCIntake.dtmIntake DESC”, Connection1)
        datype = SqlDataAdapter novo (“POR CENTO DISTINTO SELETO tblMHCIntakeDetail.lngIntakeId da PARTE SUPERIOR 100, tblMHCIntakeDetail.lngDataId, tblLUMHCData.strData do tblMHCIntake INTERNO SE JUNTAM ao tblMHCIntakeDetail EM tblMHCIntake.lngIntakeId = tblMHCIntakeDetail.lngIntakeId INTERNO SE JUNTAM ao tblLUMHCData EM tblMHCIntakeDetail.lngDataId = tblLUMHCData.lngDataID PARA A DIREITA EXTERIOR SE JUNTAM a tblPatient EM tblMHCIntake.lngPatientId = tblPatient.lngPatientId ONDE (tblMHCIntake.dtmIntake > “1/1/2005”) e tblLUMHCData.strtype = “” & servicetype & “” “, Connection1)


        'Mais
        “SqlDataAdapter daContent = novo (“PARTE SUPERIOR DISTINTA SELETA 100 POR CENTO tblPatient.strLName +”, “+ tblPatient.strFName COMO o nome, CONVERSO (varchar (10), tblMHCIntake.dtmIntake, 101) COMO o intakedate, tblMHCIntake.dtmIntake, tblMHCIntake.strStaff, CONVERSO (varchar (10), tblPatient.dtmDOB, 101) COMO o dtmdob, tblPatient.strPatientId, tblMHCIntakeDetail.lngIntakeId do tblMHCIntake INTERNO JUNTA-SE ao tblMHCIntakeDetail EM tblMHCIntake.lngIntakeId = tblMHCIntakeDetail.lngIntakeId INTERNO JUNTA-SE ao tblLUMHCData EM tblMHCIntakeDetail.lngDataId = tblLUMHCData.lngDataID PARA A DIREITA EXTERIOR JUNTA-SE a tblPatient EM tblMHCIntake.lngPatientId = tblPatient.lngPatientId ONDE tblPatient.lngPatientId =” “& SqlParametersDB.Name.lngpatientid &” 'ORDEM por tblMHCIntake.dtmIntake DESC ", Connection1)
        “datype = SqlDataAdapter novo (“POR CENTO DISTINTO SELETO tblMHCIntakeDetail.lngIntakeId da PARTE SUPERIOR 100, tblMHCIntakeDetail.lngDataId, tblLUMHCData.strData do tblMHCIntake INTERNO SE JUNTAM ao tblMHCIntakeDetail EM tblMHCIntake.lngIntakeId = tblMHCIntakeDetail.lngIntakeId INTERNO SE JUNTAM ao tblLUMHCData EM tblMHCIntakeDetail.lngDataId = tblLUMHCData.lngDataID PARA A DIREITA EXTERIOR SE JUNTAM a tblPatient EM tblMHCIntake.lngPatientId = tblPatient.lngPatientId ONDE tblPatient.lngPatientId =” “& SqlParametersDB.Name.lngpatientid &” “e tblLUMHCData.strtype =” “& servicetype &” '“, Connection1)
        “daSections = SqlDataAdapter novo (“PARTE SUPERIOR DISTINTA SELETA converso de 100 POR CENTO (varchar (10), dbo.tblMHCIntake.dtmIntake, 101) como o intakedate, dtmintake, DATENAME (dw, dbo.tblMHCIntake.dtmIntake) COMO o dayname de dbo.tblMHCIntake ONDE dbo.tblMHCIntake.lngPatientId =” “& SqlParametersDB.Name.lngpatientid &” 'ORDEM por dbo.tblMHCIntake.dtmIntake DESC ", Connection1)



        'Terminar se
        Tentativa
            daSections.Fill (objDS, “dtSections”)
        Prendedor ex como a exceção
            MsgBox (ex. Mensagem)

        Tentativa do fim

        Tentativa
            daContent.Fill (objDS, “dtContent”)
        Prendedor ex como a exceção
            MsgBox (ex. Mensagem)

        Tentativa do fim

        Tentativa
            Counttype não ofuscante
            counttype = datype. Encher (objDS, “dtType”)

        Travar ex como a exceção
            MsgBox (ex. Mensagem)

        Tentativa do fim
        Se programa = “contactLog” então
            System.Threading.Thread.Sleep (100000)
        Terminar se
        objDS.Relations.Add (“SectionToContent”, _
        objDS.Tables (“dtSections”). Colunas (“dtmIntake”), _
        objDS.Tables (“dtContent”). Colunas (“dtmIntake”))


        objDS.Relations.Add (“SectionToType”, _
              objDS.Tables (“dtContent”). Colunas (“lngIntakeId”), _
              objDS.Tables (“dtType”). Colunas (“lngIntakeId”))




        nodenew = TreeNode novo
        nodenew. O texto = “cria o contato novo do cliente…”
        nodenew. Tag = “novo”
        TreeView1.Nodes.Add (nodenew)

        Para cada rowSupp em objDS.Tables (“dtSections”). Fileiras

            nodeSupp = TreeNode novo
            nodeSupp.Text = rowSupp (“dtmIntake”) &” - “& rowSupp (“dayname”)
            nodeSupp.Tag = da “data entrada”
            Dotw não ofuscante
            nodeSupp.Expand ()
            TreeView1.Nodes.Add (nodeSupp)
            Para cada rowProd em rowSupp.GetChildRows (“SectionToContent”)
                nodeProd = TreeNode novo
                nodeProd.Text = rowProd (“intakedate”) &” - “& rowProd (“strStaff”) &” - “& rowProd (“nome”) &” - “& rowProd (“dtmdob”) &” - “& rowProd (“strPatientid”)
                nodeProd.Tag = rowProd (“lngIntakeID”)

                nodeSupp.Nodes.Add (nodeProd)
                Para cada rowType em rowProd.GetChildRows (“SectionToType”)
                    nodetype = TreeNode novo
                    nodetype. Texto = rowType (“strData”)
                    nodeProd.Nodes.Add (nodetype)

                Em seguida

            Em seguida

        Em seguida


        'TreeView1.ExpandAll ()
        'TreeView1.SelectedNode = TreeView1.Nodes.Item (2)
        TreeView1.Focus ()
        o pageload = retifica
    Submarino da extremidade
class= do

Resposta : A barra do progresso não ateará fogo quando a árvore carregar na aplicação das janelas de vb.net

Por que o valor progressbar está mudando está em Timer1_Tick? Você deve fazê-lo no código principal próprio:
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

ProgressBar1.maximum = rowSupp.GetChildRows.count 'isto ajustarão o valor máximo para evitar o erro que você começ antes

 Para cada rowProd em rowSupp.GetChildRows (“SectionToContent”)
                nodeProd = TreeNode novo
                nodeProd.Text = rowProd (“intakedate”) &” - “& rowProd (“strStaff”) &” - “& rowProd (“nome”) &” - “& rowProd (“dtmdob”) &” - “& rowProd (“strPatientid”)
                nodeProd.Tag = rowProd (“lngIntakeID”)

                nodeSupp.Nodes.Add (nodeProd)
                Para cada rowType em rowProd.GetChildRows (“SectionToType”)
                    nodetype = TreeNode novo
                    nodetype. Texto = rowType (“strData”)
                    nodeProd.Nodes.Add (nodetype)
                Em seguida

                Fila de Application.DoEvents ()

ProgressBar1.value+=1 'isto aumentará o valor após cada objeto terminado
            Em seguida
Outras soluções  
 
programming4us programming4us