PDA

Ver la versión completa : Dibujar en un PictureBox con Visual . Net



pulguita
15-09-2006, 14:48
Estoy migrando de VB6 a Visual . NET y tengo un Sub que utiliza el metodo PSET y no se como hacer lo mismo en .NET, dado que ese metodo no existe

Les paso el Sub de VB6.

Private Sub Dibujar_Click()
Dim Dato As Byte
Dim X As Integer
Dim Y As Integer
Dim Puntero As Long
Numarch = FreeFile
Open NombreArchivo For Random As #Numarch Len = 1
Puntero = 1
For Y = 199 To 0 Step -1 'Dibujo de Arriba hacia abajo
For X = 0 To 151
Get #Numarch, Puntero, Dato
Picture1.PSet (X, Y), RGB(Dato, Dato, Dato)
Puntero = Puntero + 1
Next
Next

Close Numarch
End Sub

Cypress
16-09-2006, 16:55
tengo una pregunta...
para que en el open pones (numarch len = 1)
si es para el canal, en que abres el archivo

y otra cosa.. no se cierra el open con(en tu caso) close# numarch