图形旋转
来源:互联网 发布:java pop3 接收邮件 编辑:程序博客网 时间:2024/05/17 09:40
‘在窗体上加两个picturebox控件,五个option控件放在frame框架上,一个按钮
Option Explicit
Const Pi = 3.1416
Dim JiaoDu As Double
Function b(i)
Dim x As Integer, y As Integer
Dim X1 As Integer, Y1 As Integer
Dim X2 As Double, Y2 As Double
Dim X3 As Double, Y3 As Double
JiaoDu = Option1(i).Caption
Picture2.Visible = True
Picture2.Cls
Dim Hudu As Double
Hudu = JiaoDu * Pi / 180
Picture1.ScaleMode = vbPixels
Picture2.ScaleMode = vbPixels
For x = 0 To Picture2.ScaleWidth
X1 = x - Picture2.ScaleWidth / 2
For y = 0 To Picture2.ScaleHeight
Y1 = y - Picture2.ScaleHeight / 2
X2 = X1 * Cos(-Hudu) + Y1 * Sin(-Hudu)
Y2 = Y1 * Cos(-Hudu) - X1 * Sin(-Hudu)
X3 = X2 + Picture1.ScaleWidth / 2
Y3 = Y2 + Picture1.ScaleHeight / 2
If X3 > 0 And X3 < Picture1.ScaleWidth - 1 And Y3 > 0 And Y3 < Picture1.ScaleHeight - 1 Then
Picture2.PSet (x, y), Picture1.Point(X3, Y3)
End If
Next y
Next x
Picture1.Visible = False
End Function
Private Sub Command1_Click()
Dim i As Single
If Option1(0).Value = True Then
Shape1.Visible = False
Call b(0)
ElseIf Option1(1).Value = True Then
Shape1.Visible = False
Call b(1)
ElseIf Option1(2).Value = True Then
Shape1.Visible = False
Call b(2)
ElseIf Option1(3).Value = True Then
Shape1.Visible = False
Call b(3)
Else
Shape1.Visible = True
Picture2.Cls
End If
End Sub
Private Sub Form_Load()
Picture2.Visible = True
Picture1.Visible = False
Shape1.Visible = True
End Sub
Private Sub Frame1_Click() ‘单击框架恢复
Shape1.Visible = True
Picture2.Cls
End Sub
- 图形旋转
- 图形旋转
- 图形旋转
- 旋转图形
- java 图形旋转操作
- 绘制旋转Cube图形
- C++ - 图形旋转
- nyoj-1079-图形旋转
- android 图形旋转
- OpenGL图形旋转
- opencv实现图形旋转
- 旋转三维图形
- css图形旋转
- lintcode---旋转图形
- 鼠标操作图形旋转
- html5绘制变换图形-旋转图形
- (图形学)图形旋转-vb
- BitBlt举例和图形旋转
- 对就业教育的分析与探索
- 配置CVS服务器和客户端完全解析
- 一个俄罗斯方块游戏源程序
- 如何在Windows 2000下将Oracle完全卸载
- vb基础(打印问题)
- 图形旋转
- vb基础
- Flash MX 2004 Professional网络开发 (概述)
- Flash MX 2004 Professional 网络开发(概述)
- Flash的历史及其发展方向
- Flash 的媒体组织方式(上)
- Flash 的媒体组织方式(下)
- Flash 中的OOP(上)
- Flash 中的OOP(下)