vb 如何让对象跟随鼠标左右平移

'窗体放一个picturebox，单击picturebox变成蓝色即可随鼠标移动，再单击变成红色而不罩凳芹随鼠标移动

Dim x1 As Integer

Dim 粗链y1 As Integer

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

    If Picture1.BackColor <> vbBlue Then Exit Sub

    Picture1.Move Picture1.Left + X - x1, Picture1.Top + Y - y1

End Sub

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

    If Picture1.BackColor <> vbBlue Then

        物毕x1 = X

        y1 = Y

        Picture1.BackColor = vbBlue

    Else

        Picture1.BackColor = vbRed

    End If

End Sub

这点分，写程序

程序物消不必了，可尘尺以用两个方法

一种是调api 最常见的是bitblt

一种是将图形load到picturebox中，再调用派蚂高paintpicture picture1.picture

具体图形缩放源码网上多的是

这两种都行，简单的图形就用后者，不过DXF是什么？VB本身好像不支持这种图形。

通过注册表添加

HKEY_CLASSES_ROOT

中添加 项 名字格式 .*（如 .rar）

在该项的 默认值处 数据 随便输 但是 最好有意义的字符

在这个主项下在创建一个项 名字是 你先前在默认处输入的字符

在该项的默认处输入的是 这个扩展名的介绍

在该项下创建名为

DefaultIcon

Shell

ShellEx

三个项谈碰

DefaultIcon的默认值是图标文件的如侍闭地址和索引

如 "E:\a.exe,0"

在Shell的默认值处 天 Open

该键下创建 Open项

其默认值是 在右键菜单中的首项的名字

在这个项下创建一个 command的项 在默认值处

"程序的地址" 命令行参数 "%1"(这个是要打开的文件地址渣裂 %1是由系统指定）如 "E:\a.exe" "%1"

或 "D:\Xmp\bin\Xmp.exe" /play "%1" /openfrom WndExplr /startfrom LocalFile

以我的知识我只能说这些了

---