重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
timer定时器,本来就是非精确的,且最小触发时间不是1毫秒,也做不到20毫秒一触发。
创新互联公司从2013年成立,先为石棉等服务建站,石棉等地企业,进行企业商务咨询服务。为石棉企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。
它的最小触发时间大概是10多毫秒。有人说是55毫秒,但可以做以下测试(新建一个程序测试)
设置触发间隔为20毫秒:
Private Sub Timer1_Timer()
Static n As Integer
Print Timer
n = n + 1
If n 15 Then Timer1.Enabled = False
End Sub
1427.281
1427.328
1427.359
1427.39
1427.421
1427.453
1427.484
1427.515
1427.546
1427.578
1427.609
1427.64
1427.671
1427.703
1427.734
1427.765
因为事件内包含了简单的计算和打印会占用一定的时间,平均一下大概是30多毫秒。
你要想准确,可以用多媒体定时器,百度一下多媒体定时器(API:GetTickCount),然后试试。
使用多线程。
如果操作时候长了,就把查询操作放在多线程里去执行,不要在窗体的主线程里执行。
因为定时器是通过Windows消息来实现的,而你的数据库操作阻塞了窗口线程,所以,窗口无法处理Windows消息。
动画的帧播放也是如此。
/----------------------
那就创建一条线程,然后在线程里执行数据库操作啊!
参见 System.Threading.Thread 对象。
在VB.NET中,带框架窗体的大小是不能为0的,要想做到高、宽都为0,需要自己重绘一个无边框窗体,用外置图片来绘制,配合PS做一些图片,既可以换肤还能做的很漂亮。
按当前代码修改,你把下面的代码粘回去就可以了,窗体的高和宽达到最小时,循环会自己退出,避免无限循环;
Select Case 2
Case Is = 1
Dim w As Integer = Me.Width
Do
Me.Width -= 5 : w -= 5
Threading.Thread.Sleep(3)
Loop While Me.Width = w
Case Is = 2
Dim h As Integer = Me.Height
Do
Me.Height -= 5 : h -= 5
Threading.Thread.Sleep(3)
Loop While Me.Height = h
Case Is = 3
Do
Me.Opacity -= 0.05
Threading.Thread.Sleep(120)
Loop Until Me.Opacity = 0
End Select
vb.net有的版本timer子程序读取子程序外面的全局变量有时出错,要么升级到高版本如2008(我使2005就有这个问题),要么在窗口上插个Label1并使 Label1.Hide() ,以后就用Label1.Text代替flag2,实际上Label1的名称可以改如v_flag2。换句话说是用控件值代替全局变量。
是不是另一台电脑是vista 及以上版本的系统 ?
用管理员模式。试试