Question

VB 如何让图片在图片框转转90度显示，只要旋转90度！不要任意角度的。

Answer 1

用Picture控件的Pset变换一下X和Y。
上面的方法运行速度相当慢、因为一个点一个点重画。

想快一点的话直接修改要显示的图片。
如果是BMP的话可以上网找找BMP格式的说明、然后Bynary方式打开然后内容重写。
如果是JPG就不好办了。或许网上也有相关说明。

Answer 2

Private Sub Open_Click()
Dim p()
ScaleMode = 3
Picture1.AutoRedraw = True
Picture1.ScaleMode = 3
w = Picture1.ScaleWidth
h = Picture1.ScaleHeight
ReDim p(w - 1, h - 1)
For i = 0 To w - 1
For j = 0 To h - 1
p(i, j) = Picture1.Point(i, j)
Next j
Next i
Picture1.Width = h + 4 * Picture1.BorderStyle
Picture1.Height = w + 4 * Picture1.BorderStyle
For i = 0 To h - 1
For j = 0 To w - 1
Picture1.PSet (i, w - j - 1), p(j, i)
Next j
Next i
End Sub