无语,不用改啊,全部不用改啊。
Dim piv As WinForm.PictureViewer = e.form.Controls("PictureViewer1")
Dim zp As String = piv.SelectedItem
If zp IsNot Nothing Then
msgbox(zp)
Dim bmp As New bitmap(zp)
bmp.RotateFlip(RotateFlipType.Rotate90FlipNone)
bmp.save(zp)
Dim obj As object = piv.basecontrol.Controls(0)
Dim pic As Object = obj.panel1.controls("PictureSplitContainer").Panel1.controls("panel2").controls("C1PictureBox1")
pic.Image = bmp
End If