VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
楼主: acme_pjz

在VB6里面用D3D9的tlb!有点完整 [v0.031] 小改了一下D3DXEffect

[复制链接]
发表于 2012-1-17 21:40:57 | 显示全部楼层
嗯嗯 我回贴
回复 支持 反对

使用道具 举报

发表于 2012-2-8 22:37:02 | 显示全部楼层
楼主真乃神人也,膜拜之
回复 支持 反对

使用道具 举报

发表于 2012-6-29 12:14:33 | 显示全部楼层
引用了tlb 然后怎么用啊?

给个例子 谢拉。。

点评

然后照着C/C++ DX9教程里面的方法用  发表于 2012-6-29 14:01
回复 支持 反对

使用道具 举报

发表于 2012-7-13 19:41:11 | 显示全部楼层
D3DXMATERIAL 结构中的 lpstrTextureFilename 成员类型为何是 int。DX8中都是string。

D3DXCreateTextureFromFileW 第二参数为 string 就没办法用D3DXMATERIAL结构的lpstrTextureFilename 成员。

点评

这个应该是tlb的限制,lpstrTextureFilename 保存的是指向字符串(char*)的指针,你调用API lstrlen和lstrcpy把里面的内容复制出来  发表于 2012-7-14 00:13
回复 支持 反对

使用道具 举报

发表于 2012-7-13 19:44:02 | 显示全部楼层
想加载.x文件,如下就是不行,不知道那出问题了。

    D3DXLoadMeshFromXW file, D3DXMESH_SYSTEMMEM, D3DDevice, pMaterials, Nothing, Nothing, NumMaterials, pMesh
   
    Dim matMaterials() As D3DXMATERIAL
    ReDim matMaterials(NumMaterials - 1)
   
    Dim pointer As Long
    pointer = pMaterials.GetBufferPointer
   
    ReDim MeshMaterials(NumMaterials - 1)
    ReDim MeshTextures(NumMaterials - 1)
   
    Dim i   As Long
    For i = 0 To NumMaterials - 1
        CopyMemory matMaterials(i), ByVal (pointer + i * 4), Len(matMaterials(0))
        
        MeshMaterials(i) = matMaterials(i).MatD3D
        MeshMaterials(i).Ambient = MeshMaterials(i).diffuse
        
        D3DXCreateTextureFromFileW D3DDevice, matMaterials(i).lpstrTextureFilename, MeshTextures(i)
    Next
回复 支持 反对

使用道具 举报

发表于 2014-5-7 11:57:39 | 显示全部楼层
楼主怎么编译tlb的,我用midl  dx9vbtest.idl编译的,无法被VB引用

点评

不可能啊,我也是用midl编译的,如果你偷懒的话可以把那两个idl丢到Visual Studio解决方案里面,然后会自动编译  发表于 2014-5-7 12:25
回复 支持 反对

使用道具 举报

发表于 2014-5-7 14:11:05 | 显示全部楼层
用楼主的tlb,把一个DX9 的3d实例改成VB代码,发上来....

dx_02 Matrices.rar

6.73 KB, 下载次数: 691

回复 支持 反对

使用道具 举报

发表于 2014-5-7 16:56:11 | 显示全部楼层
有些函数不支持,比如D3DXMatrixIdentity.....

点评

哪个bas,没见过  发表于 2014-5-8 00:23
你检查过那个bas了么?  发表于 2014-5-7 23:31
回复 支持 反对

使用道具 举报

发表于 2020-1-18 09:42:21 | 显示全部楼层
谢谢楼主的分享,需要先安装dx9 sdk 嘛?
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2022-6-29 21:04

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表