Bueno para verificar constantemente el combobox, si cambia o no en vb6 use un SELECT CASE.
Private Sub cbodisp_Click()
Select Case cbodisp.Text
Case "Memoria RAM K128"
Label1.Caption = "Memoria RAM Kingstone"
Label2.Caption = "128MB"
Label3.Caption = "SI"
Label4.Caption = "SI"
Label5.Caption = "DDR1"
Label6.Caption = "Muy buena calidad."
Picture1.Picture = LoadPicture(".\img\kigtone128.jpg")
..............muchos mas..................
End Select
End Sub
Select Case cbodisp.Text
Case "Memoria RAM K128"
Label1.Caption = "Memoria RAM Kingstone"
Label2.Caption = "128MB"
Label3.Caption = "SI"
Label4.Caption = "SI"
Label5.Caption = "DDR1"
Label6.Caption = "Muy buena calidad."
Picture1.Picture = LoadPicture(".\img\kigtone128.jpg")
..............muchos mas..................
End Select
End Sub
bien al pasarlo a gambas, según la wiki seria algo así:
Private Sub cbodisp_Click()
SELECT CASE ("cbodisp.Text")
CASE ("Memoria RAM K128")
Label1.Caption = ("Memoria RAM Kingstone")
Label2.Caption = ("128MB")
Label3.Caption = ("SI")
Label4.Caption = ("SI")
Label5.Caption = ("DDR1")
Label6.Caption = ("54SD8F1E3F.")
Picture1.Picture = LoadPicture(".\img\kigtone128.jpg")
..............muchos mas..................
ELSE SELECT CASE
-------
END SELECT
END SUB
SELECT CASE ("cbodisp.Text")
CASE ("Memoria RAM K128")
Label1.Caption = ("Memoria RAM Kingstone")
Label2.Caption = ("128MB")
Label3.Caption = ("SI")
Label4.Caption = ("SI")
Label5.Caption = ("DDR1")
Label6.Caption = ("54SD8F1E3F.")
Picture1.Picture = LoadPicture(".\img\kigtone128.jpg")
..............muchos mas..................
ELSE SELECT CASE
-------
END SELECT
END SUB
pero no logro hacerlo andar. me dice q tengo un error en la sintaxis.