Valor de combobox a textbox

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 de ellos 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

Respuesta
1
Para que los valores no los redondees, declara una variable de tipo Float que maneja decimales.
Lo cambio a float pero me dice "No se ha definido el tipo definido por el usuario"
Mira te dejo el código haber si me exhas una mano para corregirlo
   Private Type Mitipo
densidad As Float
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
hay alguna forma mas facil de hacer esto?
Prueba en vez de Float con Single

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas