请帮忙改改

jhzlzc29

请问能不能写成这样的格式：
　　非典时期请大家注意安全！
　　　　　　　　　　　发布人：XXXX
　　　　　　　　　　　日期：2003-5-28
另外，请问怎样才能使鼠标一移到这个标签就停止呢？

binuochao

第一个问题可以了！

binuochao

不知第二个问题是不是这样的

jhzlzc29

谢谢了，不过你第二个中引用的控件我这里没有可不上传一个

jhzlzc29

还有一个问题，怎样才能实时更新数据呢？

jhzlzc29

就是显示的内容

binuochao

1，调用的是windows的API，在模块中有引用部分：
2，要数据实时更新，先定一个全局变量，在加载事件中置值，并在time事件内比较即可

Option Explicit
'宣告API
Private Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long
Public Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
'结构声明
Public Type POINTAPI
X As Long
Y As Long
End Type