翻转图片
Dim sp As Boolean
Dim cz As Boolean
Private Sub Command1_Click(Index As Integer)
Dim pic As StdPicture
Dim w, h As Integer
w = Picture1.Width
h = Picture1.Height
Set pic = Picture1.Picture
Picture1.Cls
Select Case Index
Case 0
sp = Not sp
Case 1
cz = Not cz
Case 2
End
end select
If sp And cz Then
Picture1.PaintPicture pic, w, h, w * -1, h * -1
ElseIf sp And Not cz Then
Picture1.PaintPicture pic, w, 0, w * -1, h
ElseIf Not sp And cz Then
Picture1.PaintPicture pic, 0, h, w, h * -1
Else
Picture1.PaintPicture pic, 0, 0
End If
End Sub
Private Sub commond2_Click()
CommonDialog1.FileName = ""
CommonDialog1.Filter = "图像文件|*.jpg;*.gif;*.png;*.PNG;*.bmp"
CommonDialog1.Flags = cdlOFNAllowMultiselect '这个选项可使多选,所以要对文件串进行处理。
CommonDialog1.ShowOpen
Dim a
a = Split(CommonDialog1.FileName, " ")
If UBound(a) = 0 Then Picture1.Picture = LoadPicture(a(0))
If UBound(a) > 0 Then Picture1.Picture = LoadPicture(a(0) & a(1))
If UBound(a) > 1 Then Picture2.Picture = LoadPicture(a(0) & a(2))
If Err.Number = 481 Then
MsgBox "请选择图片文件"
End If
End Sub