VB6+DX写的3D地面生成程序

游戏之家

程序很小实用,  不到100行, 完整的例子, 是我参考国外游戏程序而重写的, 先献给大家.
另外请帮我一个忙.

我想让BITBLT的画面显示在这个地面上, 或者让这个程序里的3D画面用BITBLT的方式显示出来, 我自己做了几种方法都不理想,  看看有没高手能帮忙, 谢谢!
程序里如果将 clip.SetHWnd Me.hWnd
改成  clip.SetHWnd picture1.hWnd 那么画面将显示在PICTURE1里面,
前提是要建立一个PICTURE图片框, 我用BITBLT复制画面后能显示,
但PICTURE1.VISIBLE的属性不能是FALSE, 这样就有问题.

landon

跑起?砗茼?,???注?支持呀~
不?看?硎?筒簧厦 [em4]~

游戏之家

速度是可以调整的，
Private Sub tmrMain_Timer() 里的 12就是速度，越大速度越快，一共6个。
D3DRMCOMBINE_BEFORE, 12, 0, 0
D3DRMCOMBINE_BEFORE, -12, 0, 0
改变其它参数可以用于飞机模拟游戏，地面可以翻转升高降低等......

没人帮忙没关系，我现在已经在用2D的方式做，我是一边做一边和大家探讨，就算最后3D不成功，我的2D也可以用了，我前几天就是放弃了2D去看3D的东西，结果徒劳无功，自己不会的东西想用上有点难，还是老老实实的用VB6来写代码。

landon

哇~ 管它 2D ?是 3D ,支持再?啦~^^

cnnets

呵呵，有这种强人，要支持。
怎么不能改变路线，按左右键只是两头看，路线还是原来的。

游戏之家

任何方向都可以实现，你自己改参数，我这个地图上下左右翻转都可以，做模拟飞行地图也可以，只需要修改
D3DRMCOMBINE_BEFORE, 12, 0, 0
D3DRMCOMBINE_BEFORE, -12, 0, 0

把上面的0修改成数字，比如12，看看效果，比如D3DRMCOMBINE_BEFORE,0 , 12, 0
或D3DRMCOMBINE_BEFORE, 0 ,0, 12 。

一共6个位置可以修改，任意搭配组合就可以达到你要的效果，12是速度，越大越快。

linkangzhen

我的下载不了,不过也应该不错吧,
支持好样,

游戏之家

下载不了不可能