Vota por nosotros en el ranking web que participamos

Curso Hacker
Bienvenido(a), Visitante. Favor de ingresar o registrarse.
¿Perdiste tu email de activación? - Octubre 13, 2008, 09:52:32
Inicio Ayuda Ingresar Registrarse
Visita: Articulos - Juegos Gratis - Da Foros

Comunidad Underground Hispana  |  Programacion  |  Programación  |  Visual Basic y Net (Moderador: ANYD00M)  |  Tema: Listbox 0 Usuarios y 1 Visitante están viendo este tema. « anterior próximo »
Páginas: [1] Ir Abajo Imprimir
Autor Tema: Listbox  (Leído 277 veces)
emmerson
Recien Llegado
*
Desconectado Desconectado

Mensajes: 7


Ver Perfil Email
« en: Mayo 02, 2007, 10:55:46 »
Hola amigos espero que me puedan ayudar con esto...Bueno lo que pasa es q tengo un listbox en el cual tengo los numeros del 0 al 10 y aparte tengo 2 listbox mas al cual voy a agregar numero pares e impares segun corresponda..pero lo que yo quiero es que si en el listbox ya tengo agregado el numero 2..cuando intente volver a agregar ese numero me aparezca un msgbox...que tendira q usar una propiedad o un evento noce pues soy novato en esto ojala puedan ayudarme muchas gracias....
En línea
sNipeR-
Visitante
« Respuesta #1 en: Mayo 02, 2007, 11:22:20 »
Ola

Hace un For, osea para cada item de tu lista, si ya existe el num 2 entonces msgbox.

Algo asi:

for i = 0 to list1.listcount
    if list1.list(i) = "2" then
        msgbox...
    end if
next i

Salu2
En línea
emmerson
Recien Llegado
*
Desconectado Desconectado

Mensajes: 7


Ver Perfil Email
« Respuesta #2 en: Mayo 03, 2007, 03:38:54 »
sorry amigo pero soy nuevo en esyo yla verdad q no entiendo lo q quieres q haga bueno te dejo el codigo que yo he puesto ok...

Private Sub Command1_Click()
If Me.List1.Text = "" Then
MsgBox "Debe de seleccionar un elemento a agregar", vbCritical + vbOKOnly, "Error"
End If
Select Case Val(Me.List1.Text)
Case 1
Me.List3.AddItem Me.List1.Text
Case 2
Me.List2.AddItem Me.List1.Text
Case 3
Me.List3.AddItem Me.List1.Text
Case 4
Me.List2.AddItem Me.List1.Text
Case 5
Me.List3.AddItem Me.List1.Text
Case 6
Me.List2.AddItem Me.List1.Text
Case 7
Me.List3.AddItem Me.List1.Text
Case 8
Me.List2.AddItem Me.List1.Text
Case 9
Me.List3.AddItem Me.List1.Text
Case 10
Me.List2.AddItem Me.List1.Text
End Select
For i = 0 To List1.ListCount
    If List2.List(i) = "2" Then
        MsgBox "hola"
    End If
Next i
End Sub

Private Sub Form_Load()
For a = 1 To 10
Me.List1.AddItem a
Next
End Sub

bueno ahi cuando carga el form ya aparecen los numeros del 1 al 10 bueno explicameen q parte coloco el  codigo que me has dado disculpa si tecauso molestia pero soy novato espero me entiendas gracias bye
En línea
sNipeR-
Visitante
« Respuesta #3 en: Mayo 03, 2007, 05:46:10 »
Hola

Código:
Option Explicit
   
Private Sub Form_Load()
    Dim i As Integer
    For i = 1 To 10
        List1.AddItem i
    Next i
End Sub

Private Sub List1_Click()
    Dim i As Integer
    If EvenOrOdd(Val(List1.Text)) = "Even" Then
        For i = 0 To List2.ListCount
            If List2.List(i) = List1.Text Then
                MsgBox "El numero " & List2.List(i) & " ya esta en la lista!"
                Exit Sub
            End If
        Next i
        List2.AddItem List1.Text
    Else
        For i = 0 To List3.ListCount
            If List3.List(i) = List1.Text Then
                MsgBox "El numero " & List3.List(i) & " ya esta en la lista!"
                Exit Sub
            End If
        Next i
        List3.AddItem List1.Text
    End If
End Sub

Private Function EvenOrOdd(Number As Long) As String
    If Number Mod 2 = 0 Then
        EvenOrOdd = "Even"
    Else
        EvenOrOdd = "Odd"
    End If
End Function

Salu2
En línea
ANYD00M
Moderadores
Colaborador
*****
Desconectado Desconectado

Mensajes: 744


.:Beethoven's Count:.

maxigile_tl@hotmail.com
Ver Perfil WWW Email
« Respuesta #4 en: Mayo 06, 2007, 12:50:13 »
Dijo que recien empieza y vos le mandaz ese code Tongue
jeje, aunque sea abria que explicarlo un poquito xD
La verdad que yo no entendi my bien lo que queres hacer, si me explicas un poco mejor tal vez te tire algun ejemplo

Saludos
En línea

Necesitas ser usuario para ver los enlaces Crear Usuario  Hacer Sesion
sNipeR-
Visitante
« Respuesta #5 en: Mayo 06, 2007, 01:11:55 »
Cita de: Z-max en Mayo 06, 2007, 12:50:13
Dijo que recien empieza y vos le mandaz ese code Tongue
jeje, aunque sea abria que explicarlo un poquito xD
La verdad que yo no entendi my bien lo que queres hacer, si me explicas un poco mejor tal vez te tire algun ejemplo

Saludos

Pues esta muy sencillo, y el tio aunk no entienda nada de vb, (se noto por msn), me dice k le havia servido (con un copy&paste tenia k servir pero bueno xD)

Dime lo k no entiendes y te lo explico...

Citar
La verdad que yo no entendi my bien lo que queres hacer, si me explicas un poco mejor tal vez te tire algun ejemplo

Aki estas hablando conmigo? No entiendi :S

Salu2
En línea
ANYD00M
Moderadores
Colaborador
*****
Desconectado Desconectado

Mensajes: 744


.:Beethoven's Count:.

maxigile_tl@hotmail.com
Ver Perfil WWW Email
« Respuesta #6 en: Junio 10, 2007, 06:04:29 »
Citar
Citar
La verdad que yo no entendi my bien lo que queres hacer, si me explicas un poco mejor tal vez te tire algun ejemplo

Aki estas hablando conmigo? No entiendi :S

No era para emmerson, pero si dijo que ya lo entendio no importa xD


Saludos!
En línea

Necesitas ser usuario para ver los enlaces Crear Usuario  Hacer Sesion
Páginas: [1] Ir Arriba Imprimir 
Comunidad Underground Hispana  |  Programacion  |  Programación  |  Visual Basic y Net (Moderador: ANYD00M)  |  Tema: Listbox « anterior próximo »
Ir a:  


Ranking-Hits
Powered by SMF 1.1.6 | SMF © 2006-2007, Simple Machines LLC