窗口PictureViewer问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗口PictureViewer问题

共有2725人关注过本帖树形打印复制链接主题：窗口PictureViewer问题

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/6/30 10:01:00 [显示全部帖子]

'左转90

Dim piv As WinForm.PictureViewer = Forms("图片管理器").Controls("PictureViewer1")
Dim zp As String = piv.SelectedItem
If zp IsNot Nothing Then
    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

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/6/30 11:31:00 [显示全部帖子]

无语，不用改啊，全部不用改啊。

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

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/6/30 12:14:00 [显示全部帖子]

合成的图片的路径

zp = "e:\aaa\bbb\ccc\" & zp

msgbox(zp)

Dim bmp As New bitmap(zp)

下一主题 >> << 上一主题

主题：窗口PictureViewer问题