问题2:代码如下,麻烦大家修定一下。Dim pic As WinForm.PictureBox = e.Form.Controls("图片预览框")
Dim lvw As WinForm.ListView = e.Form.Controls("图片略缩图")
Dim bmp As New bitmap(pic.ImageFile)
bmp.RotateFlip(RotateFlipType.Rotate90FlipNone)
bmp.save(pic.ImageFile)
Dim h As Integer = pic.Height
Dim w As Integer = pic.Width
pic.Height = w
pic.Width = h
pic.Image = bmp
Dim zp As String = pic.ImageFile
Dim Key As String = zp
'lvw.Images.LargeSize = New Size(60,80) '定义大图标尺寸
'lvw.Images.SmallSize = New Size(15,20) '定义小图标尺寸
lvw.Images.AddImage(Key,Key,key)
Dim vr As WinForm.ListViewRow = lvw.Current.
vr.ImageKey = key