主题：[求助]picturebox控件显示成横向

你加一个图片旋转的功能，即可，如

Dim bmp As New bitmap("d:\test.jpg")
bmp.RotateFlip(RotateFlipType.Rotate90FlipNone)
bmp.save("d:\test2.jpg")

------------------

顺时针旋转90度     RotateFlipType.Rotate90FlipNone
逆时针旋转90度     RotateFlipType.Rotate270FlipNone
水平翻转    RotateFlipType.Rotate180FlipY
垂直翻转    RotateFlipType.Rotate180FlipX

不应该有问题的。元素图片发上来测试。

1、原始图片发上来测试。

2、试试

Dim img As Image = Image.FromFile("c:\test.jpg")
Dim pt As PropertyItem() = img.PropertyItems
For i As Integer = 0 To pt.Length - 1
    Dim p As PropertyItem = pt(i)
    Select Case pt(i).Id
        Case 274
            Dim s  = p.value(0)
            msgbox("方向:  " & s)
            Select Case s
                Case 2
                    img.RotateFlip(RotateFlipType.RotateNoneFlipX)
                Case 3
                    img.RotateFlip(RotateFlipType.Rotate180FlipNone)
                Case 4
                    img.RotateFlip(RotateFlipType.RotateNoneFlipY)
                Case 5
                    img.RotateFlip(RotateFlipType.Rotate90FlipX)
                Case 6
                    img.RotateFlip(RotateFlipType.Rotate90FlipNone)
                Case 7
                    img.RotateFlip(RotateFlipType.Rotate270FlipX)
                Case 8
                    img.RotateFlip(RotateFlipType.Rotate270FlipNone)
            End Select
    End Select
Next

请把图片发上来测试

试试

Dim pbx As WinForm.PictureBox = e.form.Controls("PictureBox3")
Dim pth As String = "d:\"
Dim bh1 As String = "test.jpg"
If FileSys.FileExists(pth & bh1) Then
    Dim bmp As Image = Image.FromFile(pth & bh1)
    Dim pt As PropertyItem() = bmp.PropertyItems
    For i As Integer = 0 To pt.Length - 1
        Dim p As PropertyItem = pt(i)
        Select Case pt(i).Id
            Case 274
                Dim s  = p.value(0)
                msgbox("方向:  " & s)
                Select Case s
                    Case 2
                        bmp.RotateFlip(RotateFlipType.RotateNoneFlipX)
                    Case 3
                        bmp.RotateFlip(RotateFlipType.Rotate180FlipNone)
                    Case 4
                        bmp.RotateFlip(RotateFlipType.RotateNoneFlipY)
                    Case 5
                        bmp.RotateFlip(RotateFlipType.Rotate90FlipX)
                    Case 6
                        bmp.RotateFlip(RotateFlipType.Rotate90FlipNone)
                    Case 7
                        bmp.RotateFlip(RotateFlipType.Rotate270FlipX)
                    Case 8
                        bmp.RotateFlip(RotateFlipType.Rotate270FlipNone)
                End Select
               
        End Select
    Next
    bmp.save(pth & bh1 & "1")
    bmp.dispose
    FileSys.DeleteFile(pth & bh1)
    FileSys.RenameFile(pth & bh1 & "1", bh1)
    pbx.image = GetImage(pth & bh1)
End If