SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Visual Basic para principiantes => Mensaje iniciado por: Javochin en Miércoles 5 de Octubre de 2005, 22:18

Título: No Repetir Items En Un Listbox
Publicado por: Javochin en Miércoles 5 de Octubre de 2005, 22:18

Hola a todos:

El Codigo qeu he hecho es el siguiente:

Código: Text

1. Tramite As String
2. Agregado as Boolean
3. GridTab2=DBGrid
4. LstTramites=ListBox
5.  
6.  
7. Tramite = GridTab2.Columns(0).Text
8. For i = -1 To LstTramites.ListCount    
9.         If Tramite = LstTramites.Text Then
10.               Agregado = False    
11.         Else        
12.               Agregado = True
13.         End If
14. Next i
15.  
16. If Agregado = True Then    
17.          LstTramites.AddItem TramiteElse    
18.          MsgBox "El Trámite ya fué agregado", vbInformation
19. End If
20.  

Espero su Colaboración