image控件怎么实现图片翻转功能?急。。。。在线等

padababy 2005-12-13 01:16:58
image控件怎么实现图片翻转功能?
...全文
508 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
IamDeane 2005-12-16
  • 打赏
  • 举报
回复
没有办法,应该这么说,因为image和PICTUREBOX本来就不是同一级别的东西,楼上是比较务实的方法,要不就把图片保存起来转后再倒回去,我从前也想过这个问题,但始终没找资料,希望楼主比我幸运吧
northwolves 2005-12-14
  • 打赏
  • 举报
回复
用picture控件我自己也会
我现在想用image控件做
-------------------------
把IMAGE放入PICTUREBOX中一起翻转
padababy 2005-12-13
  • 打赏
  • 举报
回复
用picture控件我自己也会
我现在想用image控件做
HungryBoy 2005-12-13
  • 打赏
  • 举报
回复
在窗体上放置Picturebox并且设置picture属性
添加按钮数组
--------------------------------
Dim bHort As Boolean
Dim bVert As Boolean
Private 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
lxcy 2005-12-13
  • 打赏
  • 举报
回复
用picturebox
faysky2 2005-12-13
  • 打赏
  • 举报
回复
http://community.csdn.net/Expert/topic/4368/4368674.xml?temp=.5049707
laviewpbt 2005-12-13
  • 打赏
  • 举报
回复
image是轻量级的控件,不有hdc,所以翻转的话还是用picturebox

1,453

社区成员

发帖
与我相关
我的任务
社区描述
VB 控件
社区管理员
  • 控件
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧