帮忙看看这句话有什么问题

Question

Private Declare Function validateRectAsAny Lib "user32" Alias
"InvalidateRect"_ (ByVal hwnd As Long, lpRect As Any, ByVal bErase As Long) As Long
运行时说我缺少字符串常量,怎么回事,光标停在ALIAS后面

Answer 1

Private Declare Function validateRectAsAny Lib "user32" Alias "InvalidateRect" (ByVal hwnd As Long, lpRect As Any, ByVal bErase As Long) As Long换行符去掉，要正确加换行符。
^_^

Answer 2

Private Sub Timer1_Timer()
    '两秒钟后恢复桌面
    InvalidateRectAsAny 0, ByVal 0&, True
    Load Form1
    Timer1.Enabled = False这句呢,提示说InvalidateRectAsAny未定义

Answer 3

1、是InvalidateRectAsAny，还是validateRectAsAny
2、在调用函数时，参数中是不用加ByVal 的。

Answer 4

Private Declare Function validateRectAsAny Lib "user32" Alias
"InvalidateRect"_ (ByVal hwnd As Long, lpRect As Any, ByVal bErase As Long) As Long
应该是"_"造成的。_是代表换行，需要换行的时候在行未以“ _”为结尾，则VB编译器会把下一行，则有“ _”结尾的行看成一个语句

Answer 5

调用函数要用：validateRectAsAny

Answer 6

改成validateRectAsAny没出错,可是运行后没反应.......
源码这里发不了,发在这了
http://bbs.game5i.com/dispbbs.asp?boardid=76&id=235548&star=#1126262
是一个启动画面帮着看看问题出在哪啊