Cuestión : La barra del progreso no encenderá mientras que el árbol está cargando en el uso de las ventanas de vb.net

Estoy teniendo un problema el conseguir de mi fuego de la barra del progreso mientras que estoy cargando un grupo de datos.  Cómo puedo atar una barra del progreso a cargar un árbol.  He atado mi código abajo.  Thanks class= > " claro " del
> del " codeSnippet " del class= del
class= " lineNumbers " del
class= del 
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:
el class= frmMHContactLogAll_Load secundario del >Private " notpretty " (remitente del id= " codeSnippet810629 " del 
 '01/01/2005'ORDER POR dbo.tblMHCIntake.dtmIntake DESC”, Connection1)
        SqlDataAdapter daContent = nuevo (“TAPA DISTINTA SELECTA el 100 POR CIENTO tblPatient.strLName + “,” + de tblPatient.strFName nombre TAN, CONVERTIDO (varchar (10), tblMHCIntake.dtmIntake, 101) COMO el intakedate, DATENAME (dw, dbo.tblMHCIntake.dtmIntake) COMO dayname, tblMHCIntake.dtmIntake, tblMHCIntake.strStaff, CONVERTIDO (varchar (10), tblPatient.dtmDOB, 101) COMO dtmdob, tblPatient.strPatientId, tblMHCIntakeDetail.lngIntakeId del tblMHCIntake INTERNO ENSAMBLAN el tblMHCIntakeDetail EN tblMHCIntake.lngIntakeId = tblMHCIntakeDetail.lngIntakeId INTERNO ENSAMBLAN tblLUMHCData EN tblMHCIntakeDetail.lngDataId = tblLUMHCData.lngDataID A LA DERECHA EXTERNO ENSAMBLAN tblPatient EN tblMHCIntake.lngPatientId = tblPatient.lngPatientId DONDE (tblMHCIntake.dtmIntake > “1/1/2005”) ORDEN POR tblMHCIntake.dtmIntake DESC”, Connection1)
        datype = nuevo SqlDataAdapter (el “POR CIENTO DISTINTO SELECTO tblMHCIntakeDetail.lngIntakeId, tblMHCIntakeDetail.lngDataId, tblLUMHCData.strData de la TAPA 100 del tblMHCIntake INTERNO ENSAMBLAN el tblMHCIntakeDetail EN tblMHCIntake.lngIntakeId = tblMHCIntakeDetail.lngIntakeId INTERNO ENSAMBLAN tblLUMHCData EN tblMHCIntakeDetail.lngDataId = tblLUMHCData.lngDataID A LA DERECHA EXTERNO ENSAMBLAN tblPatient EN tblMHCIntake.lngPatientId = tblPatient.lngPatientId DONDE (tblMHCIntake.dtmIntake > “1/1/2005”) y tblLUMHCData.strtype = “” y el servicetype y “” “, Connection1)


        '
        “SqlDataAdapter daContent = nuevo (“TAPA DISTINTA SELECTA el 100 POR CIENTO tblPatient.strLName +”, “+ de tblPatient.strFName nombre TAN, CONVERTIDO (varchar (10), tblMHCIntake.dtmIntake, 101) COMO el intakedate, tblMHCIntake.dtmIntake, tblMHCIntake.strStaff, CONVERTIDO (varchar (10), tblPatient.dtmDOB, 101) COMO dtmdob, tblPatient.strPatientId, tblMHCIntakeDetail.lngIntakeId del tblMHCIntake INTERNO ENSAMBLAN el tblMHCIntakeDetail EN tblMHCIntake.lngIntakeId = tblMHCIntakeDetail.lngIntakeId INTERNO ENSAMBLAN tblLUMHCData EN tblMHCIntakeDetail.lngDataId = tblLUMHCData.lngDataID A LA DERECHA EXTERNO ENSAMBLAN tblPatient EN tblMHCIntake.lngPatientId = tblPatient.lngPatientId DONDE tblPatient.lngPatientId =” “y SqlParametersDB.Name.lngpatientid y” 'ORDEN POR tblMHCIntake.dtmIntake DESC ", Connection1)
        “datype = nuevo SqlDataAdapter (“el POR CIENTO DISTINTO SELECTO tblMHCIntakeDetail.lngIntakeId, tblMHCIntakeDetail.lngDataId, tblLUMHCData.strData de la TAPA 100 del tblMHCIntake INTERNO ENSAMBLAN el tblMHCIntakeDetail EN tblMHCIntake.lngIntakeId = tblMHCIntakeDetail.lngIntakeId INTERNO ENSAMBLAN tblLUMHCData EN tblMHCIntakeDetail.lngDataId = tblLUMHCData.lngDataID A LA DERECHA EXTERNO ENSAMBLAN tblPatient EN tblMHCIntake.lngPatientId = tblPatient.lngPatientId DONDE tblPatient.lngPatientId =” “y SqlParametersDB.Name.lngpatientid y” “y tblLUMHCData.strtype =” “y el servicetype y” '“, Connection1)
        “daSections = nuevo SqlDataAdapter (“TAPA DISTINTA SELECTA convertido del 100 POR CIENTO (varchar (10), dbo.tblMHCIntake.dtmIntake, 101) como intakedate, dtmintake, DATENAME (dw, dbo.tblMHCIntake.dtmIntake) COMO dayname de dbo.tblMHCIntake DONDE dbo.tblMHCIntake.lngPatientId =” “y SqlParametersDB.Name.lngpatientid y” 'ORDEN POR dbo.tblMHCIntake.dtmIntake DESC ", Connection1)



        'Terminar si
        Intento
            daSections.Fill (objDS, “dtSections”)
        Retén ex como excepción
            MsgBox (ex. Mensaje)

        Intento del final

        Intento
            daContent.Fill (objDS, “dtContent”)
        Retén ex como excepción
            MsgBox (ex. Mensaje)

        Intento del final

        Intento
            Counttype dévil
            counttype = datype. Llenar (objDS, “dtType”)

        Coger ex como excepción
            MsgBox (ex. Mensaje)

        Intento del final
        Si programa = “contactLog” entonces
            System.Threading.Thread.Sleep (100000)
        Terminar si
        objDS.Relations.Add (“SectionToContent”, _
        objDS.Tables (“dtSections”). Columnas (“dtmIntake”), _
        objDS.Tables (“dtContent”). Columnas (“dtmIntake”))


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




        nodenew = nuevo TreeNode
        nodenew. El texto = “crea el nuevo contacto del cliente…”
        nodenew. Etiqueta = “nuevo”
        TreeView1.Nodes.Add (nodenew)

        Para cada rowSupp en objDS.Tables (“dtSections”). Filas

            nodeSupp = nuevo TreeNode
            nodeSupp.Text = rowSupp (“dtmIntake”) y” - “y rowSupp (“dayname”)
            nodeSupp.Tag = “fecha del producto”
            Dotw dévil
            nodeSupp.Expand ()
            TreeView1.Nodes.Add (nodeSupp)
            Para cada rowProd en rowSupp.GetChildRows (“SectionToContent”)
                nodeProd = nuevo TreeNode
                nodeProd.Text = rowProd (“intakedate”) y” - “y rowProd (“strStaff”) y” - “y rowProd (“nombre”) y” - “y rowProd (“dtmdob”) y” - “y rowProd (“strPatientid”)
                nodeProd.Tag = rowProd (“lngIntakeID”)

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

                Después

            Después

        Después


        'TreeView1.ExpandAll ()
        'TreeView1.SelectedNode = TreeView1.Nodes.Item (2)
        TreeView1.Focus ()
        el pageload = verdad
    Submarino del extremo
class= del

Respuesta : La barra del progreso no encenderá mientras que el árbol está cargando en el uso de las ventanas de vb.net

¿Por qué el valor progressbar está cambiando está en Timer1_Tick? Usted debe hacerlo en el código principal sí mismo:
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

ProgressBar1.maximum = rowSupp.GetChildRows.count 'esto fijarán el valor máximo para evitar el error que usted consiguió antes

 Para cada rowProd en rowSupp.GetChildRows (“SectionToContent”)
                nodeProd = nuevo TreeNode
                nodeProd.Text = rowProd (“intakedate”) y” - “y rowProd (“strStaff”) y” - “y rowProd (“nombre”) y” - “y rowProd (“dtmdob”) y” - “y rowProd (“strPatientid”)
                nodeProd.Tag = rowProd (“lngIntakeID”)

                nodeSupp.Nodes.Add (nodeProd)
                Para cada rowType en rowProd.GetChildRows (“SectionToType”)
                    nodetype = nuevo TreeNode
                    nodetype. Texto = rowType (“strData”)
                    nodeProd.Nodes.Add (nodetype)
                Después

                Coleta de Application.DoEvents ()

ProgressBar1.value+=1 'esto aumentará el valor después de cada objeto terminado
            Después
Otras soluciones  
 
programming4us programming4us