图片互换+控件拖动+图片九宫格游戏

2014-11-07 10:05:38 420 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Windows 10下用vcpkg一键搞定libcurl开发环境（Code::Blocks 20.03配置指南）本文详细介绍了在Windows 10系统下使用vcpkg工具快速配置libcurl开发环境的完整指南，特别针对Code::Blocks 20.03 IDE进行优化设置。通过vcpkg自动化管理依赖项，简化libcurl的安装与配置过程，帮助开发者高效搭建网络通信功能开发环境，并提供了常见问题解决方案和实际项目中的最佳实践。阅读详情

写在前面：

现在还有高手用vb的，有木有？还是都转.net了？
有好几年没有用了，重新用回来，发现好多知识点都忘记了！

先发资源地址如下：下载地址

求助：
在OLE图片拖动时，发现有个小BUG，指正并优先采纳者给全分

代码如下：



'#######################################################   图片控件 拖动    #######################################################

Private Sub picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

 If Button = 1 Then

 Picture1.Tag = CStr(1)

 MousX = X

 MousY = Y

 End If

End Sub



Private Sub picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

 If Picture1.Tag = CStr(1) Then

 CurrX = Picture1.Left - MousX + X

 CurrY = Picture1.Top - MousY + Y

 Picture1.Move CurrX, CurrY

 End If

End Sub



Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

 Picture1.Tag = CStr(0)

End Sub