Mensajes

Que tipo de archivo es?

El mas listo de su pueblo esta claro que no era 

Gracias por responder amigo, pero me da el siguiente error:



¿A que se deberá?

Se debe a que te dedicas a copiar código,  te pasa lo mismo que en este post.

http://foro.elhacker.net/programacion_visual_basic/asignar_acciones_en_los_items_de_un_listbox-t452598.0.html

Por favor, pon el nombre que le des a tu listbox y no el que te den en el código de ejemplo!!!!...

Saludos.

Lo siento por no tener tu inteligencia supina, pero para mi son respuestas diferentes aunque sea un solo numero el que hace la diferencia, se supone que el foro es para preguntar y aprender. Un poco de humildad 

Private Sub List1_Click()
    MsgBox List1.List(List1.ListIndex)
End Sub

Private Sub List2_Click()
    MsgBox List1.List(List2.ListIndex)
End Sub

Eso es solo el nombre del control... De hecho podría haber sido al revés o podrías haberle puesto otro diferente.

Algún día te darás cuenta de la tontería

La respuesta se te dio en la primera respuesta.

Por favor coge un libro porque el resto del tema a sido absurdo...

gracias estimado, pero ¿se podrá hacer sin necesidad de tener que seleccionar el item de la lista?

Estimados, mi pregunta es la siguiente, tengo un listbox con 5 items y quiero que por ejemplo al hacer click en el item 1 me muestre un msgbox con el contenido del item número 1 y así con todos.

Se puede hacer esto en vb6? Gracias amigos 

¿En qué quedamos?

Obviamente sí se puede...

Código (vb) [Seleccionar] Expandir

Private Sub List1_Click()
    MsgBox List1.List(List1.ListIndex)
End Sub

saludos.

La pregunta es...

Código (c) [Seleccionar] Expandir

GLchar *(source[1]);
GLchar (*source)[1];

¿Qué sentido tiene esto?

Es decir... ¿Intentas declarar una variable que ya esta declarada? ¿Quiéres cambiar de tipo esa variable?

[Drag Drop]

Lo que tu quieres hacer se llama Drag Drop, aquí tienes multiples ejemplos sobre como realizarlo sobre diversos controles.

http://www.recursosvisualbasic.com.ar/htm/tutoriales/drag-drop-enlaces.htm

saludos.

Evez de usar 17 variables haz un array. Lo mismo sucede con los PictureBox, crear un array de controles.

Código (vb) [Seleccionar] Expandir

Dim bX(17) as Integer

De esta manera los podrás recorrer.

Código (vb) [Seleccionar] Expandir


For i = 1 to 17
   If bX(i) = 1 Then
       PictureBox(i).Image = My.Resources.rojo
   end if
Next i

saludos.