- 博客(1)
- 资源 (4)
- 收藏
- 关注
RSS订阅原创 TSBLIB测试数据库的 att48.tsp 的最优化路径，数据和示意图
att48的最优路径总长度是：33522此路径为 四舍五入每一步的城市距离，取整数，然后加总四舍五入采取通常的逢四就舍去，逢五就进一。而不是 banker's round(四舍六入五取偶)。X坐标 Y坐标3245.00 3305.00 3484.00 2829.00 3023.00 1942.00 3082.00 1644.00 1916.00 156
2012-01-16 22:43:33
6587
1
VBA调用WinAPI，向后台程序发送鼠标消息（鼠标动作）
本附件用excel自带的VBA，调用windowsAPI
用 mouse_event 实现了对前台程序发送按键和鼠标动作
用 sendmessege 实现了对后台程序发送鼠标动作
做法是 先人手打开画图程序，切换回excel点击按钮
就可以在画图程序画出一个正方形图案
对想要学习 如何 sendmessage 到后台程序的同学很有帮助。
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wparam As Long, ByVal lparam As Long) As Long
Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Public Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
2012-09-11
本附件完美地复制了 Excel 画平滑曲线的算法，贝塞尔曲线
本附件是一个Excel文档
里面的公开的VBA代码可以计算贝塞尔曲线的任意插值，即EXCEL画平滑曲线散点图的方法
附件并详细描述了这一算法，用户可以自行在其他语言实现。
本附件原创作者为 EXCELHOME.NET 的 海底眼
2011-07-06
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人