Clases en VB
Publicado por Berner (2 intervenciones) el 20/04/2007 09:16:55
A ver si me podeis ayudar, me da error de compilación cuando intento crear la linea, si hago un "Print lii(1,1)" me dice que es un dato erroneo entonces no sé si estoy agregando bien a la clase el dato, o es que no lo llamo bien..te pongo lo que llevo
Dim lii(1 To 50, 1 To 4) As New Collection
Dim linea As New clase_linea 'clase_linea contiene x1,x2,y1,y2
lii(contador, 1).Add linea.x1, creax1
lii(contador, 2).Add linea.y1, creay1
lii(contador, 3).Add linea.x2, creax2
lii(contador, 4).Add linea.y2, creay2
Monitor.Line (lii(contador, 1), lii(contador, 2))-(lii(contador, 3), lii(contador, 4))
Dim lii(1 To 50, 1 To 4) As New Collection
Dim linea As New clase_linea 'clase_linea contiene x1,x2,y1,y2
lii(contador, 1).Add linea.x1, creax1
lii(contador, 2).Add linea.y1, creay1
lii(contador, 3).Add linea.x2, creax2
lii(contador, 4).Add linea.y2, creay2
Monitor.Line (lii(contador, 1), lii(contador, 2))-(lii(contador, 3), lii(contador, 4))
Valora esta pregunta
0