关于图片的反转和分辨率问题！

Question

我想知道如何把图片顺/逆转90度和修改图片的分辨率！

Answer 1

翻转的例子，一个Picture1和2个command1控件
Option Explicit
   
Dim bHort As Boolean
Dim bVert As BooleanPrivate Sub Command1_Click(Index As Integer)
    Dim pic As StdPicture
    
    Set pic = Picture1.Picture
   
    Picture1.Cls
    Select Case Index
        Case 0
            bHort = Not bHort
        Case 1
            bVert = Not bVert
    End Select
    
    If bHort And bVert Then
        Picture1.PaintPicture pic, Picture1.Width, Picture1.Height, _
            Picture1.Width * -1, Picture1.Height * -1
    ElseIf bHort And Not bVert Then
        Picture1.PaintPicture pic, Picture1.Width, 0, _
            Picture1.Width * -1, Picture1.Height
    ElseIf Not bHort And bVert Then
        Picture1.PaintPicture pic, 0, Picture1.Height, _
            Picture1.Width, Picture1.Height * -1
    Else
        Picture1.PaintPicture pic, 0, 0
    End If
End Sub

Answer 2

图片文件 属性->摘要->就是水平分辨率和竖直分辨率