存档

2010年1月 的存档

解决VS2008程序独立运行问题

2010年1月29日 没有评论

许多刚接触 VS2008 的程序员，编写应用程序会遇到这种情况，即在开发用的机器上可以正常运行，但是换了没装VS2008的机器，你写的程序就有可能运行不了了。其实当初我也是遇到这个问题，但是对于MFC程序来说，如果采用MFC静态链接发布，那么这个问题将会被简单解决。但是如果换了Win32项目，情况就不同了，因为它没有使用MFC，但是编译出来的程序，同样无法独立运行。这个问题本人曾在网上寻找过答案，不过没有找到对题的答案。

有一天，我在研究用于使用DLL的导入库LIB的兼容性问题(VC6使用VS2008产生的库时，总会发生一些链接错误)。解决了这个菜鸟问题。

VS2008编译的Win32程序独立运行的解决方案是： 阅读全文…

分类: VC++, 微软的东东 标签: , ,

API限制鼠标光标范围

2010年1月19日 没有评论

ClipCursor
ClipCursorByNum

Option Explicit
Dim R As RECT
Private Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type
Private Declare Function ClipCursor Lib “user32″ (lpRect As RECT) As Long
‘lpRect-鼠标光标限制到的矩形
Private Declare Function ClipCursorByNum Lib “user32″ Alias “ClipCursor” (lpRect As Long) As Long
‘lpRect-传0，取消鼠标光标限制
Private Declare Function SetRect Lib “user32″ (lpRect As RECT, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

Private Sub Form_Load() ‘窗体载入后，鼠标只能在窗体范围内移动
SetRect R, Left / Screen.TwipsPerPixelX, Top / Screen.TwipsPerPixelY, (Left + Width) / Screen.TwipsPerPixelX, (Top + Height) / Screen.TwipsPerPixelY
ClipCursor R
End Sub

Private Sub Form_Unload(Cancel As Integer) ‘窗体退出时，取消鼠标光标限制范围
ClipCursorByNum 0
End Sub

分类: Visual Basic 标签: ,