易截截图软件、单文件、免安装、纯绿色、仅160KB

VB 用sleep时,出现程序无响应

水流线画图如下:
Picture1.CurrentX = pen(1).PenPointx Picture1.CurrentY = pen(1).PenPointy
For temp1 = 1 To pointcount - 1
    If (pen(temp1).PenPointx = -1 And pen(temp1).PenPointy = -1) Then
    Picture1.CurrentX = pen(temp1 + 1).PenPointx
    Picture1.CurrentY = pen(temp1 + 1).PenPointy
    Else
    Picture1.Line -(pen(temp1).PenPointx, pen(temp1).PenPointy )
    Sleep (pen(temp1 + 1).time - pen(temp1).time)
    End If
Next temp1

pen的定义如下:
Private Type paintpen
      PenPointx  As Integer  'X轴坐标
      PenPointy  As Integer  'Y轴坐标
      time        As Long    ‘时间点
  End Type 
                             
(-1,-1,0)是开始下一笔
怎么我一到下一划的时候就出错了,程序就不动了
大家帮我看看,哪里出问题了
不要sleep那句或改成application.doevents

引用
不要sleep那句或改成application.doevents

不要sleep的话,无法控制速度
怎么用application.doevents?


奇怪的

    Else
    Picture1.Line -(pen(temp1).PenPointx, pen(temp1).PenPo


相关问答:

为什么C写DLL文件C、PB能调用VB不能调用

为什么C写的DLL文件C、PB能调用VB不能调用?
VB里为什么有的DLL直接通过引用可以使用?有的需要通过declare申明外部函数?这些DLL有什么差别?

1、为什么PB能通过DECLARE声明而VB不行?
2、如果这个dll中的 ......

关于ASP.net(vb)播放监控录像的问题

我有厂家做的ASP的监控录像(DVR)的局域网播放的源程序与控件,想要用ASP.net做一个视频回放的程序(利用他的控件)但不知如下去做,望各位指点。
先搞清楚他们的控件是怎么用的,
然后就直接用好了.
不过,如 ......

VB调用水晶报表Design 平凡提示MemoryFull问题

  各位大虾:
        我有一个VB调用水晶报表的系统,报表是作为一个Design嵌在VB里的,今天发现打印第一张报表正常,同样的数据,在点打印再调用一次就会报 Memory Full的错误,但是 ......

熟悉VB的进来,有项目


有没有杭州的朋友,熟悉VB的,有兴趣做的话留下联系方式
VB6 OR VB.NET?
可惜不在杭州,遠程可否?

兄台联系方式呢

我也联系一下,不过在宁波

可惜我也不在杭州

北京的行不?

我在苏州, ......

【急求】VB中使用WScript调用外部命令 - VB / 基础类

在下是vb的新手,想写段程序,在vb中,使用wscript调用一些外部的命令,但是程序执行一直有错误,请各位高手帮忙解答下,谢谢。
代码如下:
VB code:

Private Function getFile_CMD(filename, filepath) As Bo ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号