Dim piv As WinForm.PictureViewer = e.form.Controls("PictureViewer1")
Dim zp As String = piv.SelectedItem
If zp IsNot Nothing Then
msgbox(zp) ’执行显示下图1,确定后,提示参数错误,下图2(之前保存图片的文件夹是按月的,所以将月份路径也存在foxtable表格里了,但是不知道这里怎么分开,我感觉可能是这个原因造成的错误)
Dim bmp As New bitmap(zp)
msgbox(1) ’这里没有执行
bmp.RotateFlip(RotateFlipType.Rotate90FlipNone)
msgbox(2)
bmp.save(zp)
msgbox(3)
Dim obj As object = piv.basecontrol.Controls(0)
msgbox(4)
Dim pic As Object = obj.panel1.controls("PictureSplitContainer").Panel1.controls("panel2").controls("C1PictureBox1")
pic.Image = bmp
End If
图1
此主题相关图片如下:qq图片2017063010573666666.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2017-6/201763011463622600.png)
图2
此主题相关图片如下:qq图片2017063011434999.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2017-6/201763011464965310.png)
[此贴子已经被作者于2017/6/30 11:49:33编辑过]