tengo un problema con un option button a una lista

[alexander19]

ola buenas tengo una duda que tengo que hacer un programa pero me falta una pura parte que no la puedo hacer
que es de la parte de pasar de un option button a una lista
el programa se llama compra interactiva ojala me puedan ayudar estos son los codigos

Option Explicit


Private Sub Check1_Click()
If Check1.Value = 1 Then
Image2.Picture = _
LoadPicture("C:\imagenes\libros\computador.jpeg")
Image2.Visible = True
Else
Image2.Visible = False
End If
End Sub

Private Sub Check2_Click()
If Check2.Value = 1 Then
Image3.Picture = _
LoadPicture("C:\imagenes\libros\medicina.jpeg")
Image3.Visible = True
Else
Image3.Visible = False
End If
End Sub

Private Sub Check3_Click()
If Check3.Value = 1 Then
Image4.Picture = _
LoadPicture("C:\imagenes\libros\pc.jpeg")
Image4.Visible = True
Else
Image4.Visible = False
End If
End Sub

Private Sub Combo1_Click()
Select Case Combo1.Text

Case "efectivo"
Image6.Picture = LoadPicture("C:\imagenes\tipo_pago\billete.jpeg")
Case "tarjeta"
Image6.Picture = LoadPicture("C:\imagenes\tipo_pago\tarjeta.jpeg")
Case "cheque"
Image6.Picture = LoadPicture("C:\imagenes\tipo_pago\cheque.jpeg")
End Select
End Sub

Private Sub Command1_Click()
MsgBox "los esperamos luego"
Unload Me
End Sub

Private Sub Form_Load()
Combo1.AddItem "efectivo"
Combo1.AddItem "tarjeta"
Combo1.AddItem "cheque"

List1.AddItem "amd "

End Sub


Private Sub List1_Click()
Select Case List1.ListIndex
Case 0
Image1.Picture = _
LoadPicture("C:\imagenes\procesadores\AMD.JPEG")
Case 1
Image1.Picture = _
LoadPicture("C:\imagenes\procesadores\intel.jpeg")

End Select
Image1.Visible = True

End Sub

Private Sub Option1_Click(Index As Integer)

???????
End Sub


ojala me puedan ayudar

[David]

Bienvenido al foro.

¿Qué es exactamente lo que deseas realizar al hacer click en el optionbutton?

[alexander19]

lo k tengo k hacer es k al apretarlo muestre una lista en el comando list !

i son 3 botones i kada uno tiene k mostrar una lista diferente ojala me puedas ayudar pero = se agradece ! adios

[David]

Sólo tienes que usar el método Clear del ListBox para limpiarlo y el método AddItem para añadir los nuevos elementos de la lista.

[alexander19]

ia termine el programa i era hacii

Option Explicit


Private Sub Check1_Click()
If Check1.Value = 1 Then
Image2.Picture = _
LoadPicture("C:\imagenes\libros\computador.jpeg")
Image2.Visible = True
Else
Image2.Visible = False
End If
End Sub

Private Sub Check2_Click()
If Check2.Value = 1 Then
Image3.Picture = _
LoadPicture("C:\imagenes\libros\medicina.jpeg")
Image3.Visible = True
Else
Image3.Visible = False
End If
End Sub

Private Sub Check3_Click()
If Check3.Value = 1 Then
Image4.Picture = _
LoadPicture("C:\imagenes\libros\pc.jpeg")
Image4.Visible = True
Else
Image4.Visible = False
End If
End Sub

Private Sub Combo1_Click()
Select Case Combo1.Text

Case "efectivo"
Image6.Picture = LoadPicture("C:\imagenes\tipo_pago\billete.jpeg")
Case "tarjeta"
Image6.Picture = LoadPicture("C:\imagenes\tipo_pago\tarjeta.jpeg")
Case "cheque"
Image6.Picture = LoadPicture("C:\imagenes\tipo_pago\cheque.jpeg")
End Select
End Sub

Private Sub Command1_Click()
MsgBox "los esperamos luego"
Unload Me
End Sub

Private Sub Form_Load()
Combo1.AddItem "efectivo"
Combo1.AddItem "tarjeta"
Combo1.AddItem "cheque"

List1.AddItem "amd "

End Sub
Private Sub List1_Click()
If Option1(0).Value = True Then
Select Case List1.ListIndex
Case 0
Image1.Picture = _
LoadPicture("C:\imagenes\procesadores\AMD1.JPEG")
Case 1
Image1.Picture = _
LoadPicture("C:\imagenes\procesadores\intel1.jpeg" )
Case 2
Image1.Picture = _
LoadPicture("C:\imagenes\procesadores\AMD.JPEG")
Case 3
Image1.Picture = _
LoadPicture("C:\imagenes\procesadores\intel.JPEG")
End Select
End If

If Option2(1).Value = True Then
Select Case List1.ListIndex
Case 0
Image1.Picture = _
LoadPicture("C:\imagenes\tarjeta_video\ati.JPEG")
Case 1
Image1.Picture = _
LoadPicture("C:\imagenes\tarjeta_video\nvidia.jpeg ")
End Select
End If
If Option3(2).Value = True Then
Select Case List1.ListIndex
Case 0
Image1.Picture = _
LoadPicture("C:\imagenes\memorias\ddr.JPEG")
Case 1
Image1.Picture = _
LoadPicture("C:\imagenes\memorias\ddr2.jpeg")
Case 2
Image1.Picture = _
LoadPicture("C:\imagenes\memorias\ddr3.jpeg")






End Select

End If
End Sub

Private Sub Option1_Click(Index As Integer)
List1.Clear
List1.AddItem "AMD "
List1.AddItem "INTEL "
List1.AddItem "AMD DUAL CORE "
List1.AddItem "INTEL DUAL CORE "
End Sub

Private Sub Option2_Click(Index As Integer)
List1.Clear
List1.AddItem "ATI "
List1.AddItem "NVIDIA "
End Sub

Private Sub Option3_Click(Index As Integer)
List1.Clear
List1.AddItem "DDR "
List1.AddItem "DDR2 "
List1.AddItem "DDR3"
End Sub