Guest User

Untitled

a guest
Jan 17th, 2018
77
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.78 KB | None | 0 0
  1. Private Sub lctupdatedtgrd_CellContentClick(sender As System.Object, e As System.Windows.Forms.DatagridViewCellEventArgs) Handles lctupdatedtgrd.CellContentClick`
  2.  
  3. Dim img1 as Byte()
  4.  
  5. img1= lctupdatedtgrd.CurrentRow.Cells(91).Value
  6.  
  7. Dim ms1 as New MemoryStream(img1)
  8.  
  9. Me.artworkpicbox.Image= Image.FromStream(ms1)
  10.  
  11. End Sub
  12.  
  13. Private Sub ResetToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles ResetToolStripMenuItem1.Click
  14.  
  15. Dim currentfilename as String= Nothing
  16.  
  17. Dim original as Image= Nothing
  18.  
  19. currentfilename=filepath.Text
  20.  
  21. If Not (finalcopy.Image Is Nothing) Then
  22.  
  23. Dim fs as FileStream
  24.  
  25. fs= New Filestream(currentfilename, IO.FilemMode.Open, IO.FileAccess.Read)
  26.  
  27. finalcopy.Image=Image.FromStream(fs)
  28.  
  29. fs.Close()
  30.  
  31. original= finalcopy.Image
  32.  
  33. End if
  34.  
  35. End Sub
Add Comment
Please, Sign In to add comment