![](https://img-blog.csdnimg.cn/20201014180756913.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
VB
llns1
这个作者很懒,什么都没留下…
展开
-
我的初学资料~1
点击鼠标后鼠标的定位Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long '这个是设置鼠标的位置!Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExt原创 2010-10-25 10:12:00 · 324 阅读 · 0 评论 -
图像
'调入源图 Set Me.Picture = LoadPicture("c:/map.jpg")'获得源图描述信息 GetObject Me.Picture.Handle, Len(m_bmp), m_bmp'获得源图数据 ReDim bmpData(m_bmp.bmWidthBytes * m_bmp.bmHeight - 1) GetBitmapBits Me.Picture.Handle, UBound(bmpData), bmpData(0) '获得源图每像素 m_原创 2010-10-25 10:16:00 · 316 阅读 · 0 评论 -
对导入的图像,随机用鼠标在图像中取一个点,算这个点到点A、B、C、D四个点距离最小者,返回该最小距离
Public s2a, x, y As IntegerPublic Xa, Ya, Xb, Yb, Xc, Yc, Xd, Yd As IntegerPrivate Sub Command1_Click()s2a = Sqr((x - Xa) ^ 2 + (y - Ya) ^ 2)S2b = Sqr((x - Xb) ^ 2 + (y - Yb) ^ 2)S2c = Sqr((x - Xc) ^ 2 + (y - Yc) ^ 2)S2d = Sqr((x - Xd) ^ 2 + (y - Yd) ^ 2)M原创 2010-10-28 21:50:00 · 794 阅读 · 0 评论