necesito una programacion en donde por medio del combobox pueda seleccionar unos articulos navideños?

hola necesito una programacion en donde por medio del combobox pueda seleccionar unos articulos navideños y por ende al seleccionar dicho articulo me pararezca en una caja de texto el valor en pesos colombianos y otra caja de texto que me aparezca ese mismo valor pero en bolivares, gracias espero resivir pronta respuesta, posdata:esto es en VISUAL BASIC 6.0 y los valores de los articulos son de escoger libremente.

2 respuestas

Calificación
  • hace 1 década
    Respuesta preferida

    Hola.

    Sólo tienes que crear un formulario con dos TextBox (Text1 y Text2) y un ComboBox (Combo1) y pegas este código en la sección General-Declaraciones del formulario.

    '******************************

    Option Explicit

    Dim aProd(5) As String

    Dim aPes(5) As Double

    Dim aBol(5) As Double

    Private Sub Form_Load()

    Dim aProd(5) As String

    Dim aPes(5) As Double

    Dim aBol(5) As Double

    '--- Llenar los productos

    aProd(0) = "Arbol de navidad"

    aProd(1) = "Nieve artificial"

    aProd(2) = "Santa Claus"

    aProd(3) = "Velas navideñas"

    aProd(4) = "Luces"

    aPes(0) = 1

    aPes(1) = 2

    aPes(2) = 4

    aPes(3) = 8

    aPes(4) = 16

    aBol(0) = 100

    aBol(1) = 200

    aBol(2) = 400

    aBol(3) = 800

    aBol(4) = 1600

    End Sub

    Private Sub Combo1_Click()

    Text1.Text = ""

    Text1.Text = Format(aPes(Combo1.ListIndex), "Standard")

    Text2.Text = ""

    Text2.Text = Format(aBol(Combo1.ListIndex), "Standard")

    End Sub

    '******************************

    Para cambiar los valores o agregar más productos, modificas los valores de declaración de las matrices y los valores de asignación.

    Esto es lo más que puedo hacer con los datos que suministras.

    ------------------------------

    YOLED

    http://www.yoled.com/

    Cabudare - Lara - Venezuela

    ------------------------------

  • hace 1 década

    PS YO CREO K TE PODRIA AYUDAR PERO EN VISUAL BASIC.NET MIRE SI LE SIRVE Y AVISA POR AQUI MISMO

¿Aún tienes preguntas? Pregunta ahora para obtener respuestas.