indice en combo box

[mveraa]

hola maestros necesito cargar un combo con los meses pero necesito registrar el numero que representa por eje, enero 1 , febrero 2 , etc

lo hice primero asi .

CMES.AddItem "enero" //funciona ok
CMES.AddItem "enero", 1 // me marca error

invalid procedure call or argument.

como lo puedo hacer para que lleve un indice.?

un saludo.

[tazzito]

cMes.addItem "Enero"
cMes.ItemData(cMes.NewIndex)=1
cMes.addItem "Febrero"
cMes.ItemData(cMes.NewIndex)=2
....
cMes.addItem "Diciembre"
cMes.ItemData(cMes.NewIndex)=12


para recuperar el valor es MesSeleccionado = cMes.ItemData(cMes.ListIndex)

[mveraa]

muchas gracias lo chequeare

[loquillo7]

pero como podria hacer por ejemplo que a esos meses le relacione un codigo cualquiera es decir a Enero lo relacione con E1, febrero con F2 y asi sucesivamente porque cMes.ItemData(cMes.NewIndex) solo me acepta enteros y quiero relacionarlo con un strin gracias por la ayuda.

[loquillo7]

Haber foreros quizas no me explique bien por ejemplo yo tengo una tabla algo asi:
ID DESCRIPCION
------ -------------
F0001 Conticard
F0002 Cliente
F0003 No Cliente
F0004 Maestro

Lo que quiero es agregar el campo descripcion a un combo para que se visualize lo ahgo con su propiedad addItem pero quiero que el usuario al escoger una accion yo pueda capturar el campo ID y no se como adiacionar tanto el campo ID como el campo Descripcion al combo.

Algo como en html en la etiqueta select
<select>
<option value="ID">Descripcion</option>
</select>
pero nose como hacerlo en visual 6 espero me ayuden y me he dejado entender muchas gracias.

[vbx3m]

Iniciado por mveraa

hola maestros necesito cargar un combo con los meses pero necesito registrar el numero que representa por eje, enero 1 , febrero 2 , etc

lo hice primero asi .

CMES.AddItem "enero" //funciona ok
CMES.AddItem "enero", 1 // me marca error

invalid procedure call or argument.

como lo puedo hacer para que lleve un indice.?

un saludo.

Te marca un error porque debes comenzar el indice del combo en 0

Código:

CMES.AddItem "enero", 0 
CMES.AddItem "febrero", 1
......
......

[loquillo7]

yen mi caso me puedes ayudar

[vbx3m]

Si quieres agregar campos al combo utiliza el datacombo... es mas facil...

[tazzito]

Loquillo7

si quieres gregar datos de tipo string hacelo hacia un listbox y usas desde ahi o tal vez a la derecha del nombre del mes pones el codigo y lo sacas con un substring, por que tal como dices item data es de tipo entero.

[Victordemi]

despues de todo el webeo lo ise en VB 6.0 lo importe
con .net 2008 para ver como lo asia y importo componentes de VB 6.0
a un lisbox y lo consulta, nada buena calidad pero funciona

codigo

Código HTML:

Option Strict Off
Option Explicit On
Imports VB = Microsoft.VisualBasic
Friend Class Form1
	Inherits System.Windows.Forms.Form
	'UPGRADE_WARNING: El evento Combo1.SelectedIndexChanged se puede desencadenar cuando se inicializa el formulario. Haga clic aquí para obtener más información: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="88B12AE1-6DE0-48A0-86F1-60C0686C026A"'
	Private Sub Combo1_SelectedIndexChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Combo1.SelectedIndexChanged
		Text1.Text = CStr(VB6.GetItemData(Combo1, Combo1.SelectedIndex))
	End Sub
	
	Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
		Dim i As Object
		
		For i = 0 To 10
			'UPGRADE_WARNING: No se puede resolver la propiedad predeterminada del objeto i. Haga clic aquí para obtener más información: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
            Combo1.Items.Add(New VB6.ListBoxItem(CStr(VB.Day(Today)), CInt(i)))
			
		Next i
		
		
	End Sub
End Class

eso chauuuu

[pkj]

Loquillo7, creo que lo tuyo es muy fácil.
El modo más cómodo es crear un segundo Combo invisible con los ID.
Lógicamente tienes que cargar los ID en el Combo2 en el mismo orden que las descripciones del Combo1.
El ID del elemento seleccionado en el Combo1 siempre será:
Dim ID As String
ID = Combo2.List(Combo1.ListIndex)
Y podrás agregar y eliminar elementos fácilmente siempre que lo hagas en los dos combos a la vez.

Saludos

[seba123neo]

Hola, el unico que respondio acertado es vbx3m. primero es verdad que se puede ocultar el ID de un registro en el combobox mediante la propiedad itemData del mismo, pero el problema es que esta propiedad solo acepta numeros...y aca el ID es de tipo String, por eso el DataCombo tiene para poder almacenar el ID con el tipo de datos que quieras y por eso debes usar ese control.

saludos.