Pasar valor asociado de combo sin redondear

Hola, espero que me puedas ayudar con este problema:
Tengo un combobox donde quiero que me despliegue una lista de materiales y al elegir uno quiero que en un textbox me aparezca su valor asociado. Mi pregunta es ¿cómo declarar las variables para que en el textbox me aparezca el valor sin redondear?
1

1 Respuesta

23.825 pts. Programador VB6 Programador
Si podes explicarte mejor tal vez pueda ayudarte...
Un abrazo!
Mira tengo un combobox que me muestra una lista de materiales y al dar click en uno quiero que en un textbox me aparezca un valor asociado a ese material elegido, el código hasta ahora lo tengo así:
Private Type Mitipo
densidad As Double
material As String
End Type
Private Sub Form_Load()
Dim arreglo(1 To 14) As Mitipo
arreglo(1).densidad = 2.7
arreglo(1).material = "ALUM6062"
arreglo(2).densidad = 8
arreglo(2).material = "SS 304-316"
arreglo(3).densidad = 7.8
arreglo(3).material = "SS 416-446"
arreglo(4).densidad = 7.87
arreglo(4).material = "A1215"
arreglo(5).densidad = 7.87
arreglo(5).material = "12L14"
arreglo(6).densidad = 7.85
arreglo(6).material = "A1144"
arreglo(7).densidad = 7.87
arreglo(7).material = "AISI1020"
arreglo(8).densidad = 7.85
arreglo(8).material = "AISI4140"
arreglo(9).densidad = 8.82
arreglo(9).material = "SAE 40"
arreglo(10).densidad = 2.16
arreglo(10).material = "TEFLON"
arreglo(11).densidad = 0.093
arreglo(11).material = "UHMW-PE"
arreglo(12).densidad = 1.41
arreglo(12).material = "ACETAL DELRIN"
arreglo(13).densidad = 8.36
arreglo(13).material = "KOVAR"
arreglo(14).densidad = 8.3
arreglo(14).material = "KANTHAL"
Dim i As Integer
For i = 1 To 14
Combo1.AddItem arreglo(i).material
Combo1.ItemData(i - 1) = arreglo(i).densidad
Next
End Sub
Private Sub Combo1_Click()
Text13 = Combo1.ItemData(Combo1.ListIndex)
End Sub
El problema es que en el texbox me aparece el valor (densidad) redondeado.
¿Cómo esta declarada la variable densidad?
densidad as Double
¿Esta mal? ¿Cómo debería ser?
El problema esta en que la variable itemdata
Es un entero, por eso te lo redondea.
Un abrazo!

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas