窗体:Form1 控件:Label1模块声明:
Option ExplicitPublic Declare Sub GetSystemTime Lib "kernel32" (lpSystemTime As SystemTime)
Type SystemTime
wYear As Integer
wMouth As Integer
wDay As Integer
wHour As Integer
wMinute As Integer
wSecond As Integer
End Type
窗体声明:Option ExplicitPrivate Sub Form_Load()
Dim SysTime As SystemTime
Dim TotalDate$, TotalTime$GetSystemTime SysTime
TotalDate$ = Str$(SysTime.wYear) & Str$(SysTime.wMouth) & Str(SysTime.wDay)
TotalTime$ = Str$(SysTime.wHour) & Str$(SysTime.wMinute) & Str$(SysTime.wSecond)
Label1.Caption = TotalDate$ + TotalTime$
End Sub在调试过程中正常,生成可执行文件后,提示“非法操作”
Option ExplicitPublic Declare Sub GetSystemTime Lib "kernel32" (lpSystemTime As SystemTime)
Type SystemTime
wYear As Integer
wMouth As Integer
wDay As Integer
wHour As Integer
wMinute As Integer
wSecond As Integer
End Type
窗体声明:Option ExplicitPrivate Sub Form_Load()
Dim SysTime As SystemTime
Dim TotalDate$, TotalTime$GetSystemTime SysTime
TotalDate$ = Str$(SysTime.wYear) & Str$(SysTime.wMouth) & Str(SysTime.wDay)
TotalTime$ = Str$(SysTime.wHour) & Str$(SysTime.wMinute) & Str$(SysTime.wSecond)
Label1.Caption = TotalDate$ + TotalTime$
End Sub在调试过程中正常,生成可执行文件后,提示“非法操作”
解决方案 »
- vb6 如何修改自定义控件的图标?
- 动态分页问题
- 一表中有id、累计电量、当日电量3个字段,如id=2的累计电量为123,id=1是的累计电量为100,如何取得这两个累计电量的差(123-100),存放到id=2记录中的当日电量中。谢谢!
- 需要做一个进销存软件,但是不熟悉业务知识,请问哪里有资料呢?
- 请问如何用鼠标超出窗体的图片
- 我刚用VB.net 2005, 发现有一些代码删除了,运行时好像没有实时更新。
- 用activereport打印为什么打印一张就跟着走一张空纸?
- 这些地址是什么意思(高分)
- 有谁用过金山 我的办公室 ,请进
- 如何制作一个定时自动存盘的程序,能给个思路吗?
- 谁帮我解决这个问题,小弟作牛做马报答(另:为什么我只能给20分?我有很多分)
- 在ActiveReport 2.0中Field的输出格式问题。
还有,试试看用&代替+(最后一句)
传值或者传地址错误吧,
或者到别的机子上去copy一个,dll来吧,