摘要： Option Explicit Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long) Private Type GUID Data1 As Long Data2 As Integer ... 阅读全文

摘要： DoEvents的作用就是允许其它控件响应消息。这时你的程序就可以正常显示了。但使用DoEvents有几点需要注意： 1、DoEvents会使延时循环速度减慢； 2、DoEvents使用户有可能关闭窗口，所以你应该在Form中加一个bUnload变量，在Command1_Click中设置bUnload = False。然后将循环如下改写： Do While Not ... 阅读全文

摘要： Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Lo... 阅读全文