欢迎加入我们，一同切磋技术。 &
用户名： &&&
密　码： &
共有 3578 人关注过本帖
标题：VB计时器代码求解
等　级：新手上路
结帖率：100%
&&已结贴√
&&问题点数：20&&回复次数：5&&&
VB计时器代码求解
Private Sub Command3_Click()
Private Sub Label1_Click()
&&& cmdStart.Enabled = True
&&& cmdStop.Enabled = False
&&& cmdSZero.Enabled = False
Private Sub cmdExit_Click()
Private Sub cmdStart_Click()
&&& tmrCount.Enabled = True
&&& cmdStop.Enabled = True
&&& cmdStart.Enabled = False
&&& cmdZero.Enabled = False
Private Sub cmdStop_Click()
&&& tmrCount.Enabled = False
&&& cmdZero.Enabled = True
&&& cmdStop.Enabled = False
Private Sub cmdZero_Click()
&&& lblCount.Caption = &0&
&&& cmdStart.Enabled = True
&&& cmdStop.Enabled = False
&&& cmdZero.Enabled = False
Private Sub tmrCount_Timer()
&&&&&lblCount.Caption = Val(lblCount.Caption) + 1
为什么我编出来的代码安运行他自己就开始计时了。我开始还没点呢。不知道是哪里少了语句
搜索更多相关主题的帖子:
等　级：新手上路
新人来了！。。。我现在要开始学习VB了。
等　级：新手上路
回复 2楼 兑神
灌毛个水。直接举报，你要学么就学好了。关我吊事
等　级：贵宾
威　望：12
帖　子：1632
专家分：3571
&&得分:20&
ccrptimer时间控件，可精确到千分之一秒
http://2e3.org/S_VB/post/1484.html
用API吧～简单多了～
程序代码：
Option Explicit
Private Declare Function QueryPerformanceCounter Lib &kernel32& (X As Currency) As Boolean
Private Declare Function QueryPerformanceFrequency Lib &kernel32& (X As Currency) As Boolean
Public S1 As Currency, S2 As Currency, f As Currency, t1 As Currency
Public Function GetSeconds(Status As Boolean) As Currency
&&& If Status = True Then
&&&&&&&&Call QueryPerformanceFrequency(f)
&&&&&&&&Call QueryPerformanceCounter(S1)
&&&&&&&&Call QueryPerformanceCounter(S2)
&&&&&&&&t1 = (S2 - S1) / f
&&&&&&&&GetSeconds = t1
&&& End If
End Function
程序代码：
Private Sub AAA()
&&& Call GetSeconds(True)
&&& ......
&&& ......
&&& MsgBox GetSeconds(False)
加初始化试试～
程序代码：
Private Sub Form_Load()
&&& tmrCount.Enabled=False
不要選我當版主
等　级：新手上路
帖　子：10
你在这里程序一启动就加载了时间变化啊
Private Sub tmrCount_Timer()
&&&&&lblCount.Caption = Val(lblCount.Caption) + 1
不过是初学不知道对不对，
等　级：贵宾
威　望：10
帖　子：237
专家分：999
timer控件拖放到窗体后，默认就是Enabled=true ,Interval =0的
可能是你修改了Interval属性而没有修改enabled属性。
版权所有，并保留所有权利。
Powered by , Processed in 0.308509 second(s), 7 queries.
Copyright&, BCCN.NET, All Rights ReservedAcesso rápido
一个VB安装程序在某些电脑上安装时出错，求解
我有一个程序需要安装，安装包放在D盘的setup文件夹中，安装文件setup.exe（Visual Basic 安装工具包自动运行程序），在大部分电脑上能正常运行，但在一部分电脑上运行时就会出错，提示&Path or File Not Found&，找不到源文件&D:\setup\\@smis.wav&来安装。下面是安装包里的SETUP.LST文件的内容：
[Bootstrap]
SetupTitle=安装
SetupText=正在复制文件，请等待。
CabFile=SMIS1.CAB
Spawn=Setup1.exe
Uninstal=st6unst.exe
TmpDir=msftqws.pdw
[Bootstrap Files]
12:00:00 AM,.0.84.50
12:00:00 AM,.1460.1
12:00:00 AM,.21.0.0
12:00:00 AM,.0.81.69
12:02:26 PM,.4275.1
12:02:26 PM,.40.4275.1
12:02:26 PM,.0.4275.1
12:00:00 AM,.40.4275.1
12:00:00 AM,.0.84.95
[IconGroups]
Group0=综合信息处理和成像软件管理系统
PrivateGroup0=True
Parent0=$(Programs)
[综合信息处理和成像软件管理系统]
Icon1=&SMIS.exe&
Title1=综合信息处理和成像软件管理系统
StartIn1=$(AppPath)
Title=综合信息处理和成像软件管理系统
DefaultDir=$(ProgramFiles)\综合信息处理和成像软件管理系统
AppExe=SMIS.exe
AppToUninstall=SMIS.exe
[Setup1 Files]
1:39:18 PM,.0.0
6:51:08 AM,.0.0
3:14:26 PM,.0.0
1:26:26 PM,.0.0.0
12:03:00 PM,.81.63
12:00:00 AM,.0.81.69
12:00:00 AM,.0.81.63
12:00:00 AM,.0.81.77
12:00:00 AM,.81.63
12:00:00 AM,.0.81.69
12:00:00 AM,.81.69
12:00:00 AM,.51.623.0
12:00:00 AM,.51.623.0
12:00:00 AM,.0.0.8268
12:00:00 AM,.1.8268
12:00:00 AM,.51.623.0
5:33:00 AM,.623.0
12:00:00 AM,.51.623.4
12:00:00 AM,.51.1608.0
8:04:06 AM,.0.0.0
; 要在满的安装盘上定制该文件，需要额外的空间，下列行可能被删除。
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
是不是系统哪里设置有问题啊，望有知道如何解决的帮下忙，谢谢
(发件人：Visual Basic)
Todas as Respostas
這可能是 路徑不對
D:\setup\\@smis.wav
多了一個&\&
你的電腦上能存取這個檔案嗎?
&D:\setup\\@smis.wav&
Please correct me if my concept is wrongChi
你好，谢谢回复，但是好像不是这个问题。。
我电脑上是有这个文件的&D:\setup\smis.wav&，而且看SETUP.LST文件的内容，
安装程序应该读的是CAB压缩包里的那个smis.wav，
[Setup1 Files]
1:39:18 PM,.0.0
而且同样的安装文件在被人电脑上就可以装，没这个错误，在我的电脑上就出现这个错误，很纳闷：（&
Please correct me if my concept is wrong
这个论坛支持VB.NET的，你的问题跟VB6相关，建议你发到有关的论坛。
Best regardsLiliane Teng [MSFT]
MSDN Community Support |
Please remember to mark the replies as answers if they help and unmark them if they provide no help.
VB 5、6 用的是很&古老&的ACMSetup安装程序了，大约算算该是15年前的技术了吧。说实话这个安装程序已经不适合在现代操作系统上使用了，特别是 Windows XP 以后的版本。
我的建议是你可以考虑使用别的安装程序制作工具生成基于 Windows Installer 技术的安装包（MSI），纠结于acmsetup是很难有一个万全的解决方案了，它太古老了！
谢谢大家的回复，已经找到问题的解决方法了
VB6生成的程序安装包在Win2k或WinXP系统中安装，如果出现类似&Path or File Not Found&或&路径或文件没有发现&的错误，解决方法：
在&我的电脑&点击右键，选择&属性&，然后选择&高级&中的&环境变量&，修改&用户变量&的&TEMP&和&TMP&的变量值使之与&系统变量&的&TEMP&和&TMP&的变量值一致。