Private viewWidth As Single = 2
Private viewHeight As Single = 2
Private Sub View3D_MouseWheel(sender As Object, e As MouseEventArgs) Handles Me.MouseWheel
Dim s As Single = -CSng(e.Delta) / 2000
viewWidth += s
viewHeight += s
If viewWidth <= 0 Or viewHeight <= 0 Then
Exit Sub
End If
device.Transform.Projection = Matrix.OrthoLH(viewWidth, viewHeight, 0, 100)
''下面适用于透视投影
'Dim scaleFactor As Single = -CSng(e.Delta) / 2000 + 1.0F
'CamPostion.Subtract(CamTarget)
'CamPostion.Scale(scaleFactor)
'CamPostion.Add(CamTarget)
'Dim viewMatrix As Matrix = Matrix.LookAtLH(CamPostion, CamTarget, New Vector3(0, 1, 0))
'device.Transform.View = viewMatrix
End Sub
Private viewHeight As Single = 2
Private Sub View3D_MouseWheel(sender As Object, e As MouseEventArgs) Handles Me.MouseWheel
Dim s As Single = -CSng(e.Delta) / 2000
viewWidth += s
viewHeight += s
If viewWidth <= 0 Or viewHeight <= 0 Then
Exit Sub
End If
device.Transform.Projection = Matrix.OrthoLH(viewWidth, viewHeight, 0, 100)
''下面适用于透视投影
'Dim scaleFactor As Single = -CSng(e.Delta) / 2000 + 1.0F
'CamPostion.Subtract(CamTarget)
'CamPostion.Scale(scaleFactor)
'CamPostion.Add(CamTarget)
'Dim viewMatrix As Matrix = Matrix.LookAtLH(CamPostion, CamTarget, New Vector3(0, 1, 0))
'device.Transform.View = viewMatrix
End Sub