Cual es el equivalente de PSET en VB.Net
Publicado por Veronica (1 intervención) el 15/09/2006 14:17:01
Necesitaria saber cual es el equivalente en Visual . Net del metodo PSET de VB6
Estoy migrando de VB6 a Visual. Net y tuengo un sub que utiliza Pset y no se como hacer lo mismo en Visual . NET
Paso el Sub de VB6 para que lo vean
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
Estoy migrando de VB6 a Visual. Net y tuengo un sub que utiliza Pset y no se como hacer lo mismo en Visual . NET
Paso el Sub de VB6 para que lo vean
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
Valora esta pregunta
0