Título: Como puedo usar un progres bar con un boton ya con istrucciones XD Publicado por: memoz08 en 8 Julio 2013, 20:44 pm miren en un boton hago una busqueda de un usuario que esta registrado en active directory de windows server 2008 ya lo hace ahora solo quiero que me salga un progresbar al momento que anda buscando al usaurio o usuarios ya que la busqueda se hace por cuentas o por nombres, pero use el reloj de arena del mouse al momento en que busca un usuario. ahora me pidieron que mejor muestre una barra de progreso cuando buisque aqui les dejo el codgigo:
Public Sub Carga(ByVal show As Boolean) If (show = True) Then System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor Else System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default End If End Sub este es cuando el raton pasa a el reloj de arena (metodo usado en internet) ahora el codgio del boton un poquito largo pero ahi va: Private Sub btnBuscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBuscar.Click Carga(True) ListView1.Items.Clear() Using Searcher As New DirectorySearcher(Root) If Not (txtnombre.Text.Length + txtape.Text.Length) > 1 Then Searcher.Filter = "(&(objectCategory=user)(" & ANR & txtCuenta.Text & " * ))" Else Searcher.Filter = "(&(objectCategory=user)(givenName=" & txtnombre.Text & "*" & ")(sn=" & txtape.Text & "*" & "))" End If Searcher.SearchScope = SearchScope.Subtree Searcher.PropertiesToLoad.Add("sAMAccountName") Searcher.PropertiesToLoad.Add("displayName") Searcher.PropertiesToLoad.Add("givenName") Searcher.PropertiesToLoad.Add("sn") Searcher.PropertiesToLoad.Add("distinguishedName") Searcher.Sort.PropertyName = "sAMAccountName" Searcher.Sort.Direction = System.DirectoryServices.SortDirection.Ascending Using users = Searcher.FindAll If users.Count > 0 Then Dim item1 As String = Nothing Dim item2 As String = Nothing Dim item3 As String = Nothing Dim item4 As String = Nothing Dim item5 As String = Nothing Dim strDisplayName As String = Nothing For Each user As SearchResult In users If user.Properties.Contains("displayName") Then strDisplayName = CStr(user.Properties("displayName").Item(0)) End If lv = (ListView1.Items.Add(strDisplayName)) If user.Properties.Contains("sAMAccountName") Then item1 = CStr(user.Properties("sAMAccountName").Item(0)) item1 = "User" Else item1 = "Contact" End If lv.SubItems.Add(item1) Try item2 = CStr(user.Properties("sAMAccountName").Item(0)) Catch item2 = "" End Try lv.SubItems.Add(item2) Try item3 = user.Properties("givenName").Item(0).ToString Catch item3 = "" End Try lv.SubItems.Add(item3) Try item4 = user.Properties("sn").Item(0).ToString Catch item4 = "" End Try lv.SubItems.Add(item4) lv.SubItems.Add(user.Properties("distinguishedName").Item(0).ToString) Next Else Carga(False) Exit Sub End If End Using End Using Carga(False) End Sub necesito al dar click al boton que aparezca el progresbar y se quite cuando termine de buscar a los usuarios necesito que el progresbar valla al ritmo de la busqueda XD espero y me puedan entender y/o ayudar gracias |