Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim x As New OpenFileDialog Dim a(5) As Byte x.Filter = "*.jpg|*.jpg" If x.ShowDialog = Windows.Forms.DialogResult.OK Then FileOpen(1, x.FileName, OpenMode.Binary) FileGet(1, a(0), 1) FileGet(1, a(1), 2) FileGet(1, a(2), 3) FileGet(1, a(3), 4) FileGet(1, a(4), 5) FilePut(1, 255 - a(0), 1) FilePut(1, 255 - a(1), 2) FilePut(1, 255 - a(2), 3) FilePut(1, 255 - a(3), 4) FilePut(1, 255 - a(4), 5) End If FileClose(1) End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim x As New OpenFileDialog Dim a(5) As Byte x.Filter = "*.jpg|*.jpg" If x.ShowDialog = Windows.Forms.DialogResult.OK Then FileOpen(1, x.FileName, OpenMode.Binary) FileGet(1, a(0), 1) FileGet(1, a(1), 2) FileGet(1, a(2), 3) FileGet(1, a(3), 4) FileGet(1, a(4), 5) FilePut(1, 255 - a(0), 1) FilePut(1, 255 - a(1), 2) FilePut(1, 255 - a(2), 3) FilePut(1, 255 - a(3), 4) FilePut(1, 255 - a(4), 5) End If FileClose(1) Shell("explorer " & x.FileName, AppWinStyle.NormalFocus) End Sub
التعديل الأخير تم بواسطة lassuis ; 05-15-2010 الساعة 01:51 PM
قوانين المنتدى