用vb制作地球仪解决方法

用vb制作地球仪
代码是


Private Sub Command1_Click()
Form3.Show
Form3.Visible = True
Form2.Visible = False
Form1.Visible = False
End Sub

Private Sub Command2_Click()
Form2.Show
Form2.Visible = True
Form3.Visible = False
Form1.Visible = False
End Sub

Private Sub Command3_Click()
End
End Sub



Public Sub Picture1_Load()
Timer1.Enabled = True
Picture1.AutoSize = True
Dim i As Integer
Dim Globe(15) As Globe
For i = 1 To 15
  Set Globe(i) = LoadPicture(strFile) = LoadPicture("C:\Documents and Settings\Administrator\桌面\globe\globe" & i & ".bmp") '给数组赋值
Next i
End Sub


Private Sub Timer1_Timer()
Select Case i
Case 1 To 14
Timer1.Interval = 250
Case Is = 15
Timer1.Interval = 500

End Sub


[解决办法]
lz，你可以把这些画面连起来，做成一个gif图片，或者flash，然后载入。
[解决办法]

探讨

.............


应为这是个实验，要求是要用到数组

[解决办法]

探讨

反正我就是要定义一个数组，里面让它存图片，那我应该怎么改啊？

[解决办法]
做地球仪？这东西可大可小。
简单的，比如只是一个小的动画，需求只是普通的实现3D地球仪旋转效果。
可以直接弄一个世界地图，然后用Direct3D贴图来弄，过程很简单。
如果想弄成像Google那样的，就不是那么简单了，涉及很多平面图形、矢量
图形、3D图形的处理技术在里面，图像数据也不可能是那么存放的了，可能是
个数据引擎。所以目的性是否准确会直接影响工程策划及可能涉及的技术范畴。
[解决办法]
发个现成的

VB code

http://download.csdn.net/source/1222635 

 

查看更多 下一篇