Que tal buenos dias, primero que nada soy principiante en cuanto al vb.net se refiere... espero puedan ayudarme con mi problema.
Estamos viendo lo que son las colecciones y clases dentro de mi asignatura "Informatica Industrial", y me encargaron hacer un programa que contenga una clase "cmaquina" con las sig declaraciones:
public class cmaquina
dim nombre as string
dim fabricante as string
dim modelo as string
luego en la ventana de formulario:
public class form1:
dim objeto as cmaquina
dim colmaquinas as collection
en form load
colmaquinas = new collection
end sub
el programa en si tiene que hacer que al momento de hacer clic en un boton, me pida que ingrese esos datos en una variable "objeto" y la guarde en una coleccion y asi sucesivamente que vaya guardando las colecciones de objetos, para despues, mediante un textbox yo poner cual coleccion quiero que me despliegue y mediante otro boton "ver objeto" dar clic y ver dicha informacion de la coleccion en particular que ingrese en dicho textbox...
para ingresar los datos uso input box mediante un command button "cargar coleccion" asi:
objeto = new cmaquina
objeto.nombre = inputbox ("introduce el nombre")
objeto.fabricante = inputbox ("introduce el fabricante")
objeto.modelo = inputbox ("introduce el modelo")
colmaquinas.add(objeto)
end sub
con esto agrego cada vez que quiera una coleccion con esas propiedades.
tengo agregado otro boton "ver cant de objetos agregados"
msgbox("el numero de objetos cargados es: " & colmaquinas.count)
y cada que ejecuto voy viendo que efectivamente se van agregando las colecciones ya sea 1 o 2 o 3... etc.
tengo otro boton de comando y un textbox que cuando yo pongo cuaquier numero en dicho textbox de la coleccion que quiero desplegar nomas le pico al boton "ver objeto" y se carga esa propiedad que estoy especificando en el textbox mediante un msgbox... tmb agregue un listbox que me va a enlistar todas las colecciones que guarde... asi
Dim i As Object
For i = 1 To colMaquinas.Count
ListBox1.Items.Add(colMaquinas(i))
Next
Dim eleccion As Object
If colMaquinas.Count > 0 Then
eleccion = colMaquinas(CInt(txtMaquina.Text))
MsgBox(eleccion.ToString)
Else
MsgBox("Debe Seleccionar un dato valido")
End If
---------------
Segun yo esta todo bien... pero cuando le doy clic al boton me carga todo y me despliega la coleccion que quiero mediante el msgbox... pero en lugar de que me salgan los datos que cargue mediante el inputbox ...me sale "WindowsApplication1.cMaquina ...no se que estoy haciendo mal!!!
Alguien ayudeme! :S
Gracias!
