VBA实例5：拖放式选择题（解除工程密码，且已更新代码）

critolly

解除工程密码，并参考zyhqzn朋友（谢谢！）的意见重新做了修改，经朋友测试是成功的！
拖放式选择题.rar (106.99 KB, 下载次数: 115)

2007-11-13 17:23 上传

点击文件名下载附件

caiko

哈，我也来坐坐沙发，下了后再回复。

vpzb4810

楼主，不能拖动啊，请检查！

llp168

大佬，好象不行耶。拖不动，点击判断也没有音乐。是不是要用什么特殊技巧呢？疑惑中。

naxiewuzhu

乡长又策划高难的啦，佩服，没有最难，只有更难！下一届华罗庚！

user_lagkruav

我这里测试完全可行，怎么会这样～～？？检讨去了…………

a128943834

本乡长临时召开了乡常委非常会议，经过热烈讨论终于找到了问题的症结，现已改过，请检测！

user_puodfjak

好！很好！！太好了！！！

user_alwykspv

毫无反应（当然我是启用了“宏”）
建议：
1.去掉“判断”按钮，在“then"后加判断语句更直接。
2.能否去掉vba工程密码，虽然这个密码弱不禁风，但是由laose老师直接放出源代码更好一些。

user_ysdumeab

小改一下：
PrivateSubLabel1_MouseUP(ByValButtonAsInteger,ByValShiftAsInteger,ByValXAsSingle,ByValYAsSingle)
DimdownXAsInteger
DimdownYAsInteger
Label1.Left=X-downX+Label1.Left
Label1.Top=Y-downY+Label1.Top
IfLabel1.Left>TextBox1.LeftAndLabel1.Left<TextBox1.Left+TextBox1.WidthAndLabel1.Top>TextBox1.TopAndLabel1.Top<TextBox1.Top+TextBox1.HeightThen
TextBox1.Text=&quot;A&quot;
WMP1.URL=&quot;right.wav&quot;
MsgBox&quot;做对了，恭喜你！&quot;,vbOKOnly,&quot;提示&quot;
EndIf
WMP1.URL=&quot;&quot;
TextBox1.Text=&quot;&quot;
Label1.Left=123
Label1.Top=300
EndSub
把输入框（TextBox1）拉大一点。
想问一下laose老师，downx和downy这两个变量是什么？