Pasar valor de un combo a un textbox

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?

3 Respuestas

Respuesta
1
Si declaras una variable numérica como Integer (INT) te redondeara el valor.
Lo mejor es declararlas como Long, Double o Currency aunque normalmente uso Double.
Luego define el formato en las propiedades del TextBox y debería irte bien.
Cierto tenia la variable como integer pero ya la cambie a double y no me funciona, mira este es el código tal vez tengo otra cosa mal, por favor checalo
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
Y el el textbox no le tengo ningún formato
Si estás poniendo el valor directamente con decimales. Te van a aparecer decimales.
Densidad está definido como double.
Así te van a salir decimales siempre.
Incluye Otro valor DensdRedondeada as integer
y dalr valor
arrreglo(i). DensdRedondeada=Cint(arreglo(i). Densidad
Y luego usalo en la combo.
Combo. 1additem (arreglo(i). Densdredondeada)
Así tienes siempre disponibles los 3 valores.
Respuesta
1
Me pasarías un ejemplo bien simple de los valores que manejas
Así tengo el código hasta ahora pero me da los valores redondeados en el textbox, siente libre de modificar todo el código, si hay otra forma de asociar valores en un combobox por favor dímela
Private Type Mitipo
densidad As Double
material As String
End Type
Private Sub Form_Load()
Dim arreglo(1 To 3) 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
Dim i As Integer
For i = 1 To 3
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
No es problema del combo, tienes que formatear el numero
proba esto text13 = int(combo1. Itemdata(combo1. Listindex))
Sino también con
text13 = round(combo1.itemdata(combo1.listindex),0)
Respuesta
Bueno una vez llenado tu combo, y suponiendo que el combo guardo la información no redondeada (eso ya locomprobaste, tendrías que revisar) y posteriormente en el texbox pondrías.
text1.text= format(combo1.value,"###,##0.00")  esto no te redondea solo lo corta.
Suerte y no dudes en consultar.
Así como lo pusiste me marca un error en value, pero mejor te pongo el código que tengo tal vez sea otra cosa que no he visto
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
Haber el problema debe estar en el tipo de datos
integer, para números enteros
Currency, para calculo de tipo monetario y cálculos de punto fijo
y un sin fin de tipos de datos..
Densidad as double -- aquí esta el error
suerte y no dudes en consultar

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Combobox en Visual basic 6.0

Estoy haciendo una aplicación en visual basic 6.0 conectado con una base de datos en sql 2000. Lo que pasa es lo siguiente: Quisiera que al momento de cargar el combobox me aparezca los nombres, pero que al momento de guardar el combobox se guarde...
5 respuestas

Combos en cascada

Estoy desarrollando una aplicación en la cual necesito filtrar por medios de 3 combos, datos de por ejemplo en el 1ero continente, en el 2do los países de el continente seleccionado primeramente, y finalmente tener en el 3er combo las ciudades del...
1 respuesta

Colocar puntos y coma al valor double

Quisiera saber si alguien sabe como colocarles los puntos y/o comas a un valor de tipo double en VB 6.0
1 respuesta

Qué tal chicos! , Cómo sumar ¿Valores de un listbox en un textbox automáticamente?

Tengo un listbox con 18 columnas, el cual lleno con datos según el código elegido en un combobox, mi intención es que al llenarse el listbox, también se haga automáticamente la suma total de los valores de la columna 18 en un textbox.
1 respuesta

Problema con los decimales

Tengo un problema con los decimales, si coloco un precio 13,39 y al sacarle el iva, y descuento, sale 1499,68 Como redondeo eso a 15 mis códigos están así: Private Sub Text16_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If IsNumeric(Text16)...
2 respuestas

Sumar datos en diferentes formularios

En visual 6.0 tengo un formulario "form1" en donde ingreso un serie de datos para calcular el volumen de tuberías. Como : longitud, diámetros, numero de tubos etc.. Pero quiero que esos valores los pueda sumar o hacer otro tipo de operaciones en un...
1 respuesta

Consulta por medio de Combobox

Quisiera hacerte una consulta estoy haciendo un programa el cual esta enlazado a una base de datos MySql, y necesito hacer la consulta de registros por medio de un combox, ya en el combo me muestra el campo del cualquiera hacer la consulta para que...
1 respuesta

Cargar textbox !

Quisiera que me dieras un ejemplo de como poder cargar 2 textbox a partir de seleccionar un dato en un combobox, el combobox ya lo tengo relacionado con la base de datos. Estoy trabajando con vb 6.0 conexión de la base datos con ADO en access 2003....
1 respuesta

Llenar textbox con adodc al seleccionar datacombo

Tengo la siguientes inquietude: 1) Hice un formulario en donde tengo que digitar valores en decimal (tres para ser exactos ej. 0.123) en unos textbox y cuando lo grabo solo me graba el valor entero, soy nuevo en visual basic y no se como hacer eso....
1 respuesta

Leer archivo de texto desde visual basic 6.0

Soy principiante con el tema de programación. Esta es la cuestión: me pidieron hacer un programa el cual tiene que extraer datos de un archivo de texto, lo que quería saber: como puedo crear la conexión entre el archivo y el combo creado y el...
1 respuesta