BitBlt

Siner

Option Explicit
Private Declare Function timeGetTime Lib "winmm.dll" () As Long

Private Sub Command1_Click()
    Dim i As Long
    Dim myTime As Long
   
    myTime = timeGetTime
   
    Do While 1
        If timeGetTime - myTime > 10 Then
            Text1.Left = Text1.Left + 1
            DoEvents
            myTime = timeGetTime
        End If
        If Text1.Left > Me.Width Then
            Exit Sub
        End If
    Loop

End Sub

'--------------------------------------------
我这样写了一个例子;
10毫秒移动一下;
似乎效果并不是那么理想。

Siner

游戏之家: Re:BitBlt

（1）重画背景

（2）并：Form1.AutoRedraw = True

我说的是在桌面上绘图。
Desktop上面。。
并不是在Form1中。。

sandy_zc_1

Siner: Re:BitBlt

我这样写了一个例子;
10毫秒移动一下;
似乎效果并不是那么理想。

怎么这样用啊，你怎么把DoEvents放在那里？

10ms中有9ms都处于“半死机”状态……

另外，尽早脱离使用大量标准控件编游戏的水准。

Siner

那我应该放哪里
应该怎么脱离
楼上的给指点一二嘛~

dreamerate

Option Explicit

'// 我喜欢这函数
Private Declare Function GetTickCount Lib "kernel32.dll" () As Long

Private Sub cmdTest_Click()

    Dim dwDelay As Long
    Dim dwTickCount As Long

    Do While 1
        dwTickCount = GetTickCount()
        If dwTickCount > dwDelay Then
            Text1.Left = Text1.Left + 1
            dwDelay = dwTickCount + 10
        End If
        If Text1.Left > Me.ScaleWidth Then ' 你应该用ScaleWidth而不应该用Width
            Exit Sub
        End If
        DoEvents '应该放这里
    Loop

End Sub

dreamerate

Siner: Re:BitBlt

呵呵呵，有新问题了
我用bitblt往桌面上绘图
然后不知道怎么让它刷新，导至图像移动过去后，后面全是残留景象

用CreateCompatibleDC+CreateCompatibleBitmap创建二块画板。一块用来画图，另一块用来刷新桌面用。这样就OK了！~

Siner

GetTickCount 这个是获取的什么值啊？
也在一直增加呢。

CreateCompatibleDC,CreateCompatibleBitmap 分别是干什么用的？
如何用啊，呵呵，我新手。

dreamerate

呵呵！看MSDN

sandy_zc_1

GetTickCount与TimeGetTime差不多。用其中一个就可以。

一般的游戏循环是这样的：
Declare Function timeGetTime Lib "winmm.dll" () As Long
Dim tm1 as Long,LTime as Long

LTime=1000/FPS  ' FPS即每秒显示的帧数

Do
tm1=timeGetTime
' 这里是游戏的运算代码
' 这里是游戏的渲染代码

do while timeGetTime-tm1<LTime
  DoEvents
Loop

Loop

Siner

这样写就是连时间控件都不要了？？
你就是说这样来脱离标准控件？