113
0
[11月月赛] 烤全羊 我也来参加一下～～
发贴日期：
2007-11-24 [ 0人评论过 ]
烤全羊
FinePix S6500fd iso200 f3.2 1s
FinePix S6500fd iso200 f3.2 1s
[11月月赛] 我也来参加下比赛
[11月月赛] 我也来参加下比赛
[11月月赛] 我也来参加下比赛
[11月月赛] 我也来参加下比赛
睡觉的狗狗
自制闪光灯柔光装置试验——微距拍小车
发贴日期：
2007-09-01 [ 7人评论过 ]
自制闪光灯柔光装置试验——微距拍小车
除缩小外未做处理
除缩小外未做处理
再来张八号桥的
西边的太阳就要落山了
继续拍公司里的猫
公司里的猫猫
公司里的猫猫
游戏神秘花园开放源代码
发贴日期：
2004-08-01 [ 1人评论过 ]
终于决定公开游戏神秘花园的源代码
一者我以后不会再用VB做游戏，
二者我也没工夫再去更新这个游戏了。
希望各位大侠接过去，希望能有发扬光大的一天。
下载：http://blog.yournet.com.cn/~shenxian/game1.rar
一者我以后不会再用VB做游戏，
二者我也没工夫再去更新这个游戏了。
希望各位大侠接过去，希望能有发扬光大的一天。
下载：http://blog.yournet.com.cn/~shenxian/game1.rar
杉树
一个试验
申请加入俱乐部要多少时间才能批准啊？
薄暮冥冥
富士 FinePix S3000 怎么样？
发贴日期：
2004-01-23 [ 1人评论过 ]
富士 FinePix S3000 怎么样？
富士 FinePix S3000 怎么样？
发贴日期：
2004-01-23 [ 10人评论过 ]
富士 FinePix S3000 怎么样？
关于DirectX的问题
发贴日期：
2003-05-26 [ 1人评论过 ]
那个DirectDrawEnumSurface怎么用？
Option Explicit
Dim DX7 As DirectX7
Dim DD7 As DirectDraw7
Dim DDS As DirectDrawSurface7
Dim DDES As DirectDrawEnumSurfaces
Private Sub Command1_Click()
Dim DDSD As DDSURFACEDESC2
Set DX7 = New DirectX7
Set DD7 = DX7.DirectDrawCreate("")
DDSD.ddsCaps.lCaps = DDSCAPS_PRIMARYSURFACE
Set DDES = DD7.GetSurfacesEnum(DDENUMSURFACES_ALL, DDSD)
Text1.Text = CStr(DDES.GetCount)
End Sub
执行到
Set DDES = DD7.GetSurfacesEnum(DDENUMSURFACES_ALL, DDSD)的时候总是说无效的过程调用或参数
Option Explicit
Dim DX7 As DirectX7
Dim DD7 As DirectDraw7
Dim DDS As DirectDrawSurface7
Dim DDES As DirectDrawEnumSurfaces
Private Sub Command1_Click()
Dim DDSD As DDSURFACEDESC2
Set DX7 = New DirectX7
Set DD7 = DX7.DirectDrawCreate("")
DDSD.ddsCaps.lCaps = DDSCAPS_PRIMARYSURFACE
Set DDES = DD7.GetSurfacesEnum(DDENUMSURFACES_ALL, DDSD)
Text1.Text = CStr(DDES.GetCount)
End Sub
执行到
Set DDES = DD7.GetSurfacesEnum(DDENUMSURFACES_ALL, DDSD)的时候总是说无效的过程调用或参数